loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.95, 2007/10/01 21:52:50	version 1.97, 2007/10/09 16:27:08
Line 30 package Apache::lonlogin;	Line 30 package Apache::lonlogin;

use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use CGI::Cookie();
use Apache::File ();	use Apache::File ();
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon();	use Apache::loncommon();
Line 149 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; }
}	}