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

Make the tell factoid special

Browse source
This commit is contained in:
Ryan Voots 2016-08-09 14:41:03 -04:00
parent 9e590ff971
commit 4d2bead381
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
plugins/factoids.pm
View file

@ -580,6 +580,7 @@ sub _db_get_fact {
sub basic_get_fact { sub basic_get_fact {
my( $self, $pm, $said, $subject, $name, $call_only ) = @_; my( $self, $pm, $said, $subject, $name, $call_only ) = @_;
# open(my $fh, ">>/tmp/facts");
my ($fact, $key, $arg); my ($fact, $key, $arg);
$key = _clean_subject($subject); $key = _clean_subject($subject);
@ -605,7 +606,13 @@ sub basic_get_fact {
local $said->{body} = $fact->{predicate}; local $said->{body} = $fact->{predicate};
local $said->{addressed} = 1; # Force addressed to circumvent restrictions? May not be needed! local $said->{addressed} = 1; # Force addressed to circumvent restrictions? May not be needed!
return $plugin->command($said,$pm); my $ret = $plugin->command($said, $pm);
# use Data::Dumper;
# print $fh Dumper({key => $key, arg => $arg, fact => $fact, ret => $ret, wa => wantarray});
$ret = "\x00$ret" if ($key eq "tell");
return $ret;
} }
else { else {
return "$fact->{predicate}"; return "$fact->{predicate}";