Annotation of loncom/cgi/clusterstatus.pl, revision 1.19

1.1       www         1: #!/usr/bin/perl
                      2: $|=1;
                      3: # The LearningOnline Network with CAPA
                      4: # Cluster Status
1.9       www         5: #
1.19    ! www         6: # $Id: clusterstatus.pl,v 1.18 2003/08/13 21:41:47 www Exp $
1.3       harris41    7: 
                      8: use lib '/home/httpd/lib/perl/';
                      9: use LONCAPA::Configuration;
1.16      www        10: use strict;
1.3       harris41   11: 
1.1       www        12: use LWP::UserAgent();
                     13: use HTTP::Headers;
                     14: use IO::File;
                     15: 
1.8       www        16: my %host=();
                     17: my $oneday=60*60*24;
                     18: 
                     19: my %connectionstatus=();
1.9       www        20: my %perlvar=();
                     21: 
                     22: my $mode;
1.14      www        23: my $concount=0;
1.16      www        24: my $fromcache;
                     25: 
                     26: my %domaindescription = ();
                     27: my %domain_auth_def = ();
                     28: my %domain_auth_arg_def = ();
1.19    ! www        29: my %domain_lang_def=();
        !            30: my %domain_city=();
        !            31: my %domain_longi=();
        !            32: my %domain_lati=();
1.16      www        33: 
                     34: my %hostname=();
                     35: my %hostip=();
                     36: my %hostdom=();
                     37: my %hostrole=();
                     38: my %libserv=();
                     39: 
                     40: my $maxusers=0;
                     41: my $maxload=0;
                     42: my $totalusers=0;
                     43: 
                     44: my %FORM=();
                     45: 
                     46: my $stat_total=0;
                     47: my $stat_notyet=0;
                     48: my $stat_fromcache=0;
1.9       www        49: 
                     50: sub select_form {
                     51:     my ($def,$name,%hash) = @_;
                     52:     my $selectform = "<select name=\"$name\" size=\"1\">\n";
                     53:     foreach (sort keys %hash) {
                     54:         $selectform.="<option value=\"$_\" ".
                     55:             ($_ eq $def ? 'selected' : '').
                     56:                 ">".$hash{$_}."</option>\n";
                     57:     }
                     58:     $selectform.="</select>";
                     59:     return $selectform;
                     60: }
                     61: 
1.8       www        62: 
                     63: sub key {
                     64:     my ($local,$url)=@_;
                     65:     my $key=$local.'_'.$url;
                     66:     $key=~s/\W/\_/gs;
                     67:     return $key;
                     68: }
                     69: 
                     70: sub hidden {
                     71:     my ($name,$value)=@_;
                     72:     print "\n<input type='hidden' name='$name' value='$value' />";
                     73: }
                     74: 
                     75: sub request {
                     76:     my ($local,$url,$cachetime)=@_;
1.13      www        77:     $cachetime*=(0.5+rand);
1.8       www        78:     my $key=&key($local,$url);
                     79:     my $reply='';
1.16      www        80:     $stat_total++;
                     81: # if fromcache flag is set, only return cached values
                     82:     if ($fromcache) {
                     83: 	if ($FORM{$key.'_time'}) {
                     84: 	    return $FORM{$key};
                     85: 	    $stat_fromcache++;
                     86: 	} else {
                     87: 	    return 'not_yet';
                     88: 	    $stat_notyet++;
                     89: 	}
                     90:     }
                     91: # normal mode, refresh when expired or not yet present
1.8       www        92:     if ($FORM{$key.'_time'}) {
                     93: 	if ((time-$FORM{$key.'_time'})<$cachetime) {
                     94: 	    $reply=$FORM{$key};
                     95: 	    &hidden($key.'_time',$FORM{$key.'_time'});
1.16      www        96: 	    $stat_fromcache++;
1.8       www        97: 	}
                     98:     }
                     99:     unless ($reply) {
                    100: 	unless ($hostname{$local}) { 
                    101: 	    $reply='local_unknown'; 
                    102: 	} else {
                    103: 
1.14      www       104: 	    my $ua=new LWP::UserAgent(timeout => 10);
1.8       www       105:     
                    106: 	    my $request=new HTTP::Request('GET',
                    107: 					  "http://".$hostname{$local}.$url);
                    108: 	    $request->authorization_basic('lonadm','litelite');
                    109: 
                    110: 	    my $response=$ua->request($request);
                    111: 
                    112: 	    unless ($response->is_success) { 
                    113: 		$reply='local_error'; 
                    114: 	    } else {
                    115: 		$reply=$response->content;
                    116: 		chomp($reply);
                    117: 	    }
                    118: 	}
                    119: 	&hidden($key.'_time',time);
                    120:     }
                    121:     &hidden($key,$reply);
                    122:     return $reply;
                    123: }
                    124: 
                    125: # ============================================= Are local and remote connected?
1.1       www       126: sub connected {
                    127:     my ($local,$remote)=@_;
                    128:     $local=~s/\W//g;
                    129:     $remote=~s/\W//g;
                    130: 
                    131:     unless ($hostname{$remote}) { return 'remote_unknown'; }
1.8       www       132:     my $url='/cgi-bin/ping.pl?'.$remote;
                    133: #
1.14      www       134: # Slowly phase this in: if not cached, only do 5 percent of the cases,
                    135: # but always do the first five. 
1.8       www       136: #
                    137:     unless ($FORM{&key($local,$url)}) {
1.16      www       138: 	unless (($concount<=5) || (rand>0.95)) {
                    139: 	    $stat_total++;
                    140: 	    $stat_notyet++; 
1.14      www       141: 	    return 'not_yet'; 
                    142: 	} else {
                    143: 	    $concount++;
                    144: 	}
1.8       www       145:     }
                    146: #
                    147: # Actually do the query
                    148: #
                    149:     &statuslist($local,'connecting '.$remote);
1.9       www       150:     my $reply=&request($local,$url,3600);
1.8       www       151:     $reply=(split("\n",$reply))[0];
                    152:     $reply=~s/\W//g;
                    153:     if ($reply ne $remote) { return $reply; }
                    154:     return 'ok';
                    155: }
                    156: # ============================================================ Get a reply hash
                    157: 
                    158: sub replyhash {
                    159:     my %returnhash=();
                    160:     foreach (split(/\&/,&request(@_))) {
                    161: 	my ($name,$value)=split(/\=/,$_);
                    162: 	if ($name) {
                    163: 	    unless ($value) { $value=''; }
                    164: 	    $returnhash{$name}=$value;
                    165: 	}
                    166:     }
                    167:     return %returnhash;
                    168: }
1.1       www       169: 
1.9       www       170: # ================================================================ Link to host
1.1       www       171: 
1.8       www       172: sub otherwindow {
                    173:     my ($local,$url,$label)=@_;
                    174:     return
1.9       www       175:   " <a href='http://$hostname{$local}$url' target='newwin$local'>$label</a> ";
                    176: }
                    177: 
                    178: sub login {
                    179:     my $local=shift;
                    180:     print &otherwindow($local,'/adm/login?domain='.$perlvar{'lonDefDomain'},
                    181: 		       'Login');
                    182: }
                    183: 
                    184: sub runloncron {
                    185:     my $local=shift;
                    186:     print &otherwindow($local,'/cgi-bin/loncron.pl','Run loncron');
                    187: }
                    188: 
                    189: sub loncron {
                    190:     my $local=shift;
                    191:     print &otherwindow($local,'/lon-status','loncron');
                    192: }
                    193: 
                    194: sub lonc {
                    195:     my $local=shift;
                    196:     print &otherwindow($local,'/lon-status/loncstatus.txt','lonc');
                    197: }
                    198: 
                    199: sub lond {
                    200:     my $local=shift;
                    201:     print &otherwindow($local,'/lon-status/londstatus.txt','lond');
                    202: }
                    203: 
                    204: sub users {
                    205:     my $local=shift;
                    206:     print &otherwindow($local,'/cgi-bin/userstatus.pl','Users');
                    207: }
                    208: 
                    209: sub versions {
                    210:     my $local=shift;
                    211:     print &otherwindow($local,'/cgi-bin/lonversions.pl','Versions');
                    212: }
                    213: 
                    214: sub server {
                    215:     my $local=shift;
                    216:     print &otherwindow($local,'/server-status','Server Status');
1.8       www       217: }
1.1       www       218: 
1.18      www       219: sub announcement {
                    220:     my $local=shift;
                    221:     print &otherwindow($local,'/announcement.txt','Announcement');
                    222: }
                    223: 
1.11      www       224: # ========================================================= Produce a green bar
                    225: sub bar {
                    226:     my $parm=shift;
                    227:     my $number=int($parm+0.5);
                    228:     print "<table><tr><td bgcolor='#225522'><font color='#225522'>";
                    229:     for (my $i=0;$i<$number;$i++) {
                    230: 	print "+";
                    231:     }
                    232:     print "</font></table>";
                    233: }
                    234: 
1.9       www       235: # ========================================================== Show server status
                    236: 
1.8       www       237: sub serverstatus {
1.11      www       238:     my ($local,$trouble)=@_;
1.9       www       239:     print (<<ENDHEADER);
1.11      www       240: <a name="$local" />
1.9       www       241: <table width="100%" bgcolor="#225522" cellspacing="2" cellpadding="2" border="0">
                    242: <tr><td bgcolor="#BBDDBB"><font color="#225522" face="arial"><b>
                    243: $local $hostdom{$local}</b> <tt>($hostname{$local}; $hostrole{$local})</tt>
                    244: <br />$domaindescription{$hostdom{$local}}
1.19    ! www       245: $domain_city{$hostdom{$local}}
1.10      www       246: </font></th></tr><tr><td bgcolor="#DDDDBB"><font color="#225522">
1.9       www       247: ENDHEADER
                    248:     &login($local);&server($local);&users($local);&versions($local);
1.18      www       249:     &announcement($local);
1.9       www       250:     &loncron($local);&lond($local);&lonc($local);&runloncron($local);
1.11      www       251:     print "</font></td></tr>";
                    252:     if ($trouble) {
                    253: 	print ("<tr><td bgcolor='#DDBBBB'><font color='#552222' size='+2'>$trouble</font></td></tr>");
                    254:     }
                    255:     print "<tr><td bgcolor='#BBBBBB'>";
1.15      www       256: # version
                    257:     if ($host{$local.'_version'}) {
                    258: 	print "<br />Version: ".$host{$local.'_version'}
                    259:     }
1.9       www       260: # load
                    261:     if (($host{$local.'_load_doomed'}>0.5) || ($mode eq 'load_doomed')) {
                    262: 	print "<br />Load: ".$host{$local.'_load'}
                    263:     }
                    264: # users
                    265:     if (($host{$local.'_users_doomed'}>10) || ($mode eq 'users_doomed')) {
                    266: 	print "<br />Active Users: ".$host{$local.'_users'}
                    267:     }
                    268: 
1.8       www       269: # checkrpms
                    270:     if ($host{$local.'_checkrpms'}) {
                    271: 	print "<br />RPMs: ".$host{$local.'_checkrpms'}
                    272:     }
                    273: # mysql
                    274:     if ($host{$local.'_mysql'}) {
                    275: 	print "<br />MySQL Database: ".$host{$local.'_mysql'}
                    276:     }
1.11      www       277: # connections
                    278:     if ($host{$local.'_notconnected'}) {
                    279: 	print "<br />Not connected: ";
                    280: 	foreach (split(/ /,$host{$local.'_notconnected'})) {
                    281: 	    if ($_) {
                    282: 		print " <a href='#$_'>$_</a>";
                    283: 	    }
                    284: 	}
                    285:     }
                    286: # errors
                    287:     if ($host{$local.'_errors'}) {
                    288: 	print "<br />loncron errors: ".$host{$local.'_errors'};
                    289:     }
1.9       www       290:     print "</td></tr></table><br />";
                    291: }
                    292: 
                    293: # =========================================================== Doomedness sorted
                    294: 
                    295: sub doomedness {
                    296:     my $crit=shift;
                    297:     my %alldoomed=();
                    298:     my @allhosts=();
                    299:     foreach (keys %host) {
                    300: 	if ($_=~/^(\w+)\_$crit$/) {
                    301: 	    if ($host{$_}) {
                    302: 		push (@allhosts,$1);
                    303: 		$alldoomed{$1}=$host{$_};
                    304: 	    }
                    305: 	}
                    306:     }
                    307:     return sort { $alldoomed{$b} <=> $alldoomed{$a} } @allhosts;
1.8       www       308: }
1.1       www       309: 
1.16      www       310: sub resetvars {
                    311:    $maxusers=0;
                    312:    $maxload=0;
                    313:    $totalusers=0;
                    314:    $stat_total=0;
                    315:    $stat_notyet=0;
                    316:    $stat_fromcache=0;
1.17      www       317:    $concount=0;
1.16      www       318:    undef %host;
                    319:    %host=();
1.1       www       320: }
1.8       www       321: 
1.16      www       322: sub mainloop {
                    323:     &resetvars();
1.8       www       324: # ==================================================== Main Loop over all Hosts
                    325: 
1.16      www       326: foreach my $local (sort keys %hostname) {
1.9       www       327:     $host{$local.'_unresponsive_doomed'}=0;
1.8       www       328: # -- Check general status
                    329:     &statuslist($local,'General');
                    330:     my %loncron=&replyhash($local,'/lon-status/loncron_simple.txt',1200);
                    331:     if (defined($loncron{'local_error'})) {
                    332: 	$host{$local.'_loncron'}='Could not determine.';
1.9       www       333: 	$host{$local.'_unresponsive_doomed'}++;
1.8       www       334:     } else {
                    335: 	if ((time-$loncron{'time'})>$oneday) {
                    336: 	    $host{$local.'_loncron'}='Stale.';
1.9       www       337: 	    $host{$local.'_unresponsive_doomed'}++;
1.8       www       338: 	} else {
1.11      www       339: 	    $host{$local.'_loncron_doomed'}=$loncron{'notices'}
                    340: 	                                 +4*$loncron{'warnings'}
                    341: 	                               +100*$loncron{'errors'};
                    342: 	    $host{$local.'_errors'}=$loncron{'errors'};
1.8       www       343: 	}
                    344:     }
1.15      www       345: # -- Check version
                    346:     &statuslist($local,'Version');
                    347:     my $version=&request($local,'/lon-status/version.txt',7200);
                    348:     if ($version eq 'local_error') {
                    349: 	$host{$local.'_version'}='Could not determine.';
                    350: 	$host{$local.'_unresponsive_doomed'}++;
                    351:     } else {
                    352: 	$host{$local.'_version'}=$version;
                    353:     }
1.8       www       354: # -- Check user status
                    355:     &statuslist($local,'Users');
                    356:     my %userstatus=&replyhash($local,'/cgi-bin/userstatus.pl?simple',600);
                    357:     if (defined($userstatus{'local_error'})) {
                    358: 	$host{$local.'_userstatus'}='Could not determine.';
1.9       www       359: 	$host{$local.'_unresponsive_doomed'}++;
1.8       www       360:     } else {
1.9       www       361: 	$host{$local.'_users_doomed'}=$userstatus{'Active'};
                    362: 	$host{$local.'_users'}=$userstatus{'Active'};
1.11      www       363: 	unless ($host{$local.'_users'}) { $host{$local.'_users'}=0; }
                    364: 	if ($host{$local.'_users'}>$maxusers) { 
                    365: 	    $maxusers=$host{$local.'_users'};
                    366: 	}
                    367: 	$totalusers+=$host{$local.'_users'};
1.9       www       368: 	my ($sload,$mload,$lload)=split(/ /,$userstatus{'loadavg'});
                    369: 	$host{$local.'_load_doomed'}=$mload;
1.11      www       370: 	if ($mload>$maxload) { 
                    371: 	    $maxload=$mload;
                    372: 	}
1.9       www       373: 	$host{$local.'_load'}=$userstatus{'loadavg'};
1.8       www       374:     }
                    375: # -- Check mysql status
                    376:     &statuslist($local,'Database');
1.9       www       377:     my %mysql=&replyhash($local,'/lon-status/mysql.txt',3600);
1.8       www       378:     if (defined($mysql{'local_error'})) {
                    379: 	$host{$local.'_mysql'}='Could not determine.';
1.9       www       380: 	$host{$local.'_unresponsive_doomed'}++;
1.8       www       381:     } else {
                    382: 	if ((time-$mysql{'time'})>(7*$oneday)) {
                    383: 	    if ($hostrole{$local} eq 'library') {
                    384: 		$host{$local.'_mysql'}='Stale.';
                    385: 		$host{$local.'_mysql_doomed'}=1;
                    386: 	    }
                    387: 	    if ($mysql{'mysql'} eq 'defunct') {
                    388: 		$host{$local.'_mysql'}='Defunct (maybe stale).';
                    389: 		$host{$local.'_mysql_doomed'}=2;
                    390: 	    }
                    391: 	} elsif ($mysql{'mysql'} eq 'defunct') {
                    392: 	    $host{$local.'_mysql'}='Defunct.';
                    393: 	    $host{$local.'_mysql_doomed'}=3;
                    394: 	}
                    395:     }
                    396: # -- Check rpm status
                    397:     &statuslist($local,'RPMs');
1.9       www       398:     my %checkrpms=&replyhash($local,'/lon-status/checkrpms.txt',7200);
1.8       www       399:     if (defined($checkrpms{'local_error'})) {
                    400: 	$host{$local.'_checkrpms'}='Could not determine.';
1.9       www       401: 	$host{$local.'_unresponsive_doomed'}++;
1.8       www       402:     } else {
                    403: 	if ((time-$checkrpms{'time'})>(4*$oneday)) {
                    404: 	    $host{$local.'_checkrpms'}='Stale.';
                    405: 	    $host{$local.'_checkrpms_doomed'}=50;
1.9       www       406: 	    $host{$local.'_unresponsive_doomed'}++;
1.8       www       407: 	} elsif ($checkrpms{'status'} eq 'fail') {
                    408: 	    $host{$local.'_checkrpms'}='Could not checked RPMs.';
                    409: 	    $host{$local.'_checkrpms_doomed'}=100;
                    410: 	} elsif ($checkrpms{'rpmcount'}) {
                    411: 	    $host{$local.'_checkrpms'}='Outdated RPMs: '.
                    412: 		$checkrpms{'rpmcount'};
                    413: 	    $host{$local.'_checkrpms_doomed'}=$checkrpms{'rpmcount'};
                    414: 	}
                    415:     }
                    416: # -- Check connections
                    417:     &statuslist($local,'Connections');
                    418:     $host{$local.'_notconnected'}='';
                    419:     $host{$local.'_notconnected_doomed'}=0;
1.16      www       420:     foreach my $remote (sort keys %hostname) {
1.8       www       421: 	my $status=&connected($local,$remote);
                    422: 	$connectionstatus{$local.'_TO_'.$remote}=$status;
                    423: 	unless (($status eq 'ok') || ($status eq 'not_yet')) {
                    424: 	    $host{$local.'_notconnected'}.=' '.$remote;
                    425: 	    $host{$local.'_notconnected_doomed'}++;
                    426: 	}
                    427:     }
1.16      www       428: # =============================================================== End Main Loop
                    429: }
                    430: 
1.8       www       431: }
1.16      www       432: 
                    433: sub reports {
1.9       www       434: # ====================================================================== Output
                    435:     if ($mode=~/\_doomed$/) {
                    436: # Output by doomedness
                    437: 	foreach (&doomedness($mode)) {
                    438: 	    &serverstatus($_);
                    439: 	}
1.10      www       440:     } elsif ($mode eq 'connections') {
                    441: 	print 
                    442:        "<table cellspacing='3' cellpadding='3' border='0' bgcolor='#225522'>".
                    443:        "<tr><td bgcolor='#225522'>&nbsp;</td>";
1.11      www       444: 	foreach my $remote (sort keys %hostname) {
1.17      www       445: 	    print '<td bgcolor="#DDDDBB">'.$remote.'</td>';
1.10      www       446: 	}
                    447: 	print "</tr>\n";
                    448: # connection matrix
1.11      www       449: 	foreach my $local (sort keys %hostname) {
1.17      www       450: 	    print '<tr><td bgcolor="#DDDDBB">'.$local.'</td>';
1.11      www       451: 	    foreach my $remote (sort keys %hostname) {
1.10      www       452: 		if ($connectionstatus{$local.'_TO_'.$remote} eq 'not_yet') {
1.14      www       453: 		    my $cellcolor='#FFFFFF';
                    454: 		    if ($local eq $remote) { $cellcolor='#DDDDDD'; }
                    455: 		    print '<td bgcolor="'.$cellcolor.'"><font color="#555522" size="-2">not yet tested</font></td>';
1.10      www       456: 		} elsif ($connectionstatus{$local.'_TO_'.$remote} eq 'ok') {
1.14      www       457: 		    my $cellcolor='#BBDDBB';
                    458: 		    if ($local eq $remote) { $cellcolor='#99DD99'; }
1.10      www       459: 		    print 
1.14      www       460: '<td bgcolor="'.$cellcolor.'"><font color="#225522" face="arial"><b>ok</b></td>';
1.10      www       461: 		} else {
1.14      www       462: 		    my $cellcolor='#DDBBBB';
                    463: 		    if ($connectionstatus{$local.'_TO_'.$remote} eq 'local_error') {
                    464: 			if ($local eq $remote) { 
                    465: 			    $cellcolor='#DD88AA'; 
                    466: 			} else {
                    467: 			    $cellcolor='#DDAACC';
                    468: 			}
                    469: 		    } else {
                    470: 			if ($local eq $remote) { $cellcolor='#DD9999'; }
                    471: 		    }
1.10      www       472: 		    print 
1.14      www       473: 		  '<td bgcolor="'.$cellcolor.'"><font color="#552222" size="-2">'.
1.10      www       474: 		  $connectionstatus{$local.'_TO_'.$remote}.'<br />';
                    475: 		    &lonc($local); &lond($remote);
                    476: 		    print '</td>';
                    477: 		}
                    478: 	    }
                    479: 	    print "</tr>\n";
                    480: 	}
1.11      www       481: 	print "</table>";
                    482:     } elsif ($mode eq 'users') {
                    483: # Users
                    484: 	if ($maxusers) {
                    485: 	    my $factor=50/$maxusers;
                    486: 	    print "<h3>Total active user(s): $totalusers</h3>". 
                    487:        "<table cellspacing='3' cellpadding='3' border='0' bgcolor='#225522'>";
                    488: 
1.16      www       489: 	    foreach my $local (sort keys %hostname) {
1.11      www       490: 		if (defined($host{$local.'_users'})) {
                    491: 		    print 
1.16      www       492: '<tr><td bgcolor="#BBDDBB"><font face="arial" color="#225522" size="+1">'.$local.
                    493: 			'</font><br /><font size="-2">'.
                    494: 			$domaindescription{$hostdom{$local}}.
                    495: 		       '</font></td><td bgcolor="#DDDDBB">';
1.12      www       496: 		    &users($local);
1.11      www       497: 		    print 
                    498: 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
                    499: 	      $host{$local.'_users'}.'</font></td><td bgcolor="#DDDDBB"';
                    500: 		    &bar($factor*$host{$local.'_users'});
                    501: 		    print "</td></tr>\n";
                    502: 		}
                    503: 	    }
                    504: 	    print "</table>";
                    505: 	} else {
                    506: 	    print "No active users logged in.";
                    507: 	}
                    508:     } elsif ($mode eq 'load') {
                    509: # Load
                    510: 	if ($maxload) {
                    511: 	    my $factor=50/$maxload; 
                    512: 	    print
                    513:        "<table cellspacing='3' cellpadding='3' border='0' bgcolor='#225522'>";
1.16      www       514: 	    foreach my $local (sort keys %hostname) {
1.11      www       515: 		if (defined($host{$local.'_load_doomed'})) {
                    516: 		    print 
1.16      www       517: '<tr><td bgcolor="#BBDDBB"><font face="arial" color="#225522" size="+1">'.
1.11      www       518:                         $local.
1.16      www       519: 			'</font><br /><font size="-2">'.
                    520: 			$domaindescription{$hostdom{$local}}.
                    521: 		       '</font></td><td bgcolor="#DDDDBB">';
1.12      www       522: 		    &server($local);
1.11      www       523: 		    print 
                    524: 	      '</td><td bgcolor="#DDDDBB"><font face="arial" color="#225522">'.
                    525: 	      $host{$local.'_load_doomed'}.'</font></td><td bgcolor="#DDDDBB"';
                    526: 		    &bar($factor*$host{$local.'_load_doomed'});
                    527: 		    print "</td></tr>\n";
                    528: 		}
                    529: 	    }
                    530: 	    print "</table>";
                    531: 	} else {
                    532: 	    print "No workload.";
                    533: 	}
                    534:     } elsif ($mode eq 'trouble') {
                    535: 	my $count=0;
1.16      www       536: 	foreach my $local (sort keys %hostname) {
1.11      www       537: 	    my $trouble='';
1.15      www       538: 	    if ($host{$local.'_unresponsive_doomed'}>3) {
                    539: 		$trouble='Does not respond to several queries.<br />';
                    540: 	    }
1.11      www       541: 	    if ($host{$local.'_errors'}) {
                    542: 		$trouble='Has loncron errors.<br />';
                    543: 	    } elsif ($host{$local.'_loncron_doomed'}>600) {
                    544: 		$trouble='High loncron count.<br />';
                    545: 	    }
                    546: 	    if ($host{$local.'_load_doomed'}>5) {
                    547: 		$trouble='High load.<br />';
                    548: 	    }
                    549: 	    if ($host{$local.'_users_doomed'}>200) {
                    550: 		$trouble='High user volume.<br />';
                    551: 	    }
                    552: 	    if ($host{$local.'_mysql_doomed'}>1) {
                    553: 		$trouble='MySQL database apparently offline.<br />';
                    554: 	    }
                    555: 	    if ($host{$local.'_checkrpms_doomed'}>100) {
                    556: 		$trouble='RPMs outdated.<br />';
                    557: 	    }
                    558: 	    if ($trouble) { $count++; &serverstatus($local,$trouble); }
                    559: 	}
                    560: 	unless ($count) { print "No mayor trouble."; }
1.9       www       561:     }
1.16      www       562: }
                    563: 
                    564: # ====================================================================== Status
                    565: sub statuslist {
                    566:     my ($local,$what)=@_;
                    567:     print 
                    568: "<script>document.prgstat.progress.value='Testing $local ($hostname{$local}): $what';</script>\n";
                    569: }
                    570: 
                    571: # =============================================================================
                    572: # =============================================================================
                    573: # Main program
                    574: #
                    575: # ========================================================= Get form parameters
                    576: my $buffer;
                    577: 
                    578: read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
                    579: my @pairs=split(/&/,$buffer);
                    580: my $pair; my $name; my $value;
                    581: undef %FORM;
                    582: %FORM=();
                    583: foreach $pair (@pairs) {
                    584:     ($name,$value) = split(/=/,$pair);
                    585:     $value =~ tr/+/ /;
                    586:     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                    587:     $FORM{$name}=$value;
                    588: } 
                    589: 
                    590: $buffer=$ENV{'QUERY_STRING'};
                    591: @pairs=split(/&/,$buffer);
                    592: foreach $pair (@pairs) {
                    593:     ($name,$value) = split(/=/,$pair);
                    594:     $value =~ tr/+/ /;
                    595:     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
                    596:     $FORM{$name}=$value;
                    597: } 
                    598: 
                    599: # ====================================================== Determine refresh rate
                    600: 
                    601: my $refresh=(($FORM{'refresh'}=~/^\d+$/)?$FORM{'refresh'}:30);
                    602: if ($refresh<30) { $refresh=30; }
                    603: my $starttime=time;
                    604: 
                    605: # ============================================================== Determine mode
                    606: 
                    607: my %modes=('trouble' => 'Trouble',
                    608: 	   'users_doomed' => 'Doomed: Users',
                    609: 	   'loncron_doomed' => 'Doomed: General (loncron)',
                    610: 	   'mysql_doomed' => 'Doomed: Database (mysql)',
                    611: 	   'notconnected_doomed' => 'Doomed: Connections',
                    612: 	   'checkrpms_doomed' => 'Doomed: RPMs',
                    613: 	   'load_doomed' => 'Doomed: Load',
                    614: 	   'unresponsive_doomed' => 'Doomed: Status could not be determined',
                    615: 	   'users' => 'User Report',
                    616: 	   'load' => 'Load Report',
                    617: 	   'connections' => 'Connections Matrix');
                    618: 
                    619: $mode=$FORM{'mode'};
                    620: unless ($modes{$mode}) { $mode='trouble'; }
                    621: # ================================================================ Send Headers
                    622: print "Content-type: text/html\n\n".
                    623:     "<html><body bgcolor='#FFFFFF'>\n";
                    624: # -------------------- Read loncapa.conf (and by default, loncapa_apache.conf).
                    625: my $perlvarref=LONCAPA::Configuration::read_conf('loncapa.conf');
                    626: %perlvar=%{$perlvarref};
                    627: undef $perlvarref; # remove since sensitive and not needed
                    628: delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed
                    629: delete $perlvar{'lonSqlAccess'}; # remove since sensitive and not needed
                    630: 
                    631: # ------------------------------------------------------------- Read hosts file
                    632: {
                    633:     my $config=IO::File->new("$perlvar{'lonTabDir'}/hosts.tab");
                    634: 
                    635:     while (my $configline=<$config>) {
                    636:        $configline=~s/#.*$//;
                    637:        unless ($configline=~/\w/) { next; } 
                    638:        my ($id,$domain,$role,$name,$ip)=split(/:/,$configline);
                    639:        $hostname{$id}=$name;
                    640:        $hostdom{$id}=$domain;
                    641:        $hostrole{$id}=$role;
                    642:        $hostip{$id}=$ip;
                    643:        if (($role eq 'library') && ($id ne $perlvar{'lonHostID'})) {
                    644: 	   $libserv{$id}=$name;
                    645:        }
                    646:     }
                    647: }
                    648: # ------------------------------------------------------------ Read domain file
                    649: {
                    650:     my $fh=IO::File->new($perlvar{'lonTabDir'}.'/domain.tab');
                    651:     if ($fh) {
                    652:        while (<$fh>) {
                    653:            next if (/^(\#|\s*$)/);
                    654:            chomp;
1.19    ! www       655:            my ($domain, $domain_description, $def_auth, $def_auth_arg,
        !           656: 	       $def_lang, $city, $longi, $lati) = split(/:/,$_);
        !           657: 	   $domain_auth_def{$domain}=$def_auth;
1.16      www       658:            $domain_auth_arg_def{$domain}=$def_auth_arg;
1.19    ! www       659: 	   $domaindescription{$domain}=$domain_description;
        !           660: 	   $domain_lang_def{$domain}=$def_lang;
        !           661: 	   $domain_city{$domain}=$city;
        !           662: 	   $domain_longi{$domain}=$longi;
        !           663: 	   $domain_lati{$domain}=$lati;
1.16      www       664:        }
                    665:     }
                    666: }
                    667: 
                    668: print "<img src='/adm/lonIcons/lonlogos.gif' align='right' /><h1>LON-CAPA Cluster Status ".localtime()."</h1>";
                    669: print "<form name='prgstat'>\n".
                    670: "<input type='text' name='progress' value='Starting ...' size='100' /><br />".
                    671: "</form>\n";;
                    672: print "<form name='status' method='post'>\n";
                    673: print 'Choose next report: '.&select_form($mode,'mode',%modes).'<hr />';
                    674: &hidden('refresh',$refresh);
                    675: 
                    676:     if (!$FORM{'runonetime'}) {
                    677: 	print 
                    678:    "<h3>Gathering initial cluster data</h3>This may take some time ...<br />";
                    679: 	$fromcache=0;
                    680: 	&mainloop();
                    681: 	&statuslist('Done initial run.');
                    682: 	&reports();
                    683:     } else {
                    684: 	$fromcache=1;
                    685: 	&mainloop();
                    686: 	&statuslist('Done gathering cached data');
                    687: 	&reports();
                    688: 	$fromcache=0;
                    689: 	&mainloop();
                    690:     }
                    691:     &hidden('runonetime',1);
                    692: print '<tt><br />Total number of queries: '.$stat_total.
                    693:           '<br />Percent complete: '.
                    694: 	  int(($stat_total-$stat_notyet)/$stat_total*100.).
                    695: 	  '<br />Percent from cache: '.
                    696:           int($stat_fromcache/$stat_total*100.).'</tt>';
                    697: 
1.9       www       698: # ============================================================== Close, refresh
1.8       www       699: print "</form><script>";
1.16      www       700: my $runtime=time-$starttime;
                    701: if (($refresh-$runtime)<0) {
                    702:     print "document.status.submit();";
1.8       www       703: } else {
1.16      www       704:     my $refreshtime=int(1000*($refresh-$runtime));
1.11      www       705:     print "setTimeout('document.status.submit()',$refreshtime);\n".
                    706:           "document.prgstat.progress.value='Will automatically refresh ($refresh secs refresh cycle)'";
1.2       www       707: }
1.8       www       708: print "</script></body></html>";
                    709: exit 0;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>