From: djk <djk>
Date: Thu, 21 Oct 1999 21:42:59 +0000 (+0000)
Subject: reduced priv of catchup commands to 5
X-Git-Tag: R_1_32~5
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=ece633d5cd8cbe2037b066987740701f8116d586;p=spider.git

reduced priv of catchup commands to 5
---

diff --git a/Changes b/Changes
index 4d355001..afc01334 100644
--- 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 41f2edd7..53e4b180 100644
--- 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 2c750b5e..4f7808d7 100644
--- 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;