version 1.9, 2003/07/31 15:35:02
|
version 1.10, 2003/07/31 16:07:47
|
Line 178 sub serverstatus {
|
Line 178 sub serverstatus {
|
<tr><td bgcolor="#BBDDBB"><font color="#225522" face="arial"><b> |
<tr><td bgcolor="#BBDDBB"><font color="#225522" face="arial"><b> |
$local $hostdom{$local}</b> <tt>($hostname{$local}; $hostrole{$local})</tt> |
$local $hostdom{$local}</b> <tt>($hostname{$local}; $hostrole{$local})</tt> |
<br />$domaindescription{$hostdom{$local}} |
<br />$domaindescription{$hostdom{$local}} |
</font></th></tr><tr><td bgcolor="DDDDBB"><font color="#225522"> |
</font></th></tr><tr><td bgcolor="#DDDDBB"><font color="#225522"> |
ENDHEADER |
ENDHEADER |
&login($local);&server($local);&users($local);&versions($local); |
&login($local);&server($local);&users($local);&versions($local); |
&loncron($local);&lond($local);&lonc($local);&runloncron($local); |
&loncron($local);&lond($local);&lonc($local);&runloncron($local); |
Line 277 $mode=$FORM{'mode'};
|
Line 277 $mode=$FORM{'mode'};
|
unless ($modes{$mode}) { $mode='trouble'; } |
unless ($modes{$mode}) { $mode='trouble'; } |
# ================================================================ Send Headers |
# ================================================================ Send Headers |
print "Content-type: text/html\n\n". |
print "Content-type: text/html\n\n". |
"<html><body bgcolor=#FFFFFF>\n"; |
"<html><body bgcolor='#FFFFFF'>\n"; |
# -------------------- Read loncapa.conf (and by default, loncapa_apache.conf). |
# -------------------- Read loncapa.conf (and by default, loncapa_apache.conf). |
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf'); |
%perlvar=%{$perlvarref}; |
%perlvar=%{$perlvarref}; |
Line 324 delete $perlvar{'lonSqlAccess'}; # remov
|
Line 324 delete $perlvar{'lonSqlAccess'}; # remov
|
} |
} |
|
|
|
|
print "<h1>Cluster Status ".localtime()."</h1>"; |
print "<img src='/adm/lonIcons/lonlogos.gif' align='right' /><h1>LON-CAPA Cluster Status ".localtime()."</h1>"; |
print "<form name='prgstat'>\n". |
print "<form name='prgstat'>\n". |
"<input type='text' name='progress' value='Starting ...' size='100' /><br />". |
"<input type='text' name='progress' value='Starting ...' size='100' /><br />". |
"</form>\n";; |
"</form>\n";; |
Line 424 foreach $local (sort keys %hostname) {
|
Line 424 foreach $local (sort keys %hostname) {
|
foreach (&doomedness($mode)) { |
foreach (&doomedness($mode)) { |
&serverstatus($_); |
&serverstatus($_); |
} |
} |
|
} elsif ($mode eq 'connections') { |
|
print |
|
"<table cellspacing='3' cellpadding='3' border='0' bgcolor='#225522'>". |
|
"<tr><td bgcolor='#225522'> </td>"; |
|
foreach (sort keys %hostname) { |
|
my $remote=$_; |
|
print '<th bgcolor="#DDDDBB">'.$remote.'</th>'; |
|
} |
|
print "</tr>\n"; |
|
# connection matrix |
|
foreach (sort keys %hostname) { |
|
my $local=$_; |
|
print '<tr><th bgcolor="#DDDDBB">'.$local.'</th>'; |
|
foreach (sort keys %hostname) { |
|
my $remote=$_; |
|
if ($connectionstatus{$local.'_TO_'.$remote} eq 'not_yet') { |
|
print '<td bgcolor="#FFFFFF"> </td>'; |
|
} elsif ($connectionstatus{$local.'_TO_'.$remote} eq 'ok') { |
|
print |
|
'<td bgcolor="#BBDDBB"><font color="#225522" face="arial"><b>ok</b></td>'; |
|
} else { |
|
print |
|
'<td bgcolor="#DDBBBB"><font color="#552222" size="-2">'. |
|
$connectionstatus{$local.'_TO_'.$remote}.'<br />'; |
|
&lonc($local); &lond($remote); |
|
print '</td>'; |
|
} |
|
} |
|
print "</tr>\n"; |
|
} |
} |
} |
|
print "</table>"; |
# ============================================================== Close, refresh |
# ============================================================== Close, refresh |
print "</form><script>"; |
print "</form><script>"; |
$runtime=time-$starttime; |
$runtime=time-$starttime; |