projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add CTY-2704 changes
[spider.git]
/
perl
/
cluster.pl
diff --git
a/perl/cluster.pl
b/perl/cluster.pl
index 3336d077482f0114d2558b8cc696dbbede4f612f..0db8e0bcb2e0d59354f276a41a5c2a21c098e333 100755
(executable)
--- a/
perl/cluster.pl
+++ b/
perl/cluster.pl
@@
-12,6
+12,11
@@
require 5.004;
require 5.004;
+package main;
+
+# set default paths, these should be overwritten by DXVars.pm
+use vars qw($data $system $cmd $localcmd $userfn);
+
# make sure that modules are searched in the order local then perl
BEGIN {
umask 002;
# make sure that modules are searched in the order local then perl
BEGIN {
umask 002;
@@
-30,6
+35,11
@@
BEGIN {
mkdir "$root/local_cmd", 0777 unless -d "$root/local_cmd";
mkdir "$root/local_cmd", 0777 unless -d "$root/local_cmd";
+ $data = "$root/data";
+ $system = "$root/sys";
+ $cmd = "$root/cmd";
+ $localcmd = "$root/local_cmd";
+ $userfn = "$data/users";
# try to create and lock a lockfile (this isn't atomic but
# should do for now
# try to create and lock a lockfile (this isn't atomic but
# should do for now