projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add CTY-3010 prefixes
[spider.git]
/
perl
/
update_sysop.pl
diff --git
a/perl/update_sysop.pl
b/perl/update_sysop.pl
index 666a7d5d4fd160e5d7f284b6ce8408ec16cad2ae..c77d012c0607f23fb93a006091c0de49ec4ef372 100755
(executable)
--- a/
perl/update_sysop.pl
+++ b/
perl/update_sysop.pl
@@
-19,6
+19,7
@@
BEGIN {
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
$root = "/spider";
$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+ unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
}
unshift @INC, "$root/local";
}
@@
-53,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
@@
-80,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";
}
@@
-96,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";