projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove some blank lines
[spider.git]
/
perl
/
update_sysop.pl
diff --git
a/perl/update_sysop.pl
b/perl/update_sysop.pl
index 74d6812ab6f6749f4cc9ac6629dfdb769fc83bc7..c77d012c0607f23fb93a006091c0de49ec4ef372 100755
(executable)
--- a/
perl/update_sysop.pl
+++ b/
perl/update_sysop.pl
@@
-54,7
+54,7
@@
sub create_it
$self->{annok} = 1;
# write it away
$self->{annok} = 1;
# write it away
- $self->
close
();
+ $self->
put
();
print "new call $mycall added\n";
# now do one for the alias
print "new call $mycall added\n";
# now do one for the alias
@@
-81,7
+81,7
@@
sub create_it
$self->{group} = [qw(local #9000)];
# write it away
$self->{group} = [qw(local #9000)];
# write it away
- $self->
close
();
+ $self->
put
();
print "new call $myalias added\n";
}
print "new call $myalias added\n";
}
@@
-97,7
+97,7
@@
if (-e $lockfn) {
close CLLOCK;
}
close CLLOCK;
}
-DXUser::init(
1
);
+DXUser::init(
4
);
create_it();
DXUser::finish();
print "Update of $myalias on cluster $mycall successful\n";
create_it();
DXUser::finish();
print "Update of $myalias on cluster $mycall successful\n";