make the interlock stricter
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 5 Sep 2006 06:08:31 +0000 (06:08 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 5 Sep 2006 06:08:31 +0000 (06:08 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5949 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/support-scripts/hold_targeter.pl

index 406c1be..ad4afc2 100755 (executable)
@@ -13,18 +13,7 @@ my $config = shift || die "bootstrap config required\n";
 my $lockfile = shift || "/tmp/hold_targeter-LOCK";
 
 if (-e $lockfile) {
-       open(F,$lockfile);
-       my $pid = <F>;
-       close F;
-
-       open(F,'/bin/ps axo pid|');
-       while ( my $p = <F>) {
-               chomp($p);
-               if ($p =~ s/\s*(\d+)$/$1/o && $p == $pid) {
-                       die "I seem to be running already at pid $pid.  If not, try again\n";
-               }
-       }
-       close F;
+       die "I seem to be running already at pid $pid.  If not remove $lockfile, try again\n";
 }
 
 open(F, ">$lockfile");