From ece633d5cd8cbe2037b066987740701f8116d586 Mon Sep 17 00:00:00 2001 From: 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 all|[= 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 all|[= 2; -- 2.43.0