loncom/lti/ltiauth.pm - diff

Return to ltiauth.pm CVS log

Up to [LON-CAPA] / loncom / lti

version 1.18, 2019/06/13 17:45:26	version 1.19, 2019/07/18 18:28:46
Line 749 sub lti_session {	Line 749 sub lti_session {
}	}
}	}
}	}
	my $protocol = 'http';
	if ($ENV{'SERVER_PORT'} == 443) {
	$protocol = 'https';
	}
if (($is_balancer) && (!$hosthere)) {	if (($is_balancer) && (!$hosthere)) {
# login but immediately go to switch server.	# login but immediately go to switch server.
&Apache::lonauth::success($r,$uname,$udom,$uhome,'noredirect');	&Apache::lonauth::success($r,$uname,$udom,$uhome,'noredirect');
	if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) {
	&LONCAPA::ltiutils::setup_logout_callback($uname,$udom,$otherserver,
	$ltihash->{'key'},
	$ltihash->{'secret'},
	$params->{$ltihash->{'callback'}},
	$r->dir_config('ltiIDsDir'),
	$protocol,$r->hostname);
	}
if ($symb) {	if ($symb) {
$env{'form.symb'} = $symb;	$env{'form.symb'} = $symb;
$env{'request.lti.uri'} = $tail;	$env{'request.lti.uri'} = $tail;
Line 818 sub lti_session {	Line 830 sub lti_session {
foreach my $key (%{$params}) {	foreach my $key (%{$params}) {
delete($env{'form.'.$key});	delete($env{'form.'.$key});
}	}
	if (($ltihash->{'callback'}) && ($params->{$ltihash->{'callback'}})) {
	&LONCAPA::ltiutils::setup_logout_callback($uname,$udom,$lonhost,
	$ltihash->{'key'},
	$ltihash->{'secret'},
	$params->{$ltihash->{'callback'}},
	$r->dir_config('ltiIDsDir'),
	$protocol,$r->hostname);
	}
my $ip = $r->get_remote_host();	my $ip = $r->get_remote_host();
my %info=('ip' => $ip,	my %info=('ip' => $ip,
'domain' => $udom,	'domain' => $udom,