Return to loncontrol CVS log | Up to [LON-CAPA] / loncom / init.d |
version 1.31, 2007/06/02 03:40:02 | version 1.32, 2007/06/12 23:45:42 |
---|---|
Line 144 sub stop_daemon { | Line 144 sub stop_daemon { |
my $daemonpid=<PIDFILE>; | my $daemonpid=<PIDFILE>; |
chomp($daemonpid); | chomp($daemonpid); |
kill TERM => $daemonpid; | kill TERM => $daemonpid; |
sleep 1; | my $count=0; |
while ($count++ < 5 && kill(0 => $daemonpid)) { | |
sleep 1; | |
} | |
if (kill 0 => $daemonpid) { | if (kill 0 => $daemonpid) { |
kill KILL => $daemonpid; | kill KILL => $daemonpid; |
sleep 1; | sleep 1; |