[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /cgi clusterstatus.pl
From:       www <lon-capa-cvs () mail ! lon-capa ! org>
Date:       2003-07-31 19:55:38
Message-ID: cvswww1059681338 () cvsserver
[Download RAW message or body]

www		Thu Jul 31 15:55:38 2003 EDT

  Modified files:              
    /loncom/cgi	clusterstatus.pl 
  Log:
  Needs server name to work.
  
  
Index: loncom/cgi/clusterstatus.pl
diff -u loncom/cgi/clusterstatus.pl:1.11 loncom/cgi/clusterstatus.pl:1.12
--- loncom/cgi/clusterstatus.pl:1.11	Thu Jul 31 15:18:16 2003
+++ loncom/cgi/clusterstatus.pl	Thu Jul 31 15:55:37 2003
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # Cluster Status
 #
-# $Id: clusterstatus.pl,v 1.11 2003/07/31 19:18:16 www Exp $
+# $Id: clusterstatus.pl,v 1.12 2003/07/31 19:55:37 www Exp $
 
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
@@ -509,7 +509,7 @@
 		    print 
 '<tr><th bgcolor="#BBDDBB"><font face="arial" color="#225522" size="+1">'.$local.
 			'</font></th><td bgcolor="#DDDDBB">';
-		    &users();
+		    &users($local);
 		    print 
 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
 	      $host{$local.'_users'}.'</font></td><td bgcolor="#DDDDBB"';
@@ -533,7 +533,7 @@
 '<tr><th bgcolor="#BBDDBB"><font face="arial" color="#225522" size="+1">'.
                         $local.
 			'</font></th><td bgcolor="#DDDDBB">';
-		    &server();
+		    &server($local);
 		    print 
 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
 	      $host{$local.'_load_doomed'}.'</font></td><td bgcolor="#DDDDBB"';



[prev in list] [next in list] [prev in thread] [next in thread]