version 1.21, 2003/09/01 03:37:27
|
version 1.24, 2005/04/13 18:30:46
|
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'); |
|
} |
|
|
|
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 274 ENDHEADER
|
Line 303 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 308 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 393 foreach my $local (sort keys %hostname)
|
Line 429 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 561 sub reports {
|
Line 610 sub reports {
|
} |
} |
if ($host{$local.'_errors'}) { |
if ($host{$local.'_errors'}) { |
$trouble='Has loncron errors.<br />'; |
$trouble='Has loncron errors.<br />'; |
} elsif ($host{$local.'_loncron_doomed'}>600) { |
} elsif ($host{$local.'_loncron_doomed'}>2500) { |
$trouble='High loncron count.<br />'; |
$trouble='High loncron count.<br />'; |
} |
} |
if ($host{$local.'_load_doomed'}>5) { |
if ($host{$local.'_load_doomed'}>5) { |
Line 576 sub reports {
|
Line 625 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='Rerouting<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."; } |