made help find what you asked for

reduced priv of msg to 6

diff --git a/Changes b/Changes
index c415b6069f304032ebebc42e418bd7e937d30841..acfddda82121991d05153fa3421f7198943d33b9 100644 (file)
--- 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 cf3dbd8b5a9e25a65f7e81c04bd596e060df8355..f0da2f82f07dcbe2ea5caa8c48e83fe048649e02 100644 (file)
--- 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 0f68779b61d70803a34f4736a5607e2b7fe250af..70c99b01f688b5f5b4378695f28e93d2307aa6ec 100644 (file)
--- 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;