# try to create and lock a lockfile (this isn't atomic but
# should do for now
- $lockfn = "$root/perl/cluster.lck"; # lock file name
+ $lockfn = "$root/local/cluster.lck"; # lock file name
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;
Log('DXCommand', "$main::mycall using NP but has no passphrase");
dbg("$main::mycall using NP but has no passphrase");
}
- already_conn($conn, $call, "Need to exchange passphrases");
+# already_conn($conn, $call, "Need to exchange passphrases");
return;
}
} elsif ($user->is_node) {
DXUser::process();
DXDupe::process();
AGWMsg::process();
-
+
eval {
Local::process(); # do any localised processing
};