--- loncom/init.d/loncontrol 2005/05/26 20:25:00 1.25 +++ loncom/init.d/loncontrol 2005/06/13 19:54:28 1.26 @@ -1,6 +1,6 @@ #!/usr/bin/perl # -# $Id: loncontrol,v 1.25 2005/05/26 20:25:00 albertel Exp $ +# $Id: loncontrol,v 1.26 2005/06/13 19:54:28 albertel Exp $ # # The LearningOnline Network with CAPA # @@ -128,10 +128,10 @@ sub stop_daemon { my $daemonpid=; chomp($daemonpid); kill TERM => $daemonpid; - sleep 2; + sleep 1; if (kill 0 => $daemonpid) { kill KILL => $daemonpid; - sleep 2; + sleep 1; if (kill 0 => $daemonpid) { print("failed to kill"); } else {