loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.9, 2000/11/09 19:42:44	version 1.10, 2001/01/17 17:27:49
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# Login Screen	# Login Screen
# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,	# 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14,
# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9 Gerd Kortemeyer	# 1/14/00,5/29,5/30,6/1,6/29,7/1,11/9,
	# 1/17/01 Gerd Kortemeyer
#	#
package Apache::lonlogin;	package Apache::lonlogin;

Line 34 sub handler {	Line 35 sub handler {
$loadavg =~ s/\s.*//g;	$loadavg =~ s/\s.*//g;
my $loadpercent=100*$loadavg/$loadlim;	my $loadpercent=100*$loadavg/$loadlim;

my $otherserver='';	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 (($role eq 'access') && ($loadpercent>100.0)) {	if (($role eq 'access') && ($loadpercent>100.0)) {