loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.22, 2002/09/17 19:45:11	version 1.23, 2002/09/17 19:48:40
Line 77 sub handler {	Line 77 sub handler {
my $otherserver='http://'.$ENV{'SERVER_NAME'};	my $otherserver='http://'.$ENV{'SERVER_NAME'};
my $firsturl=$ENV{'request.firsturl'};	my $firsturl=$ENV{'request.firsturl'};
# ---------------------------------------- Are we access server and overloaded?	# ---------------------------------------- Are we access server and overloaded?
if (($loadpercent>100.0)) {	if (($role eq 'access') or ($loadpercent>100.0)) {
$otherserver=Apache::lonnet::spareserver($loadpercent);	$otherserver=Apache::lonnet::spareserver($loadpercent);
}	}