version 1.157, 2014/06/17 23:22:10
|
version 1.158, 2014/10/04 02:59:32
|
Line 307 sub sso_login {
|
Line 307 sub sso_login {
|
my %sessiondata; |
my %sessiondata; |
if ($form{'iptoken'}) { |
if ($form{'iptoken'}) { |
%sessiondata = &Apache::lonnet::tmpget($form{'iptoken'}); |
%sessiondata = &Apache::lonnet::tmpget($form{'iptoken'}); |
my $delete = &Apache::lonnet::tmpdel($form{'token'}); |
my $delete = &Apache::lonnet::tmpdel($form{'iptoken'}); |
|
unless ($sessiondata{'sessionserver'}) { |
|
delete($form{'iptoken'}); |
|
} |
} |
} |
|
|
my $domain = $r->dir_config('lonSSOUserDomain'); |
my $domain = $r->dir_config('lonSSOUserDomain'); |
Line 319 sub sso_login {
|
Line 322 sub sso_login {
|
&Apache::lonnet::logthis(" SSO authorized user $user "); |
&Apache::lonnet::logthis(" SSO authorized user $user "); |
my ($is_balancer,$otherserver,$hosthere); |
my ($is_balancer,$otherserver,$hosthere); |
if ($form{'iptoken'}) { |
if ($form{'iptoken'}) { |
if (($sessiondata{'domain'} eq $form{'udom'}) && |
if (($sessiondata{'domain'} eq $domain) && |
($sessiondata{'username'} eq $form{'uname'})) { |
($sessiondata{'username'} eq $user)) { |
$hosthere = 1; |
$hosthere = 1; |
} |
} |
} |
} |
Line 361 sub sso_login {
|
Line 364 sub sso_login {
|
'server' => $r->dir_config('lonHostID'), |
'server' => $r->dir_config('lonHostID'), |
'sso.login' => 1 |
'sso.login' => 1 |
); |
); |
foreach my $item ('role','symb') { |
foreach my $item ('role','symb','iptoken') { |
if (exists($form{$item})) { |
if (exists($form{$item})) { |
$info{$item} = $form{$item}; |
$info{$item} = $form{$item}; |
} |
} |