loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

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) =