--- loncom/cgi/clusterstatus.pl	2003/08/01 19:20:26	1.14
+++ loncom/cgi/clusterstatus.pl	2003/08/05 12:52:23	1.15
@@ -3,7 +3,7 @@ $|=1;
 # The LearningOnline Network with CAPA
 # Cluster Status
 #
-# $Id: clusterstatus.pl,v 1.14 2003/08/01 19:20:26 www Exp $
+# $Id: clusterstatus.pl,v 1.15 2003/08/05 12:52:23 www Exp $
 
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
@@ -206,6 +206,10 @@ ENDHEADER
 	print ("<tr><td bgcolor='#DDBBBB'><font color='#552222' size='+2'>$trouble</font></td></tr>");
     }
     print "<tr><td bgcolor='#BBBBBB'>";
+# version
+    if ($host{$local.'_version'}) {
+	print "<br />Version: ".$host{$local.'_version'}
+    }
 # load
     if (($host{$local.'_load_doomed'}>0.5) || ($mode eq 'load_doomed')) {
 	print "<br />Load: ".$host{$local.'_load'}
@@ -393,6 +397,15 @@ foreach $local (sort keys %hostname) {
 	    $host{$local.'_errors'}=$loncron{'errors'};
 	}
     }
+# -- Check version
+    &statuslist($local,'Version');
+    my $version=&request($local,'/lon-status/version.txt',7200);
+    if ($version eq 'local_error') {
+	$host{$local.'_version'}='Could not determine.';
+	$host{$local.'_unresponsive_doomed'}++;
+    } else {
+	$host{$local.'_version'}=$version;
+    }
 # -- Check user status
     &statuslist($local,'Users');
     my %userstatus=&replyhash($local,'/cgi-bin/userstatus.pl?simple',600);
@@ -570,6 +583,9 @@ foreach $local (sort keys %hostname) {
 	my $count=0;
 	foreach $local (sort keys %hostname) {
 	    my $trouble='';
+	    if ($host{$local.'_unresponsive_doomed'}>3) {
+		$trouble='Does not respond to several queries.<br />';
+	    }
 	    if ($host{$local.'_errors'}) {
 		$trouble='Has loncron errors.<br />';
 	    } elsif ($host{$local.'_loncron_doomed'}>600) {