version 1.139, 2010/08/22 21:51:11
|
version 1.140, 2010/08/25 16:34:32
|
Line 152 sub handler {
|
Line 152 sub handler {
|
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
my $userloadpercent=&Apache::lonnet::userload(); |
my $userloadpercent=&Apache::lonnet::userload(); |
|
|
# ------------------------------------------------------- Do the load balancing |
|
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 overloaded? |
|
if ((($userloadpercent>100.0)||($loadpercent>100.0))) { |
|
my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent); |
|
if ($unloaded) { $otherserver=$unloaded; } |
|
} |
|
|
|
# ----------------------------------------------------------- Get announcements |
# ----------------------------------------------------------- Get announcements |
my $announcements=&Apache::lonnet::getannounce(); |
my $announcements=&Apache::lonnet::getannounce(); |
# -------------------------------------------------------- Set login parameters |
# -------------------------------------------------------- Set login parameters |
Line 384 $r->print(
|
Line 376 $r->print(
|
# |
# |
|
|
$r->print(<<ENDSERVERFORM); |
$r->print(<<ENDSERVERFORM); |
<form name="server" action="$otherserver/adm/authenticate" method="post" target="_top"> |
<form name="server" action="/adm/authenticate" method="post" target="_top"> |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<input type="hidden" name="logtoken" value="$logtoken" /> |
<input type="hidden" name="serverid" value="$lonhost" /> |
<input type="hidden" name="serverid" value="$lonhost" /> |
<input type="hidden" name="uname" value="" /> |
<input type="hidden" name="uname" value="" /> |