loncom/auth/lonauth.pm - diff

Return to lonauth.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.112, 2011/05/13 01:33:02	version 1.114, 2011/06/11 17:50:35
Line 274 sub handler {	Line 274 sub handler {
my $tmpinfo=Apache::lonnet::reply('tmpget:'.$form{'logtoken'},	my $tmpinfo=Apache::lonnet::reply('tmpget:'.$form{'logtoken'},
$form{'serverid'});	$form{'serverid'});

if (($tmpinfo=~/^error/) \|\| ($tmpinfo eq 'con_lost')) {	if (($tmpinfo=~/^error/) \|\| ($tmpinfo eq 'con_lost') \|\|
	($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);
return OK;	return OK;
} else {	} else {
Line 421 sub handler {	Line 422 sub handler {
if ($r->dir_config("lonBalancer") eq 'yes') {	if ($r->dir_config("lonBalancer") eq 'yes') {
&success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,	&success($r,$form{'uname'},$form{'udom'},$authhost,'noredirect',undef,
\%form);	\%form);
my ($otherserver) = &Apache::lonnet::choose_server($form{'udom'});	my $otherserver = &Apache::lonnet::spareserver(30000,undef,1,$form{'udom'});
$r->internal_redirect('/adm/switchserver?otherserver='.$otherserver.'&origurl='.$firsturl);	$r->internal_redirect('/adm/switchserver?otherserver='.$otherserver.'&origurl='.$firsturl);
return OK;	return OK;
} else {	} else {