|
version 1.161, 2015/03/03 22:06:55
|
version 1.162, 2015/03/06 20:39:22
|
|
Line 113 sub handler {
|
Line 113 sub handler {
|
| my %sessiondata;
|
my %sessiondata;
|
| if ($env{'form.iptoken'}) {
|
if ($env{'form.iptoken'}) {
|
| %sessiondata = &Apache::lonnet::tmpget($env{'form.iptoken'});
|
%sessiondata = &Apache::lonnet::tmpget($env{'form.iptoken'});
|
| my $delete = &Apache::lonnet::tmpdel($env{'form.token'});
|
unless ($sessiondata{'sessionserver'}) {
|
| |
my $delete = &Apache::lonnet::tmpdel($env{'form.iptoken'});
|
| |
delete($env{'form.iptoken'});
|
| |
}
|
| }
|
}
|
| # ----------------------------------------------------------- Process Interface
|
# ----------------------------------------------------------- Process Interface
|
| $env{'form.interface'}=~s/\W//g;
|
$env{'form.interface'}=~s/\W//g;
|
|
Line 223 sub handler {
|
Line 226 sub handler {
|
| }
|
}
|
| $tokenextras .= '&symb='.&escape($env{'form.symb'});
|
$tokenextras .= '&symb='.&escape($env{'form.symb'});
|
| }
|
}
|
| |
if ($env{'form.iptoken'}) {
|
| |
if (!$tokenextras) {
|
| |
$tokenextras = '&&';
|
| |
}
|
| |
$tokenextras .= '&iptoken='.&escape($env{'form.iptoken'});
|
| |
}
|
| my $logtoken=Apache::lonnet::reply(
|
my $logtoken=Apache::lonnet::reply(
|
| 'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras,
|
'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras,
|
| $lonhost);
|
$lonhost);
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonlogin.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / auth