projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add standard gcommit command
[spider.git]
/
perl
/
lock_nodes.pl
diff --git
a/perl/lock_nodes.pl
b/perl/lock_nodes.pl
index 8f4875e7c320d9e5494d28eba480006e4324d17c..9480c4812d97fbf528f72f2ce3c47dabb7b19c3d 100755
(executable)
--- a/
perl/lock_nodes.pl
+++ b/
perl/lock_nodes.pl
@@
-19,14
+19,14
@@
BEGIN {
# root of directory tree for this system
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
# root of directory tree for this system
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
-
+ unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
}
use DXVars;
use DXUser;
unshift @INC, "$root/local";
}
use DXVars;
use DXUser;
-my $lockfn = "$root/
per
l/cluster.lck"; # lock file name
+my $lockfn = "$root/
loca
l/cluster.lck"; # lock file name
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;