From: 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.net/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 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;