version 1.63, 2005/04/07 06:56:21
|
version 1.64, 2005/04/28 01:19:20
|
Line 179 ENDFAILED
|
Line 179 ENDFAILED
|
|
|
if ($logtoken eq 'con_lost') { |
if ($logtoken eq 'con_lost') { |
my $spares=''; |
my $spares=''; |
|
my $last; |
foreach my $hostid (keys(%Apache::lonnet::spareid)) { |
foreach my $hostid (sort |
|
{ |
|
$Apache::lonnet::hostname{$a} cmp |
|
$Apache::lonnet::hostname{$b}; |
|
} |
|
keys(%Apache::lonnet::spareid)) { |
next if ($hostid eq $lonhost); |
next if ($hostid eq $lonhost); |
|
next if ($last eq $Apache::lonnet::hostname{$hostid}); |
$spares.='<br /><font size="+1"><a href="http://'. |
$spares.='<br /><font size="+1"><a href="http://'. |
$Apache::lonnet::hostname{$hostid}. |
$Apache::lonnet::hostname{$hostid}. |
'/adm/login?domain='.$authdomain.'">'. |
'/adm/login?domain='.$authdomain.'">'. |
$Apache::lonnet::hostname{$hostid}.'</a>'. |
$Apache::lonnet::hostname{$hostid}.'</a>'. |
' (preferred)</font>'.$/; |
' (preferred)</font>'.$/; |
|
$last=$Apache::lonnet::hostname{$hostid}; |
} |
} |
$spares.= '<br />'; |
$spares.= '<br />'; |
foreach my $hostid (keys(%Apache::lonnet::hostname)) { |
foreach my $hostid (sort |
|
{ |
|
$Apache::lonnet::hostname{$a} cmp |
|
$Apache::lonnet::hostname{$b}; |
|
} |
|
keys(%Apache::lonnet::hostname)) { |
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); |
next if ($hostid eq $lonhost || $Apache::lonnet::spareid{$hostid}); |
|
next if ($last eq $Apache::lonnet::hostname{$hostid}); |
$spares.='<br /><a href="http://'. |
$spares.='<br /><a href="http://'. |
$Apache::lonnet::hostname{$hostid}. |
$Apache::lonnet::hostname{$hostid}. |
'/adm/login?domain='.$authdomain.'">'. |
'/adm/login?domain='.$authdomain.'">'. |
$Apache::lonnet::hostname{$hostid}.'</a>'; |
$Apache::lonnet::hostname{$hostid}.'</a>'; |
|
$last=$Apache::lonnet::hostname{$hostid}; |
} |
} |
$r->print(<<ENDTROUBLE); |
$r->print(<<ENDTROUBLE); |
<html> |
<html> |