[LON-CAPA-cvs] cvs: loncom /cgi clusterstatus.pl
www
lon-capa-cvs@mail.lon-capa.org
Tue, 05 Aug 2003 18:47:21 -0000
www Tue Aug 5 14:47:21 2003 EDT
Modified files:
/loncom/cgi clusterstatus.pl
Log:
Smaller output, quicker building of connection matrix.
Index: loncom/cgi/clusterstatus.pl
diff -u loncom/cgi/clusterstatus.pl:1.16 loncom/cgi/clusterstatus.pl:1.17
--- loncom/cgi/clusterstatus.pl:1.16 Tue Aug 5 14:33:08 2003
+++ loncom/cgi/clusterstatus.pl Tue Aug 5 14:47:21 2003
@@ -3,7 +3,7 @@
# The LearningOnline Network with CAPA
# Cluster Status
#
-# $Id: clusterstatus.pl,v 1.16 2003/08/05 18:33:08 www Exp $
+# $Id: clusterstatus.pl,v 1.17 2003/08/05 18:47:21 www Exp $
use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;
@@ -303,7 +303,7 @@
$stat_total=0;
$stat_notyet=0;
$stat_fromcache=0;
-
+ $concount=0;
undef %host;
%host=();
}
@@ -431,12 +431,12 @@
"<table cellspacing='3' cellpadding='3' border='0' bgcolor='#225522'>".
"<tr><td bgcolor='#225522'> </td>";
foreach my $remote (sort keys %hostname) {
- print '<th bgcolor="#DDDDBB">'.$remote.'</th>';
+ print '<td bgcolor="#DDDDBB">'.$remote.'</td>';
}
print "</tr>\n";
# connection matrix
foreach my $local (sort keys %hostname) {
- print '<tr><th bgcolor="#DDDDBB">'.$local.'</th>';
+ print '<tr><td bgcolor="#DDDDBB">'.$local.'</td>';
foreach my $remote (sort keys %hostname) {
if ($connectionstatus{$local.'_TO_'.$remote} eq 'not_yet') {
my $cellcolor='#FFFFFF';