From ece633d5cd8cbe2037b066987740701f8116d586 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Thu, 21 Oct 1999 21:42:59 +0000
Subject: [PATCH] reduced priv of catchup commands to 5

---
 Changes          | 1 +
 cmd/catchup.pl   | 2 +-
 cmd/uncatchup.pl | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.43.0