From 371caba1b5b241d10e9f68bfb2b866141f3ea84e Mon Sep 17 00:00:00 2001
From: djk <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