projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove references to DXCluster.pm
[spider.git]
/
perl
/
update_sysop.pl
diff --git
a/perl/update_sysop.pl
b/perl/update_sysop.pl
index a4450cae8e844bb0c688b761f0a37682d2eb674d..4cba9abf4c5d04c343cd24720805694ecbf73fac 100755
(executable)
--- a/
perl/update_sysop.pl
+++ b/
perl/update_sysop.pl
@@
-56,7
+56,7
@@
sub create_it
# now do one for the alias
while ($ref = DXUser->get($myalias)) {
# now do one for the alias
while ($ref = DXUser->get($myalias)) {
- print "old call $my
call
deleted\n";
+ print "old call $my
alias
deleted\n";
$ref->del();
}
$ref->del();
}
@@
-78,11
+78,11
@@
sub create_it
# write it away
$self->close();
# write it away
$self->close();
- print "new call $my
call
added\n";
+ print "new call $my
alias
added\n";
}
}
-$lockfn = "$root/perl/cluster.l
o
ck"; # 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>;
if (-e $lockfn) {
open(CLLOCK, "$lockfn") or die "Can't open Lockfile ($lockfn) $!";
my $pid = <CLLOCK>;