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

some more tweaks

Browse source
This commit is contained in:
Ryan Voots 2010-03-12 20:23:21 -05:00
parent c74027840e
commit 4c3063822e
2 changed files with 4 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
plugins/factoids.pm
View file

@ -324,10 +324,6 @@ sub get_fact_literal {
return _fact_literal_format($fact);
}
sub _fact_substitute_global
{
}
sub _fact_substitute
{
my ($self, $pred, $match, $subst, $flags) = @_;
@ -393,7 +389,7 @@ sub get_fact_substitute {
# $body =~ s/^\s*learn\s+//;
# my( $subject, $predicate ) = split /\s+as\s+/, $body, 2;
$self->get_fact_learn("learn $subject as $result");
$self->get_fact_learn("learn $subject as $result", $name, $said, $subject, $result);
return "learned $subject as $result";
}
@ -439,10 +435,10 @@ sub get_fact_revert {
}
sub get_fact_learn {
my( $self, $body, $name, $said ) = @_;
my( $self, $body, $name, $said, $subject, $predicate ) = @_;
$body =~ s/^\s*learn\s+//;
my( $subject, $predicate ) = split /\s+as\s+/, $body, 2;
($subject, $predicate ) = split /\s+as\s+/, $body, 2 unless ($subject && $predicate);
#XXX check permissions here
return "Insufficient permissions for changing protected factoid [$subject]" if (!$self->_db_check_perm($subject,$said));

2
plugins/geoip.pm
View file

@ -1,6 +1,6 @@
use Geo::IP;
no warnings 'void';
no warnings 'void', 'once';
sub {
my( $said, $pm ) = @_;