version 1.25.2.1, 2019/08/01 15:38:36
|
version 1.26, 2017/11/30 15:14:51
|
Line 53 sub goto_login {
|
Line 53 sub goto_login {
|
} |
} |
|
|
|
|
sub sso_check { |
sub sso_lti_check { |
my ($data) = @_; |
my ($data) = @_; |
my %extra_env; |
my %extra_env; |
if (ref($data) eq 'HASH') { |
if (ref($data) eq 'HASH') { |
Line 64 sub sso_check {
|
Line 64 sub sso_check {
|
$extra_env{'request.sso.reloginserver'} = |
$extra_env{'request.sso.reloginserver'} = |
$data->{'sso.reloginserver'}; |
$data->{'sso.reloginserver'}; |
} |
} |
|
if ($data->{'lti.login'}) { |
|
$extra_env{'request.lti.login'} = $data->{'lti.login'}; |
|
} |
|
if ($data->{'lti.passbackid'}) { |
|
$extra_env{'request.lti.passbackid'} = $data->{'lti.passbackid'}; |
|
} |
|
if ($data->{'lti.passbackurl'}) { |
|
$extra_env{'request.lti.passbackurl'} = $data->{'lti.passbackurl'}; |
|
} |
|
if ($data->{'lti.rosterid'}) { |
|
$extra_env{'request.lti.rosterid'} = $data->{'lti.rosterid'}; |
|
} |
|
if ($data->{'lti.rosterurl'}) { |
|
$extra_env{'request.lti.rosterurl'} = $data->{'lti.rosterurl'}; |
|
} |
} |
} |
return \%extra_env; |
return \%extra_env; |
} |
} |
Line 171 sub ip_changed {
|
Line 186 sub ip_changed {
|
} |
} |
} |
} |
} |
} |
unless ($hosthere) { |
|
if (($dataref->{'balancer'}) && ($dataref->{'balcookie'})) { |
|
&Apache::lonnet::delbalcookie($dataref->{'balcookie'},$dataref->{'balancer'}); |
|
} |
|
} |
|
} |
} |
if ($dataref->{'sso.login'}) { |
if ($dataref->{'sso.login'}) { |
$url .= '/adm/roles'; |
$url .= '/adm/roles'; |
Line 248 sub handler {
|
Line 258 sub handler {
|
} |
} |
if ($home =~ /(con_lost|no_such_host)/) { return &goto_login($r,$udom); } |
if ($home =~ /(con_lost|no_such_host)/) { return &goto_login($r,$udom); } |
|
|
my $extra_env = &sso_check(\%data); |
my $extra_env = &sso_lti_check(\%data); |
if (($data{'balancer'}) && ($data{'server'}) && ($data{'balcookie'})) { |
|
if (ref($extra_env) eq 'HASH') { |
|
$extra_env->{'request.balancercookie'} = $data{'server'}.':'.$data{'balcookie'}; |
|
} else { |
|
$extra_env = { 'request.balancercookie' => $data{'server'}.':'.$data{'balcookie'} }; |
|
} |
|
} |
|
|
|
my %form; |
my %form; |
if ($data{'symb'} ne '') { |
if ($data{'symb'} ne '') { |