|
-$local $hostdom{$local} ($hostname{$local}; $hostrole{$local})
- $domaindescription{$hostdom{$local}} -$domain_city{$hostdom{$local}} +$local $hostdom{$local} ($hostname{$local}); $hostrole + $domaininfo{$hostdom{$local}}{'description'} +$domaininfo{$hostdom{$local}}{'city'} | ||||||
| ENDHEADER &login($local);&server($local);&users($local);&versions($local); &announcement($local); &loncron($local);&lond($local);&lonc($local);&runloncron($local); - print " | ||||||
| $trouble | ||||||
| $trouble | ||||||
| "; + print(" | ||||||
| ");
# re-routing
if ($host{$local.'_reroute'}) {
- print " Reroute: ".$host{$local.'_reroute'}; + print(' '.$lt{'rero'}.' '.$host{$local.'_reroute'}); &takeonline($local); } # version if ($host{$local.'_version'}) { - print " Version: ".$host{$local.'_version'} + print(' '.$lt{'vers'}.' '.$host{$local.'_version'}); } # load if (($host{$local.'_load_doomed'}>0.5) || ($mode eq 'load_doomed')) { - print " Load: ".$host{$local.'_load'} + print(' '.$lt{'load'}.' '.$host{$local.'_load'}); } # users if (($host{$local.'_users_doomed'}>10) || ($mode eq 'users_doomed')) { - print " Active Users: ".$host{$local.'_users'} + print(' '.$lt{'acti'}.' '.$host{$local.'_users'}); } # checkrpms if ($host{$local.'_checkrpms'}) { - print " RPMs: ".$host{$local.'_checkrpms'} + print(' '.$lt{'rpms'}.' '.$host{$local.'_checkrpms'}); } # mysql if ($host{$local.'_mysql'}) { - print " MySQL Database: ".$host{$local.'_mysql'} + print(' '.$lt{'mysq'}.' '.$host{$local.'_mysql'}); } # connections if ($host{$local.'_notconnected'}) { - print " Not connected: "; - foreach (split(/ /,$host{$local.'_notconnected'})) { - if ($_) { - print " $_"; + print(' '.$lt{'notc'}.' '); + foreach my $item (split(/ /,$host{$local.'_notconnected'})) { + if ($item) { + print(' '.$item.''); } } } # errors if ($host{$local.'_errors'}) { - print " loncron errors: ".$host{$local.'_errors'}; + print(' '.$lt{'lonc'}.' '.$host{$local.'_errors'}); } print " | ||||||
| "; &allreroutes($local); @@ -380,7 +397,7 @@ sub mainloop { &resetvars(); # ==================================================== Main Loop over all Hosts -foreach my $local (sort keys %hostname) { +foreach my $local (sort(keys(%hostname))) { $host{$local.'_unresponsive_doomed'}=0; # -- Check general status &statuslist($local,'General'); @@ -450,7 +467,7 @@ foreach my $local (sort keys %hostname) $host{$local.'_unresponsive_doomed'}++; } else { if ((time-$mysql{'time'})>(7*$oneday)) { - if ($hostrole{$local} eq 'library') { + if (exists($libserv{$local})) { $host{$local.'_mysql'}='Stale.'; $host{$local.'_mysql_doomed'}=1; } @@ -527,7 +544,7 @@ sub reports { my $cellcolor='#BBDDBB'; if ($local eq $remote) { $cellcolor='#99DD99'; } print -' | ok | '; +''.&Apache::lonlocal::mt('ok').' | '; } else { my $cellcolor='#DDCCAA'; if ($connectionstatus{$local.'_TO_'.$remote} eq 'local_error') { @@ -553,27 +570,27 @@ sub reports { # Users if ($maxusers) { my $factor=50/$maxusers; - print "
| '.$local.
' '. - $domaindescription{$hostdom{$local}}. + $domaininfo{$hostdom{$local}}{'description'}. ' | '; &users($local); print ' | '. $host{$local.'_users'}.' |
'. - $domaindescription{$hostdom{$local}}. + $Apache::lonnet::domain{$hostdom{$local}}{'description'}. '
'; + $trouble=&Apache::lonlocal::mt('Does not respond to several queries.'). + '
'; } if ($host{$local.'_errors'}) { - $trouble='Has loncron errors.
'; - } elsif ($host{$local.'_loncron_doomed'}>600) { - $trouble='High loncron count.
'; + $trouble=&Apache::lonlocal::mt('Has loncron errors').'
'; + } elsif ($host{$local.'_loncron_doomed'}>2500) { + $trouble=&Apache::lonlocal::mt('High loncron count.').'
'; } if ($host{$local.'_load_doomed'}>5) { - $trouble='High load.
'; + $trouble=&Apache::lonlocal::mt('High load.').'
'; } if ($host{$local.'_users_doomed'}>200) { - $trouble='High user volume.
'; + $trouble=&Apache::lonlocal::mt('High user volume.').'
'; } if ($host{$local.'_mysql_doomed'}>1) { - $trouble='MySQL database apparently offline.
'; + $trouble=&Apache::lonlocal::mt('MySQL database apparently offline.').'
'; } if ($host{$local.'_checkrpms_doomed'}>100) { - $trouble='RPMs outdated.
'; + $trouble=&Apache::lonlocal::mt('RPMs outdated.').'
'; } if ($host{$local.'_reroute'}) { - $trouble='Rerouting
'; + $trouble=&Apache::lonlocal::&mt('Rerouting').'
'; } if ($trouble) { $count++; &serverstatus($local,$trouble); } } - unless ($count) { print "No mayor trouble."; } + unless ($count) { print &Apache::lonlocal::mt('No major trouble.'); } } } # ====================================================================== Status sub statuslist { my ($local,$what)=@_; - print -"\n"; + my $displaylocal; + if (defined($local)) { + $displaylocal = " $local ($hostname{$local})"; + } + print ''."\n"; } # ============================================================================= @@ -677,23 +699,23 @@ 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'); - +my %modes= &Apache::lonlocal::texthash ( + '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"; +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}; @@ -701,72 +723,80 @@ undef $perlvarref; # remove since sensit 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; - } +if (!&LONCAPA::loncgi::check_cookie_and_load_env()) { + &Apache::lonlocal::get_language_handle(); + print(&LONCAPA::loncgi::missing_cookie_msg()); + exit; +} + +if (!&LONCAPA::lonauthcgi::can_view('clusterstatus')) { + &Apache::lonlocal::get_language_handle(); + print &LONCAPA::lonauthcgi::unauthorized_msg('clusterstatus'); + exit; +} + +&Apache::lonlocal::get_language_handle(); + +my $scope = 'Domain'; +if ($Apache::lonnet::env{'request.role'} =~ m{^su\./}) { + %hostname = %allhostname; + $scope = 'Cluster'; +} else { + my $roledom = $env{'request.role.domain'}; + if ((!$roledom) || ($roledom eq 'public')) { + print &LONCAPA::lonauthcgi::unauthorized_msg('clusterstatus'); + exit; + } + undef(%hostname); + my @poss_domains = &Apache::lonnet::current_machine_domains(); + if (!grep(/^\Q$roledom\E$/,@poss_domains)) { + my $home = &Apache::lonnet::domain($roledom,'primary'); + print &LONCAPA::lonauthcgi::unauthorized_msg('clusterstatus'); + print '
'.&mt("You need to select a role in this server's domain ([_1]) to display domain status for this server and other servers in the domain.",$roledom).'
'; + if ($home) { + print ''.&mt("Alternatively, you'll need to [_1]switch server[_2] to display domain status for servers in the domain of your current role ([_3]).",'','',$roledom).'/span>'; + } + exit; + } + foreach my $host (keys(%allhostname)) { + if (grep(/^\Q$hostdom{$host}\E$/,@poss_domains)) { + $hostname{$host} = $allhostname{$host}; + } } } -print "
LON-CAPA Cluster Status ".localtime()."
"; +print ''.&Apache::lonlocal::mt("LON-CAPA $scope Status").' '.localtime()."
"; print "\n";; +''. +"\n"; print ""; exit 0;