loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.94, 2007/08/30 22:07:45	version 1.94.2.1, 2007/10/09 16:48:51
Line 158 ENDFAILED	Line 158 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; }
}	}