# now do one for the alias
while ($ref = DXUser->get($myalias)) {
- print "old call $mycall deleted\n";
+ print "old call $myalias deleted\n";
$ref->del();
}
# write it away
$self->close();
- print "new call $mycall added\n";
+ print "new call $myalias added\n";
}
-$lockfn = "$root/perl/cluster.lock"; # lock file name
+$lockfn = "$root/perl/cluster.lck"; # lock file name
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;