From 371caba1b5b241d10e9f68bfb2b866141f3ea84e Mon Sep 17 00:00:00 2001 From: djk Date: Wed, 20 Oct 1999 11:34:47 +0000 Subject: [PATCH] made help find what you asked for reduced priv of msg to 6 --- Changes | 2 ++ cmd/help.pl | 2 +- cmd/msg.pl | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index c415b606..acfddda8 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,8 @@ 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 (def 72) +3. help command should now return stuff that you expect. +4. reduced necessary privilege to use 'MSG' command to 6. 18Oct99======================================================================= 1. changed help command so that it works correctly with multiple title lines. 2. added to address to the list of things a message checks to see whether it diff --git a/cmd/help.pl b/cmd/help.pl index cf3dbd8b..f0da2f82 100644 --- a/cmd/help.pl +++ b/cmd/help.pl @@ -59,7 +59,7 @@ foreach $in (<$h>) { $in =~ s/=== //; my ($priv, $cmd, $desc) = split /\^/, $in; next if $priv > $self->priv; # ignore subcommands that are of no concern - next unless $cmd =~ /$line/i; + next unless $cmd =~ /^$line/i; push @out, "$cmd $desc" unless $cmd =~ /-$/o; $state = 1; next; diff --git a/cmd/msg.pl b/cmd/msg.pl index 0f68779b..70c99b01 100644 --- a/cmd/msg.pl +++ b/cmd/msg.pl @@ -8,7 +8,7 @@ # my ($self, $line) = @_; -return (1, $self->msg('e5')) if $self->priv < 9; +return (1, $self->msg('e5')) if $self->priv < 6; # a line is cmd, msgno, data my @f = split /\s+/, $line, 3; -- 2.43.0