version 1.56, 2004/03/16 20:42:50
|
version 1.58, 2004/08/10 18:55:13
|
Line 134 ENDFAILED
|
Line 134 ENDFAILED
|
$loadavg=<$loadfile>; |
$loadavg=<$loadfile>; |
} |
} |
$loadavg =~ s/\s.*//g; |
$loadavg =~ s/\s.*//g; |
my $loadpercent=100*$loadavg/$loadlim; |
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim); |
my $userloadpercent=&Apache::lonnet::userload(); |
my $userloadpercent=&Apache::lonnet::userload(); |
|
|
# ------------------------------------------------------- Do the load balancing |
# ------------------------------------------------------- Do the load balancing |
Line 179 ENDFAILED
|
Line 179 ENDFAILED
|
|
|
if ($logtoken eq 'con_lost') { |
if ($logtoken eq 'con_lost') { |
my $spares=''; |
my $spares=''; |
foreach (keys %Apache::lonnet::hostname) { |
|
if ($_ ne $lonhost) { |
foreach my $hostid (keys(%Apache::lonnet::spareid)) { |
$spares.='<br /><a href="http://'.$Apache::lonnet::hostname{$_}. |
next if ($hostid eq $lonhost); |
'/adm/login?domain='.$authdomain.'">'. |
$spares.='<br /><font size="+1"><a href="http://'. |
$Apache::lonnet::hostname{$_}.'</a>'; |
$Apache::lonnet::hostname{$hostid}. |
if ($Apache::lonnet::spareid{$_}) { |
'/adm/login?domain='.$authdomain.'">'. |
$spares.=' (preferred)'; |
$Apache::lonnet::hostname{$hostid}.'</a>'. |
} |
' (preferred)</font>'.$/; |
} |
} |
|
$spares.= '<br />'; |
|
foreach my $hostid (keys(%Apache::lonnet::hostname)) { |
|
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); |
|
$spares.='<br /><a href="http://'. |
|
$Apache::lonnet::hostname{$hostid}. |
|
'/adm/login?domain='.$authdomain.'">'. |
|
$Apache::lonnet::hostname{$hostid}.'</a>'; |
} |
} |
$r->print(<<ENDTROUBLE); |
$r->print(<<ENDTROUBLE); |
<html> |
<html> |