projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
47c1e91
)
made help find what you asked for
author
djk
<djk>
Wed, 20 Oct 1999 11:34:47 +0000
(11:34 +0000)
committer
djk
<djk>
Wed, 20 Oct 1999 11:34:47 +0000
(11:34 +0000)
reduced priv of msg to 6
Changes
patch
|
blob
|
history
cmd/help.pl
patch
|
blob
|
history
cmd/msg.pl
patch
|
blob
|
history
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)
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
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
$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;
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) = @_;
#
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;
# a line is cmd, msgno, data
my @f = split /\s+/, $line, 3;