| '.
$local.
- ' | ';
- &server();
+ '
'.
+ $domaindescription{$hostdom{$local}}.
+ ' | ';
+ &server($local);
print
' | '.
$host{$local.'_load_doomed'}.' | 3) {
+ $trouble='Does not respond to several queries.
';
+ }
if ($host{$local.'_errors'}) {
$trouble='Has loncron errors.
';
- } elsif ($host{$local.'_loncron_doomed'}>600) {
+ } elsif ($host{$local.'_loncron_doomed'}>2500) {
$trouble='High loncron count.
';
}
if ($host{$local.'_load_doomed'}>5) {
@@ -566,17 +625,156 @@ foreach $local (sort keys %hostname) {
if ($host{$local.'_checkrpms_doomed'}>100) {
$trouble='RPMs outdated.
';
}
+ if ($host{$local.'_reroute'}) {
+ $trouble='Rerouting
';
+ }
if ($trouble) { $count++; &serverstatus($local,$trouble); }
}
unless ($count) { print "No mayor trouble."; }
}
+}
+
+# ====================================================================== Status
+sub statuslist {
+ my ($local,$what)=@_;
+ print
+"\n";
+}
+
+# =============================================================================
+# =============================================================================
+# Main program
+#
+# ========================================================= Get form parameters
+my $buffer;
+
+read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+my @pairs=split(/&/,$buffer);
+my $pair; my $name; my $value;
+undef %FORM;
+%FORM=();
+foreach $pair (@pairs) {
+ ($name,$value) = split(/=/,$pair);
+ $value =~ tr/+/ /;
+ $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+ $FORM{$name}=$value;
+}
+
+$buffer=$ENV{'QUERY_STRING'};
+@pairs=split(/&/,$buffer);
+foreach $pair (@pairs) {
+ ($name,$value) = split(/=/,$pair);
+ $value =~ tr/+/ /;
+ $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+ $FORM{$name}=$value;
+}
+
+# ====================================================== Determine refresh rate
+
+my $refresh=(($FORM{'refresh'}=~/^\d+$/)?$FORM{'refresh'}:30);
+if ($refresh<30) { $refresh=30; }
+my $starttime=time;
+
+# ============================================================== Determine mode
+
+my %modes=('trouble' => 'Trouble',
+ 'users_doomed' => 'Doomed: Users',
+ 'loncron_doomed' => 'Doomed: General (loncron)',
+ 'mysql_doomed' => 'Doomed: Database (mysql)',
+ 'notconnected_doomed' => 'Doomed: Connections',
+ 'checkrpms_doomed' => 'Doomed: RPMs',
+ 'load_doomed' => 'Doomed: Load',
+ 'unresponsive_doomed' => 'Doomed: Status could not be determined',
+ 'users' => 'User Report',
+ 'load' => 'Load Report',
+ 'connections' => 'Connections Matrix');
+
+$mode=$FORM{'mode'};
+unless ($modes{$mode}) { $mode='trouble'; }
+# ================================================================ Send Headers
+print "Content-type: text/html\n\n".
+ "\n";
+# -------------------- Read loncapa.conf (and by default, loncapa_apache.conf).
+my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
+%perlvar=%{$perlvarref};
+undef $perlvarref; # remove since sensitive and not needed
+delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
+delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
+
+# ------------------------------------------------------------- Read hosts file
+{
+ my $config=IO::File->new("$perlvar{'lonTabDir'}/hosts.tab");
+
+ while (my $configline=<$config>) {
+ $configline=~s/#.*$//;
+ unless ($configline=~/\w/) { next; }
+ my ($id,$domain,$role,$name,$ip)=split(/:/,$configline);
+ $hostname{$id}=$name;
+ $hostdom{$id}=$domain;
+ $hostrole{$id}=$role;
+ $hostip{$id}=$ip;
+ if (($role eq 'library') && ($id ne $perlvar{'lonHostID'})) {
+ $libserv{$id}=$name;
+ }
+ }
+}
+# ------------------------------------------------------------ Read domain file
+{
+ my $fh=IO::File->new($perlvar{'lonTabDir'}.'/domain.tab');
+ if ($fh) {
+ while (<$fh>) {
+ next if (/^(\#|\s*$)/);
+ chomp;
+ 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;
+ $domain_lang_def{$domain}=$def_lang;
+ $domain_city{$domain}=$city;
+ $domain_longi{$domain}=$longi;
+ $domain_lati{$domain}=$lati;
+ }
+ }
+}
+
+print " LON-CAPA Cluster Status ".localtime()."";
+print "\n";;
+print " |