version 1.65, 2002/02/05 17:17:49
|
version 1.66, 2002/02/05 18:05:47
|
Line 205 sub checkchildren {
|
Line 205 sub checkchildren {
|
unless (-e "$docdir/lon-status/londchld/$_.txt") { |
unless (-e "$docdir/lon-status/londchld/$_.txt") { |
&logthis('Child '.$_.' did not respond'); |
&logthis('Child '.$_.' did not respond'); |
kill 9 => $_; |
kill 9 => $_; |
|
$emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}"; |
|
$subj="LON: $perlvar{'lonHostID'} killed lond process $_"; |
|
system("echo 'Killed lond process $_.' |\ |
|
mailto $emailto -s '$subj' > /dev/null"); |
|
$execdir=$perlvar{'lonDaemons'}; |
|
system("cp $execdir/logs/lond.log $execdir/logs/lond.log.".$_); |
} |
} |
} |
} |
} |
} |