Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 19:05:50 -04:00
Code Issues Releases Wiki Activity

Fix it in /msg

Browse source
This commit is contained in:
Ryan Voots 2016-12-30 20:56:34 -08:00
parent 7a63cc3753
commit 4bb5dbd762
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
plugins/factoids.pm
View file

@ -91,6 +91,8 @@ sub get_namespaced_factoid {
$channel = $forcechan // $channel;
$server = $forceserver // $server;
return $body if $channel eq '*irc_msg' or $channel eq '##NULL';
warn "NAMESPACE: [ $channel , $server ]";
my $conf = $self->get_conf_for_channel($pm, $server, $channel);
@ -156,9 +158,10 @@ sub command {
my $commands_re = join '|', keys %commandhash;
$commands_re = qr/$commands_re/;
if ($conf->{namespaced}) {
if ($conf->{namespaced} || $said->{channel} eq '*irc_msg') {
# Parse body here
my $body = $said->{body};
$said->{channel} = "##NULL" if $said->{channel} eq '*irc_msg';
if ($body =~ /^(?<command>$commands_re)\s+(?<fact>.*)$/){
my ($command, $fact) = @+{qw/command fact/};