projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ad321e7
)
reduced priv of catchup commands to 5
author
djk
<djk>
Thu, 21 Oct 1999 21:42:59 +0000
(21:42 +0000)
committer
djk
<djk>
Thu, 21 Oct 1999 21:42:59 +0000
(21:42 +0000)
Changes
patch
|
blob
|
history
cmd/catchup.pl
patch
|
blob
|
history
cmd/uncatchup.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 4d3550017ca9ff682f89fcfb98379c358c9e16ac..afc013346b473f7468f44c15d5d1a3780cb37a17 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-2,6
+2,7
@@
1. fixed reply so that reply b or reply nop generate a bulletin with the
correct address.
2. implemented sh/muf command.
1. fixed reply so that reply b or reply nop generate a bulletin with the
correct address.
2. implemented sh/muf command.
+3. reduced privilege of catchup and uncatchup to 5.
20Oct99=======================================================================
1. Translated all the subroutines of minimuf into perl as Minimuf.pm
2. Limited the length of an ANN that is saved for de-duping to $pc12_dup_lth
20Oct99=======================================================================
1. Translated all the subroutines of minimuf into perl as Minimuf.pm
2. Limited the length of an ANN that is saved for de-duping to $pc12_dup_lth
diff --git
a/cmd/catchup.pl
b/cmd/catchup.pl
index 41f2edd7e0a7bd358b5e0d98b2936693d603f5b7..53e4b18079a656709e3698923a72a39cdf3bf96d 100644
(file)
--- a/
cmd/catchup.pl
+++ b/
cmd/catchup.pl
@@
-10,7
+10,7
@@
#
my ($self, $line) = @_;
#
my ($self, $line) = @_;
-return (1, $self->msg('e5')) if $self->priv <
9
;
+return (1, $self->msg('e5')) if $self->priv <
5
;
my @f = split /\s+/, $line;
return (1, "usage: catchup <node call> all|[<msgno ...]") unless @f >= 2;
my @f = split /\s+/, $line;
return (1, "usage: catchup <node call> all|[<msgno ...]") unless @f >= 2;
diff --git
a/cmd/uncatchup.pl
b/cmd/uncatchup.pl
index 2c750b5eefdcc4e0a03f6d3b6b7894becc7611d6..4f7808d728f322f957e732af3ef24d1ba39f2643 100644
(file)
--- a/
cmd/uncatchup.pl
+++ b/
cmd/uncatchup.pl
@@
-10,7
+10,7
@@
#
my ($self, $line) = @_;
#
my ($self, $line) = @_;
-return (1, $self->msg('e5')) if $self->priv <
9
;
+return (1, $self->msg('e5')) if $self->priv <
5
;
my @f = split /\s+/, $line;
return (1, "usage: catchup <node call> all|[<msgno ...]") unless @f >= 2;
my @f = split /\s+/, $line;
return (1, "usage: catchup <node call> all|[<msgno ...]") unless @f >= 2;