version 1.134, 2014/04/30 21:51:30
|
version 1.135, 2014/10/04 02:59:32
|
Line 309 sub handler {
|
Line 309 sub handler {
|
my $tmpinfo=Apache::lonnet::reply('tmpget:'.$form{'logtoken'}, |
my $tmpinfo=Apache::lonnet::reply('tmpget:'.$form{'logtoken'}, |
$form{'serverid'}); |
$form{'serverid'}); |
|
|
my %sessiondata; |
|
if ($form{'iptoken'}) { |
|
%sessiondata = &Apache::lonnet::tmpget($form{'iptoken'}); |
|
my $delete = &Apache::lonnet::tmpdel($form{'iptoken'}); |
|
} |
|
|
|
if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost') || |
if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost') || |
($tmpinfo eq 'no_such_host')) { |
($tmpinfo eq 'no_such_host')) { |
&failed($r,'Information needed to verify your login information is missing, inaccessible or expired.',\%form); |
&failed($r,'Information needed to verify your login information is missing, inaccessible or expired.',\%form); |
Line 334 sub handler {
|
Line 328 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
my ($key,$firsturl,$rolestr,$symbstr)=split(/&/,$tmpinfo); |
my ($key,$firsturl,$rolestr,$symbstr,$iptokenstr)=split(/&/,$tmpinfo); |
if ($rolestr) { |
if ($rolestr) { |
$rolestr = &unescape($rolestr); |
$rolestr = &unescape($rolestr); |
} |
} |
if ($symbstr) { |
if ($symbstr) { |
$symbstr= &unescape($symbstr); |
$symbstr= &unescape($symbstr); |
} |
} |
|
if ($iptokenstr) { |
|
$iptokenstr = &unescape($iptokenstr); |
|
} |
if ($rolestr =~ /^role=/) { |
if ($rolestr =~ /^role=/) { |
(undef,$form{'role'}) = split('=',$rolestr); |
(undef,$form{'role'}) = split('=',$rolestr); |
} |
} |
if ($symbstr =~ /^symb=/) { |
if ($symbstr =~ /^symb=/) { |
(undef,$form{'symb'}) = split('=',$symbstr); |
(undef,$form{'symb'}) = split('=',$symbstr); |
} |
} |
|
if ($iptokenstr =~ /^iptoken=/) { |
|
(undef,$form{'iptoken'}) = split('=',$iptokenstr); |
|
} |
|
|
my $keybin=pack("H16",$key); |
my $keybin=pack("H16",$key); |
|
|
Line 430 sub handler {
|
Line 430 sub handler {
|
|
|
my $hosthere; |
my $hosthere; |
if ($form{'iptoken'}) { |
if ($form{'iptoken'}) { |
|
my %sessiondata = &Apache::lonnet::tmpget($form{'iptoken'}); |
|
my $delete = &Apache::lonnet::tmpdel($form{'iptoken'}); |
if (($sessiondata{'domain'} eq $form{'udom'}) && |
if (($sessiondata{'domain'} eq $form{'udom'}) && |
($sessiondata{'username'} eq $form{'uname'})) { |
($sessiondata{'username'} eq $form{'uname'})) { |
$hosthere = 1; |
$hosthere = 1; |