--- loncom/loncron 2002/10/29 20:21:32 1.34
+++ loncom/loncron 2003/03/10 17:39:21 1.37
@@ -9,13 +9,9 @@
#
# 7/14,7/15,7/19,7/21,7/22,11/18,
# 2/8 Gerd Kortemeyer
-# 12/6/2000,12/8 Scott Harrison
# 12/23 Gerd Kortemeyer
# YEAR=2001
-# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison
# 09/04,09/06,11/26 Gerd Kortemeyer
-# YEAR=2002
-# 5/11/2002 Scott Harrison
$|=1;
@@ -633,8 +629,7 @@ if (-e $lonhttpdfile) {
my $lonhttpdpid=<$lfh>;
chomp($lonhttpdpid);
if (kill 0 => $lonhttpdpid) {
- print $fh "
lonhttpd at pid $lonhttpdpid responding, sending USR1
";
- kill USR1 => $lonhttpdpid;
+ print $fh "lonhttpd at pid $lonhttpdpid responding
";
$restartflag=0;
} else {
$errors++;
@@ -810,7 +805,10 @@ rename ("$statusdir/newstatus.html","$st
if ($totalcount>200) {
print "mailing\n";
- $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+ $emailto="$perlvar{'lonAdmEMail'}";
+ if ($totalcount>600) {
+ $emailto.=",$perlvar{'lonSysEMail'}";
+ }
$subj="LON: $perlvar{'lonHostID'} E:$errors W:$warnings N:$notices";
system(
"metasend -b -t $emailto -s '$subj' -f $statusdir/index.html -m text/html");