version 1.21, 2003/09/01 03:37:27
|
version 1.22, 2003/09/14 18:24:34
|
Line 242 sub announcement {
|
Line 242 sub announcement {
|
print &otherwindow($local,'/announcement.txt','Announcement'); |
print &otherwindow($local,'/announcement.txt','Announcement'); |
} |
} |
|
|
|
sub takeonline { |
|
my $local=shift; |
|
print &otherwindow($local,'/cgi-bin/takeonline.pl','Take online'); |
|
} |
|
|
# ========================================================= Produce a green bar |
# ========================================================= Produce a green bar |
sub bar { |
sub bar { |
my $parm=shift; |
my $parm=shift; |
Line 274 ENDHEADER
|
Line 279 ENDHEADER
|
print ("<tr><td bgcolor='#DDBBBB'><font color='#552222' size='+2'>$trouble</font></td></tr>"); |
print ("<tr><td bgcolor='#DDBBBB'><font color='#552222' size='+2'>$trouble</font></td></tr>"); |
} |
} |
print "<tr><td bgcolor='#BBBBBB'>"; |
print "<tr><td bgcolor='#BBBBBB'>"; |
|
# re-routing |
|
if ($host{$local.'_reroute'}) { |
|
print "<br />Reroute: ".$host{$local.'_reroute'}; |
|
&takeonline($local); |
|
} |
# version |
# version |
if ($host{$local.'_version'}) { |
if ($host{$local.'_version'}) { |
print "<br />Version: ".$host{$local.'_version'} |
print "<br />Version: ".$host{$local.'_version'} |
Line 393 foreach my $local (sort keys %hostname)
|
Line 403 foreach my $local (sort keys %hostname)
|
} |
} |
$host{$local.'_load'}=$userstatus{'loadavg'}; |
$host{$local.'_load'}=$userstatus{'loadavg'}; |
} |
} |
|
# -- Check reroute status |
|
&statuslist($local,'Reroute'); |
|
my %reroute=&replyhash($local,'/lon-status/reroute.txt',1800); |
|
if ($reroute{'status'} eq 'rerouting') { |
|
if ($reroute{'server'}) { |
|
$host{$local.'_reroute'}= |
|
'Rerouting to <tt>'.$reroute{'server'}. |
|
'</tt>, domain: '.$reroute{'domain'}. |
|
' (since '.localtime($reroute{'time'}).')'; |
|
} else { |
|
$host{$local.'_reroute'}='offline'; |
|
} |
|
} |
# -- Check mysql status |
# -- Check mysql status |
&statuslist($local,'Database'); |
&statuslist($local,'Database'); |
my %mysql=&replyhash($local,'/lon-status/mysql.txt',3600); |
my %mysql=&replyhash($local,'/lon-status/mysql.txt',3600); |
Line 576 sub reports {
|
Line 599 sub reports {
|
if ($host{$local.'_checkrpms_doomed'}>100) { |
if ($host{$local.'_checkrpms_doomed'}>100) { |
$trouble='RPMs outdated.<br />'; |
$trouble='RPMs outdated.<br />'; |
} |
} |
|
if ($host{$local.'_reroute'}) { |
|
$trouble='Re-Routing<br >'; |
|
} |
if ($trouble) { $count++; &serverstatus($local,$trouble); } |
if ($trouble) { $count++; &serverstatus($local,$trouble); } |
} |
} |
unless ($count) { print "No mayor trouble."; } |
unless ($count) { print "No mayor trouble."; } |