X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=0db8e0bcb2e0d59354f276a41a5c2a21c098e333;hb=bb9f4159e5666e42d2082ffb2c729928da2fdfb7;hp=3336d077482f0114d2558b8cc696dbbede4f612f;hpb=6bcb0688c4d31920dcfd84b7dd5d2a8b4e2c856a;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 3336d077..0db8e0bc 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -12,6 +12,11 @@
 
 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;
@@ -30,6 +35,11 @@ BEGIN {
 
 	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