loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.96, 2007/10/02 01:09:59	version 1.97, 2007/10/09 16:27:08
Line 148 ENDFAILED	Line 148 ENDFAILED
my $otherserver= &Apache::lonnet::absolute_url($host_name);	my $otherserver= &Apache::lonnet::absolute_url($host_name);
my $firsturl=	my $firsturl=
($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});	($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});
# ---------------------------------------- Are we access server and overloaded?	# ---------------------------------------------------------- Are we overloaded?
if (($role eq 'access') &&	if ((($userloadpercent>100.0)\|\|($loadpercent>100.0))) {
(($userloadpercent>100.0)\|\|($loadpercent>100.0))) {
my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);	my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
if ($unloaded) { $otherserver=$unloaded; }	if ($unloaded) { $otherserver=$unloaded; }
}	}