version 1.24, 2014/10/07 03:13:34
|
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 243 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); |
|
|
my %form; |
my %form; |
if ($data{'symb'} ne '') { |
if ($data{'symb'} ne '') { |
Line 252 sub handler {
|
Line 267 sub handler {
|
if ($data{'iptoken'} ne '') { |
if ($data{'iptoken'} ne '') { |
$form{'iptoken'} = $data{'iptoken'}; |
$form{'iptoken'} = $data{'iptoken'}; |
} |
} |
|
if ($data{'noloadbalance'} ne '') { |
|
$form{'noloadbalance'} = $data{'noloadbalance'}; |
|
} |
|
|
if (!$data{'role'}) { |
if (!$data{'role'}) { |
my $handle = &Apache::lonnet::check_for_valid_session($r); |
my $handle = &Apache::lonnet::check_for_valid_session($r); |