loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.122, 2009/05/22 17:01:28	version 1.123, 2009/07/22 20:24:07
Line 46 sub handler {	Line 46 sub handler {
(join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},	(join('&',$ENV{'QUERY_STRING'},$env{'request.querystring'},
$ENV{'REDIRECT_QUERY_STRING'}),	$ENV{'REDIRECT_QUERY_STRING'}),
['interface','username','domain','firsturl','localpath','localres',	['interface','username','domain','firsturl','localpath','localres',
'token']);	'token','role','symb']);
if (!defined($env{'form.firsturl'})) {	if (!defined($env{'form.firsturl'})) {
&Apache::lonacc::get_posted_cgi($r,['firsturl']);	&Apache::lonacc::get_posted_cgi($r,['firsturl']);
}	}
Line 170 sub handler {	Line 170 sub handler {
if ($uextkey>2147483647) { $uextkey-=4294967296; }	if ($uextkey>2147483647) { $uextkey-=4294967296; }

# -------------------------------------------------------- Store away log token	# -------------------------------------------------------- Store away log token
	my $tokenextras;
	if ($env{'form.role'}) {
	$tokenextras = '&role='.&escape($env{'form.role'});
	}
	if ($env{'form.symb'}) {
	$tokenextras .= '&symb='.&escape($env{'form.symb'});
	}
my $logtoken=Apache::lonnet::reply(	my $logtoken=Apache::lonnet::reply(
'tmpput:'.$ukey.$lkey.'&'.$firsturl,	'tmpput:'.$ukey.$lkey.'&'.$firsturl.$tokenextras,
$lonhost);	$lonhost);

# ------------------- If we cannot talk to ourselves, we are in serious trouble	# ------------------- If we cannot talk to ourselves, we are in serious trouble