--- loncom/loncron 2003/07/29 21:00:21 1.40 +++ loncom/loncron 2003/07/30 16:49:27 1.41 @@ -131,6 +131,7 @@ $date=localtime($now); { my $fh=IO::File->new(">$statusdir/newstatus.html"); +my %simplestatus=(); print $fh (< @@ -216,7 +217,7 @@ while ($line=) { } elsif ($usage>60) { $notices++; } - if ($usage>95) { $warnings++; $warnings++ } + if ($usage>95) { $warnings++; $warnings++; $simplestatus{'diskfull'}++; } } close (DFH); print $fh ""; @@ -350,6 +351,7 @@ my $restartflag=1; } } if ($restartflag==1) { + $simplestatus{'lonsql'}='off'; $errors++; print $fh '
Killall lonsql: '. system('killall lonsql').' - '; @@ -369,6 +371,7 @@ my $restartflag=1; sleep 2; if (kill 0 => $lonsqlpid) { print $fh "

lonsql at pid $lonsqlpid responding

"; + $simplestatus{'lonsql'}='restarted'; } else { $errors++; $errors++; print $fh "

lonsql at pid $lonsqlpid not responding

"; @@ -446,6 +449,7 @@ if (-e $londfile) { } } if ($restartflag==1) { + $simplestatus{'lond'}='off'; $errors++; print $fh '
Killall lond: '. system('killall lond').' - '; @@ -464,6 +468,7 @@ if ($restartflag==1) { sleep 2; if (kill 0 => $londpid) { print $fh "

lond at pid $londpid responding

"; + $simplestatus{'lond'}='restarted'; } else { $errors++; $errors++; print $fh "

lond at pid $londpid not responding

"; @@ -542,6 +547,7 @@ if (-e $loncfile) { } } if ($restartflag==1) { + $simplestatus{'lonc'}='off'; $errors++; print $fh '
Killall lonc: '. system('killall lonc').' - '; @@ -560,6 +566,7 @@ if ($restartflag==1) { sleep 2; if (kill 0 => $loncpid) { print $fh "

lonc at pid $loncpid responding

"; + $simplestatus{'lonc'}='restarted'; } else { $errors++; $errors++; print $fh "

lonc at pid $loncpid not responding

"; @@ -638,6 +645,7 @@ if (-e $lonhttpdfile) { } } if ($restartflag==1) { + $simplestatus{'lonhttpd'}='off'; $errors++; print $fh '
Killall lonhttpd: '. system('killall lonhttpd').' - '; @@ -656,6 +664,7 @@ if ($restartflag==1) { sleep 2; if (kill 0 => $lonhttpdpid) { print $fh "

lonhttpd at pid $lonhttpdpid responding

"; + $simplestatus{'lonhttpd'}='restarted'; } else { $errors++; $errors++; print $fh "

lonhttpd at pid $lonhttpdpid not responding

"; @@ -779,6 +788,7 @@ $unsend=0; print $fh "Total unsend messages: $unsend

\n"; $warnings=$warnings+5*$unsend; +if ($unsend) { $simplestatus{'unsend'}=$unsend; } print $fh "

Outgoing Buffer

"; open (DFH,"ls -lF $perlvar{'lonSockDir'}/delayed|"); @@ -796,10 +806,22 @@ $now=time; $date=localtime($now); print $fh "
$date ($now)\n"; print "writing done\n"; +$fh->close(); } +if ($errors) { $simplestatus{'errors'}=$errors; } +if ($warnings) { $simplestatus{'warnings'}=$warnings; } +if ($notices) { $simplestatus{'notices'}=$notices; } +$simplestatus{'time'}=time; rename ("$statusdir/newstatus.html","$statusdir/index.html"); - +{ +my $sfh=IO::File->new(">$statusdir/loncron_simple.txt"); +foreach (keys %simplestatus) { + print $sfh $_.'='.$simplestatus{$_}.'&'; +} +print $sfh "\n"; +$sfh->close(); +} if ($totalcount>200) { print "mailing\n"; $emailto="$perlvar{'lonAdmEMail'}";