[BACK]Return to clusterstatus.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/clusterstatus.pl between versions 1.9 and 1.10

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'>&nbsp;</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">&nbsp;</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;
Removed from v.1.9  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>