# 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
@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