loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.158.2.1, 2015/03/06 22:32:39	version 1.158.2.2, 2015/03/06 22:36:56
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 222 sub handler {	Line 225 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);