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

learn command actually now works

Browse source
This commit is contained in:
Ryan Voots 2020-09-08 13:24:29 -07:00
parent ce124c09b7
commit c37e28511e
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
plugins/factoids.pm
View file

@ -575,8 +575,11 @@ sub get_fact_learn ($self, $body, $name, $said, $subject=undef, $predicate=undef
return if ($said->{nolearn}); return if ($said->{nolearn});
$body =~ s/^\s*learn\s+//; $body =~ s/^\s*learn\s+//;
($subject, $predicate) = split /\s+as\s+/, $body, 2
unless ($subject && $predicate); my $copula = "is";
unless ($subject && $predicate) {
($subject, $copula, $predicate) = $body =~ /^\s*(.*?)\s+(as|$COPULA_RE)\s+(.*)\s*$/ig;
}
print STDERR "trying to check perms\n"; print STDERR "trying to check perms\n";
#XXX check permissions here #XXX check permissions here
@ -585,7 +588,7 @@ sub get_fact_learn ($self, $body, $name, $said, $subject=undef, $predicate=undef
print STDERR "Trying to set\n"; print STDERR "Trying to set\n";
#my @ret = $self->store_factoid( $name, $said->{body} ); #my @ret = $self->store_factoid( $name, $said->{body} );
$self->_insert_factoid($name, $subject, 'is', $predicate, 0, $self->_db_get_protect($subject, $server, $namespace), $aliasserver, $aliasnamespace); $self->_insert_factoid($name, $subject, $copula, $predicate, 0, $self->_db_get_protect($subject, $server, $namespace), $aliasserver, $aliasnamespace);
return "Stored $subject as $predicate"; return "Stored $subject as $predicate";
} }