use strict;
use warnings;
-our $VERSION = 0.001001;
+our $VERSION = '0.001002';
use DB_File;
infobot_add $self, $irc, $1, $2, $to, $nick if $addressed
} elsif (/^(.+)\?$/) {
infobot_query $self, $irc, $1, $to, $nick, $addressed
- } elsif (/^forget\s+(.*)$/) {
- infobot_forget $self, $irc, $1, $to, $nick if $addressed
+ } elsif ($addressed && /^!?forget\s+(.*)$/ || /^!forget\s+(.*)$/) {
+ infobot_forget $self, $irc, $1, $to, $nick
}
}