version 1.63, 2002/01/20 18:01:43
|
version 1.64, 2002/01/20 18:28:31
|
Line 194 sub checkchildren {
|
Line 194 sub checkchildren {
|
&logthis('Going to check on the children'); |
&logthis('Going to check on the children'); |
$docdir=$perlvar{'lonDocRoot'}; |
$docdir=$perlvar{'lonDocRoot'}; |
foreach (sort keys %children) { |
foreach (sort keys %children) { |
unlink("$docdir/lon-status/londchld/$_.txt"); |
|
sleep 1; |
sleep 1; |
unless (kill 'USR1' => $_) { |
unless (kill 'USR1' => $_) { |
&logthis ('Child '.$_.' is dead'); |
&logthis ('Child '.$_.' is dead'); |
Line 205 sub checkchildren {
|
Line 204 sub checkchildren {
|
foreach (sort keys %children) { |
foreach (sort keys %children) { |
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 => $_; |
} |
} |
} |
} |
} |
} |
Line 244 sub initnewstatus {
|
Line 243 sub initnewstatus {
|
my $now=time; |
my $now=time; |
my $local=localtime($now); |
my $local=localtime($now); |
print $fh "LOND status $local - parent $$\n\n"; |
print $fh "LOND status $local - parent $$\n\n"; |
|
opendir(DIR,"$docdir/lon-status/londchld"); |
|
while ($filename=readdir(DIR)) { |
|
unlink("$docdir/lon-status/londchld/$filename"); |
|
} |
|
closedir(DIR); |
} |
} |
|
|
# -------------------------------------------------------------- Status setting |
# -------------------------------------------------------------- Status setting |