version 1.2, 2017/12/07 15:36:25
|
version 1.3, 2017/12/09 16:15:47
|
Line 241 sub handler {
|
Line 241 sub handler {
|
$protocol = 'https'; |
$protocol = 'https'; |
} |
} |
|
|
my ($itemid,$key,$secret,@ltiroles); |
my ($itemid,$consumer_key,$secret,@ltiroles); |
$key = $params->{'oauth_consumer_key'}; |
$consumer_key = $params->{'oauth_consumer_key'}; |
if (ref($lti_by_key{$key}) eq 'ARRAY') { |
if (ref($lti_by_key{$consumer_key}) eq 'ARRAY') { |
foreach my $id (@{$lti_by_key{$key}}) { |
foreach my $id (@{$lti_by_key{$consumer_key}}) { |
if (ref($lti{$id}) eq 'HASH') { |
if (ref($lti{$id}) eq 'HASH') { |
$secret = $lti{$id}{'secret'}; |
$secret = $lti{$id}{'secret'}; |
my $request = Net::OAuth->request('request token')->from_hash($params, |
my $request = Net::OAuth->request('request token')->from_hash($params, |
Line 497 sub handler {
|
Line 497 sub handler {
|
# Check if user should be hosted here or switched to another server. |
# Check if user should be hosted here or switched to another server. |
# |
# |
|
|
&Apache::lonnet::logthis(" LTI authorized user: $uname:$udom role: $role course: $cnum:$cdom"); |
&Apache::lonnet::logthis(" LTI authorized user: $uname:$udom role: $role course: $cdom\_$cnum"); |
$r->user($uname); |
$r->user($uname); |
my ($is_balancer,$otherserver,$hosthere); |
my ($is_balancer,$otherserver,$hosthere); |
($is_balancer,$otherserver) = |
($is_balancer,$otherserver) = |