--- loncom/cgi/clusterstatus.pl	2003/07/31 15:35:02	1.9
+++ loncom/cgi/clusterstatus.pl	2003/07/31 16:07:47	1.10
@@ -3,7 +3,7 @@ $|=1;
 # The LearningOnline Network with CAPA
 # Cluster Status
 #
-# $Id: clusterstatus.pl,v 1.9 2003/07/31 15:35:02 www Exp $
+# $Id: clusterstatus.pl,v 1.10 2003/07/31 16:07:47 www Exp $
 
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
@@ -178,7 +178,7 @@ sub serverstatus {
 <tr><td bgcolor="#BBDDBB"><font color="#225522" face="arial"><b>
 $local $hostdom{$local}</b> <tt>($hostname{$local}; $hostrole{$local})</tt>
 <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
     &login($local);&server($local);&users($local);&versions($local);
     &loncron($local);&lond($local);&lonc($local);&runloncron($local);
@@ -277,7 +277,7 @@ $mode=$FORM{'mode'};
 unless ($modes{$mode}) { $mode='trouble'; }
 # ================================================================ Send Headers
 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).
 my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
 %perlvar=%{$perlvarref};
@@ -324,7 +324,7 @@ 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".
 "<input type='text' name='progress' value='Starting ...' size='100' /><br />".
 "</form>\n";;
@@ -424,7 +424,38 @@ foreach $local (sort keys %hostname) {
 	foreach (&doomedness($mode)) {
 	    &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
 print "</form><script>";
 $runtime=time-$starttime;

	'.$remote.'
'.$local.'		ok	'. + $connectionstatus{$local.'_TO_'.$remote}.' '; + &lonc($local); &lond($remote); + print '