[LON-CAPA-cvs] cvs: loncom /cgi clusterstatus.pl

[raeburn]

raeburn		Fri Jul  3 14:20:26 2026 EDT

  Modified files:              
    /loncom/cgi	clusterstatus.pl 
  Log:
  - Fix malformed tags and unbalanced opening tags added in rev. 1.11
  
  
Index: loncom/cgi/clusterstatus.pl
diff -u loncom/cgi/clusterstatus.pl:1.28 loncom/cgi/clusterstatus.pl:1.29
--- loncom/cgi/clusterstatus.pl:1.28	Wed May 28 18:16:09 2014
+++ loncom/cgi/clusterstatus.pl	Fri Jul  3 14:20:26 2026
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # Generates a html page showing various status reports about the domain or cluster
-# $Id: clusterstatus.pl,v 1.28 2014/05/28 18:16:09 bisitz Exp $
+# $Id: clusterstatus.pl,v 1.29 2026/07/03 14:20:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -279,7 +279,7 @@
     for (my $i=0;$i<$number;$i++) {
 	print "+";
     }
-    print("</font></table>");
+    print("</font></td></tr></table>");
 }
 
 # ========================================================== Show server status
@@ -583,7 +583,7 @@
 		    &users($local);
 		    print 
 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
-	      $host{$local.'_users'}.'</font></td><td bgcolor="#DDDDBB"';
+	      $host{$local.'_users'}.'</font></td><td bgcolor="#DDDDBB">';
 		    &bar($factor*$host{$local.'_users'});
 		    print '</td></tr>'."\n";
 		}
@@ -609,7 +609,7 @@
 		    &server($local);
 		    print 
 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
-	      $host{$local.'_load_doomed'}.'</font></td><td bgcolor="#DDDDBB"';
+	      $host{$local.'_load_doomed'}.'</font></td><td bgcolor="#DDDDBB">';
 		    &bar($factor*$host{$local.'_load_doomed'});
 		    print "</td></tr>\n";
 		}