fix messages in DXDb.pm to point to the correct ones. Thanks Rene (oz1lqh)

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 59ff51782a9a5f5b06bef219ec871a28ab8b9f85..b33a8b6e0cf81a14832e424182b70a8d2b2453f0 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -26,9 +26,9 @@ BEGIN {
        # do some validation of the input
        die "The directory $root doesn't exist, please RTFM" unless -d $root;
        die "$root/local doesn't exist, please RTFM" unless -d "$root/local";
-       die "$root/local/DXVars doesn't exist, please RTFM" unless -e "$root/local/DXVars.pm";
+       die "$root/local/DXVars.pm doesn't exist, please RTFM" unless -e "$root/local/DXVars.pm";
        
-       mkdir "$root/local_cmd" unless -e "$root/local_cmd";
+       mkdir "$root/local_cmd", 0777 unless -d "$root/local_cmd";
        
 
        # try to create and lock a lockfile (this isn't atomic but 
@@ -113,7 +113,7 @@ use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
 
 @inqueue = ();                                 # the main input queue, an array of hashes
 $systime = 0;                                  # the time now (in seconds)
-$version = "1.49";                             # the version no of the software
+$version = "1.50";                             # the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 #@outstanding_connects = ();     # list of outstanding connects
 @listeners = ();                               # list of listeners