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

Diff for /loncom/cgi/clusterstatus.pl between versions 1.22 and 1.23

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); }
  }   }
Removed from v.1.22  
changed lines
  Added in v.1.23

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