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:
parent
862ad247c7
commit
ed0208578d
8 changed files with 18 additions and 14 deletions
|
@ -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"
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -70,5 +70,5 @@ sub handle {
|
|||
|
||||
return;
|
||||
}
|
||||
|
||||
1 #"Bot::BB3::Plugin::Karma_Modify";
|
||||
no warnings 'void';
|
||||
"Bot::BB3::Plugin::Karma_Modify";
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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'.
|
||||
|
|
Loading…
Add table
Reference in a new issue