version 1.22, 2003/09/14 18:24:34
|
version 1.23, 2003/09/14 19:00:03
|
Line 247 sub takeonline {
|
Line 247 sub takeonline {
|
print &otherwindow($local,'/cgi-bin/takeonline.pl','Take online'); |
print &otherwindow($local,'/cgi-bin/takeonline.pl','Take online'); |
} |
} |
|
|
|
sub takeoffline { |
|
my $local=shift; |
|
print &otherwindow($local,'/cgi-bin/takeoffline.pl','Take offline'); |
|
} |
|
|
|
sub reroute { |
|
my ($local,$remote)=@_; |
|
print &otherwindow($local,'/cgi-bin/takeoffline.pl?'. |
|
$hostname{$remote}.'&'.$hostdom{$local} |
|
,$remote)."\n"; |
|
} |
|
|
|
sub allreroutes { |
|
my $local=shift; |
|
&takeoffline($local); |
|
print ' Reroute to: <font size="1">'; |
|
foreach my $remote (sort keys %hostname) { |
|
unless ($local eq $remote) { |
|
&reroute($local,$remote); |
|
} |
|
} |
|
print '</font>'; |
|
} |
|
|
# ========================================================= Produce a green bar |
# ========================================================= Produce a green bar |
sub bar { |
sub bar { |
my $parm=shift; |
my $parm=shift; |
Line 318 ENDHEADER
|
Line 342 ENDHEADER
|
if ($host{$local.'_errors'}) { |
if ($host{$local.'_errors'}) { |
print "<br />loncron errors: ".$host{$local.'_errors'}; |
print "<br />loncron errors: ".$host{$local.'_errors'}; |
} |
} |
|
print "</td></tr><tr><td bgcolor='#DDDDDD'>"; |
|
&allreroutes($local); |
print "</td></tr></table><br />"; |
print "</td></tr></table><br />"; |
} |
} |
|
|
Line 600 sub reports {
|
Line 626 sub reports {
|
$trouble='RPMs outdated.<br />'; |
$trouble='RPMs outdated.<br />'; |
} |
} |
if ($host{$local.'_reroute'}) { |
if ($host{$local.'_reroute'}) { |
$trouble='Re-Routing<br >'; |
$trouble='Rerouting<br >'; |
} |
} |
if ($trouble) { $count++; &serverstatus($local,$trouble); } |
if ($trouble) { $count++; &serverstatus($local,$trouble); } |
} |
} |