Also accept 'commands' command instead of help, since it is what some people expect. We should probably also support 'list' but that is more likely to clash with other modules.

This commit is contained in:
ian%hixie.ch 2004-01-28 13:09:40 +00:00
parent 0f673dbef7
commit e04f6d3fa6

View File

@ -35,7 +35,7 @@ sub Help {
sub Told {
my $self = shift;
my ($event, $message) = @_;
if ($message =~ /^\s*help(?:\s+($variablepattern))?[ ?!.]*\s*$/osi) {
if ($message =~ /^\s*(?:help|commands?)(?:\s+($variablepattern))?[ ?!.]*\s*$/osi) {
if ($1) {
# display help for that command
# first, build the help file...