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

Merge branch 'master' of gitosis@isuckatdomains.net:perlbuut

Browse source
This commit is contained in:
Ryan Voots 2010-01-04 22:20:19 -05:00
commit 13619a695d
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
plugins/factoids.pm
View file

@ -147,7 +147,7 @@ sub store_factoid {
my( $self, $said) =@_;
my ($author, $body ) = ($said->{name}, $said->{body});
return unless $body =~ /^(?:\S+[:,])?\s*(.+?)\s+($COPULA_RE)\s+(.+)$/s;
return unless $body =~ /^\s*(.+?)\s+($COPULA_RE)\s+(.+)$/s;
my( $subject, $copula, $predicate ) = ($1,$2,$3);
my $compose_macro = 0;
@ -345,6 +345,9 @@ sub get_fact_learn {
sub get_fact_search {
my( $self, $body, $name ) = @_;
$body =~ s/^\s*for\s*//; #remove the for from searches
#XXX: need to also search contents of factoids TODO
my $results = $self->dbh->selectall_arrayref(
"SELECT subject,copula,predicate
FROM factoid
@ -357,6 +360,7 @@ sub get_fact_search {
if( $results and @$results ) {
my $ret_string;
for( @$results ) {
#i want a better string here, i'll probably go with just the subject, XXX TODO
$ret_string .= "[" . _fact_literal_format($_) . "] ";
}
@ -433,7 +437,6 @@ sub _db_get_fact {
return $fact;
}
sub basic_get_fact {
my( $self, $pm, $said, $subject, $name, $call_only ) = @_;