From: djk <djk>
Date: Wed, 20 Oct 1999 11:34:47 +0000 (+0000)
Subject: made help find what you asked for
X-Git-Tag: R_1_32~15
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=371caba1b5b241d10e9f68bfb2b866141f3ea84e;p=spider.git

made help find what you asked for
reduced priv of msg to 6
---

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;