1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:35:41 -04:00

fixing the plugins i broke when fixing some warnings

This commit is contained in:
Ryan Voots 2010-03-11 17:27:17 -05:00
parent 862ad247c7
commit ed0208578d
8 changed files with 18 additions and 14 deletions

View file

@ -1,6 +1,6 @@
package Bot::BB3::Plugin::CacheCheck;
use strict;
no warnings 'void';
sub new {
my( $class ) = @_;
@ -34,4 +34,4 @@ sub command {
}
1; #Bot::BB3::Plugin::CacheCheck
"Bot::BB3::Plugin::CacheCheck"

View file

@ -1,6 +1,6 @@
package Bot::BB3::Plugin::Compose;
use strict;
no warnings 'void';
sub new {
my( $class ) = @_;
my $self = bless {}, $class;
@ -111,7 +111,7 @@ sub runplugin {
}
1 #"Bot::BB3::Plugin::Compose";
"Bot::BB3::Plugin::Compose";
__DATA__
Supports composing multiple plugins together. That is, it allows you to feed the output of one plugin to another plugin. Syntax compose (eval (echo 2+2)). Note that it uses the first non whitespace character as the start-delimiter and the last non-whitespace as the end delimter.

View file

@ -8,6 +8,8 @@ use IO::Socket::INET;
use Data::Dumper;
use strict;
no warnings 'void';
sub new {
my( $class ) = @_;
@ -72,7 +74,7 @@ sub command {
return( 'handled', $resultstr );
}
1 #"Bot::BB3::Plugin::Eval";
"Bot::BB3::Plugin::Eval";
__DATA__
The eval plugin. Evaluates various different languages. Syntax, eval: code; also pleval deparse rbeval jseval pyeval phpeval k20eval luaeval jeval.

View file

@ -366,8 +366,7 @@ sub get_fact_search {
my $results = $self->dbh->selectall_arrayref(
"SELECT subject,copula,predicate
FROM (SELECT factoid_id,subject,predicate FROM factoid GROUP BY original_subject) as subquery
WHERE subject like ? OR predicate like ?
GROUP BY original_subject", # using a subquery so that i can do this properly
WHERE subject like ? OR predicate like ?", # using a subquery so that i can do this properly
{Slice => {}},
"%$body%", "%$body%",
);
@ -514,7 +513,7 @@ sub _soundex_matches {
return [ map $_->[1], grep $_->[2] =~ /\S/, @$rows ];
}
1 #"Bot::BB3::Plugin::Factoids";
no warnings 'void';
"Bot::BB3::Plugin::Factoids";
__DATA__
Learn or retrieve persistent factoids. "foo is bar" to store. "foo" to retrieve. try "forget foo" or "revisions foo" or "literal foo" or "revert $REV_ID" too. "macro foo is [echo bar]" or "func foo is [echo bar [arg]]" for compose macro factoids. The factoids/fact/call keyword is optional except in compose. Search <subject> to search for factoids that match.

View file

@ -70,5 +70,5 @@ sub handle {
return;
}
1 #"Bot::BB3::Plugin::Karma_Modify";
no warnings 'void';
"Bot::BB3::Plugin::Karma_Modify";

View file

@ -58,6 +58,7 @@ sub post_process {
}
}
1#"Bot::BB3::Plugin::More";
no warnings 'void';
"Bot::BB3::Plugin::More";
__DATA__
More acts as a pager. It automatically truncates output that is too long and saves it in a buffer based on your name. Use the command `more` to access the remainder of the text.

View file

@ -17,7 +17,8 @@ sub command {
return( "handled", $output );
}
1#"Bot::BB3::Plugin::Plugins";
no warnings 'void';
"Bot::BB3::Plugin::Plugins";
__DATA__
Returns a list of all of the loaded plugins for this bot. Syntax, plugins

View file

@ -87,7 +87,8 @@ sub handle {
return;
}
1#"Bot::BB3::Plugin::Seen";
no warnings 'void';
"Bot::BB3::Plugin::Seen";
__DATA__
The seen plugin. Attempts to keep track of every user the bot has 'seen'. Use the syntax, seen user; to ask the bot when it last saw the user named 'user'.