version 1.24, 2001/09/06 19:28:06
|
version 1.25, 2001/11/26 21:00:42
|
Line 13
|
Line 13
|
# 12/23 Gerd Kortemeyer |
# 12/23 Gerd Kortemeyer |
# YEAR=2001 |
# YEAR=2001 |
# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison |
# 1/10/2001, 2/12/, 2/26, 3/15, 04/11, 04/21,8/27 Scott Harrison |
# 09/04,09/06 Gerd Kortemeyer |
# 09/04,09/06,11/26 Gerd Kortemeyer |
|
|
$|=1; |
$|=1; |
|
|
Line 422 if (-e $londfile) {
|
Line 422 if (-e $londfile) {
|
my $londpid=<$lfh>; |
my $londpid=<$lfh>; |
chomp($londpid); |
chomp($londpid); |
if (kill 0 => $londpid) { |
if (kill 0 => $londpid) { |
print $fh "<h3>lond at pid $londpid responding</h3>"; |
print $fh "<h3>lond at pid $londpid responding, sending USR1</h3>"; |
|
kill USR1 => $londpid; |
$restartflag=0; |
$restartflag=0; |
} else { |
} else { |
$errors++; |
$errors++; |