--- loncom/auth/lonlogin.pm 2010/08/22 21:51:11 1.139 +++ loncom/auth/lonlogin.pm 2010/08/25 16:34:32 1.140 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.139 2010/08/22 21:51:11 raeburn Exp $ +# $Id: lonlogin.pm,v 1.140 2010/08/25 16:34:32 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -152,16 +152,8 @@ sub handler { my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); my $userloadpercent=&Apache::lonnet::userload(); -# ------------------------------------------------------- Do the load balancing - my $otherserver= &Apache::lonnet::absolute_url($host_name); my $firsturl= ($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); -# ---------------------------------------------------------- Are we overloaded? - if ((($userloadpercent>100.0)||($loadpercent>100.0))) { - my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent); - if ($unloaded) { $otherserver=$unloaded; } - } - # ----------------------------------------------------------- Get announcements my $announcements=&Apache::lonnet::getannounce(); # -------------------------------------------------------- Set login parameters @@ -384,7 +376,7 @@ $r->print( # $r->print(< +