--- loncom/cgi/clusterstatus.pl	2003/08/13 21:41:47	1.18
+++ loncom/cgi/clusterstatus.pl	2003/08/20 01:34:25	1.19
@@ -3,7 +3,7 @@ $|=1;
 # The LearningOnline Network with CAPA
 # Cluster Status
 #
-# $Id: clusterstatus.pl,v 1.18 2003/08/13 21:41:47 www Exp $
+# $Id: clusterstatus.pl,v 1.19 2003/08/20 01:34:25 www Exp $
 
 use lib '/home/httpd/lib/perl/';
 use LONCAPA::Configuration;
@@ -26,6 +26,10 @@ my $fromcache;
 my %domaindescription = ();
 my %domain_auth_def = ();
 my %domain_auth_arg_def = ();
+my %domain_lang_def=();
+my %domain_city=();
+my %domain_longi=();
+my %domain_lati=();
 
 my %hostname=();
 my %hostip=();
@@ -238,6 +242,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}}
+$domain_city{$hostdom{$local}}
 </font></th></tr><tr><td bgcolor="#DDDDBB"><font color="#225522">
 ENDHEADER
     &login($local);&server($local);&users($local);&versions($local);
@@ -647,11 +652,15 @@ delete $perlvar{'lonSqlAccess'}; # remov
        while (<$fh>) {
            next if (/^(\#|\s*$)/);
            chomp;
-           my ($domain, $domain_description, $def_auth, $def_auth_arg)
-               = split(/:/,$_,4);
-           $domain_auth_def{$domain}=$def_auth;
+           my ($domain, $domain_description, $def_auth, $def_auth_arg,
+	       $def_lang, $city, $longi, $lati) = split(/:/,$_);
+	   $domain_auth_def{$domain}=$def_auth;
            $domain_auth_arg_def{$domain}=$def_auth_arg;
-           $domaindescription{$domain}=$domain_description;
+	   $domaindescription{$domain}=$domain_description;
+	   $domain_lang_def{$domain}=$def_lang;
+	   $domain_city{$domain}=$city;
+	   $domain_longi{$domain}=$longi;
+	   $domain_lati{$domain}=$lati;
        }
     }
 }