# (2) Converted checks to new plugin mechanism (Stephen Johnson May 28, 1999)
# Added user-configurable escalation mechanism
#
-# $Id: spong-network.pl,v 1.41 2002/04/18 15:39:00 sljohnson Exp $
+# $Id: spong-network.pl,v 1.42 2002/06/10 20:33:09 sljohnson Exp $
use Carp;
use lib "@@LIBDIR@@";
close PID;
if ( kill 0,$pid ) {
- &error("Spong-network is already running as pid $pid");
- exit 1;
+ `ps -f -p $pid | grep spong-network >/dev/null`;
+ if ( ! $? ) {
+ &error("Spong-network is already running as pid $pid");
+ exit 1;
+ }
}
}
}