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

fixing the plugins i broke when fixing some warnings

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/cache_check.pm
View file

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

4
plugins/compose.pm
View file

@ -1,6 +1,6 @@
package Bot::BB3::Plugin::Compose; package Bot::BB3::Plugin::Compose;
use strict; use strict;
no warnings 'void';
sub new { sub new {
my( $class ) = @_; my( $class ) = @_;
my $self = bless {}, $class; my $self = bless {}, $class;
@ -111,7 +111,7 @@ sub runplugin {
} }
1 #"Bot::BB3::Plugin::Compose"; "Bot::BB3::Plugin::Compose";
__DATA__ __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. 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.

4
plugins/eval.pm
View file

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

7
plugins/factoids.pm
View file

@ -366,8 +366,7 @@ sub get_fact_search {
my $results = $self->dbh->selectall_arrayref( my $results = $self->dbh->selectall_arrayref(
"SELECT subject,copula,predicate "SELECT subject,copula,predicate
FROM (SELECT factoid_id,subject,predicate FROM factoid GROUP BY original_subject) as subquery FROM (SELECT factoid_id,subject,predicate FROM factoid GROUP BY original_subject) as subquery
WHERE subject like ? OR predicate like ? WHERE subject like ? OR predicate like ?", # using a subquery so that i can do this properly
GROUP BY original_subject", # using a subquery so that i can do this properly
{Slice => {}}, {Slice => {}},
"%$body%", "%$body%", "%$body%", "%$body%",
); );
@ -514,7 +513,7 @@ sub _soundex_matches {
return [ map $_->[1], grep $_->[2] =~ /\S/, @$rows ]; return [ map $_->[1], grep $_->[2] =~ /\S/, @$rows ];
} }
no warnings 'void';
1 #"Bot::BB3::Plugin::Factoids"; "Bot::BB3::Plugin::Factoids";
__DATA__ __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. 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.

4
plugins/karma_modify.pm
View file

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

3
plugins/more.pm
View file

@ -58,6 +58,7 @@ sub post_process {
} }
} }
1#"Bot::BB3::Plugin::More"; no warnings 'void';
"Bot::BB3::Plugin::More";
__DATA__ __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. 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.

3
plugins/plugins.pm
View file

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

3
plugins/seen.pm
View file

@ -87,7 +87,8 @@ sub handle {
return; return;
} }
1#"Bot::BB3::Plugin::Seen"; no warnings 'void';
"Bot::BB3::Plugin::Seen";
__DATA__ __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'. 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'.