}
};
+command teachbot => {
+ help => q(dummy command),
+ acl => 'irc_teachbot',
+ type => q(teachbot),
+}, class extends NDIRC::Command {
+ method execute($c,$msg) {
+ }
+};
+
1;
unless ($irc->is_channel_member($channel,$1) || /(Constructing|Researching)/){
$msg = ".anon $_ $text";
}
-
- }
- 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);
}
};