reduced priv of catchup commands to 5

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.
+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

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) = @_;
-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;

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) = @_;
-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;