loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.46, 2003/08/25 15:24:43	version 1.48, 2003/09/02 22:28:19
Line 109 sub handler {	Line 109 sub handler {
# ---------------------------------------- Are we access server and overloaded?	# ---------------------------------------- Are we access server and overloaded?
if (($role eq 'access') &&	if (($role eq 'access') &&
(($userloadpercent>100.0)\|\|($loadpercent>100.0))) {	(($userloadpercent>100.0)\|\|($loadpercent>100.0))) {
$otherserver=Apache::lonnet::spareserver($loadpercent,$userloadpercent);	my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
	if ($unloaded) { $otherserver=$unloaded; }
}	}

# ----------------------------------------------------------- Get announcements	# ----------------------------------------------------------- Get announcements
Line 169 ENDTROUBLE	Line 170 ENDTROUBLE

# ----------------------------------------------- Apparently we are in business	# ----------------------------------------------- Apparently we are in business

my $domainlogo=&Apache::loncommon::domainlogo();	my $domainlogo=&Apache::loncommon::domainlogo($domain);
$servadm=~s/\,/\<br \/\>/g;	$servadm=~s/\,/\<br \/\>/g;
$sysadm=~s/\,/\<br \/\>/g;	$sysadm=~s/\,/\<br \/\>/g;