my $text = $2;
unless ($irc->is_channel_member($channel,$1) || /(Constructing|Researching)/){
$msg = ".anon $_ $text";
+ $self->parseCommand($msg,$irc,$nick,$address,$channel,$dbh);
}
-
- }
- if ($self->parseCommand($msg,$irc,$nick,$address,$channel,$dbh)){
+ }elsif ($self->parseCommand($msg,$irc,$nick,$address,$channel,$dbh)){
#Command parsed and run successfully
+ }elsif($self->disp->has_command('teachbot',$channel)){
+ $msg =~ s/^\S+:\s*//;
+ $self->hal->learn($msg);
}
};