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

fixing massive security bug

Browse source
This commit is contained in:
Ryan Voots 2009-12-05 23:45:31 -05:00
parent abd28e6ddd
commit 084607c197
4 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lib/Bot/BB3/PluginManager.pm
View file

@ -68,12 +68,17 @@ sub get_plugins {
}
sub get_plugin {
my( $self, $name ) = @_;
my( $self, $name, $said ) = @_;
# Loops are cool.
# O(n) but nobody cares because it's rarely used.
# HA HA THIS IS A LIE.
for( @{ $self->{plugins} } ) {
#this fixes a security flaw, but not completely because i'm lazy right now
my $filtered = $self->{plugins};
$filtered = $self->_filter_plugin_list($said, $filtered) if ($said);
for( @{$filtered} ) {
if( $name eq $_->{name} ) {
return $_;
}

2
plugins/compose.pm
View file

@ -89,7 +89,7 @@ sub runplugin {
return( 0, "Error, cannot parse call to find command name, probably empty call in compose" );
defined($body) or $body = "";
my $plugin = $pm->get_plugin( $cmd )
my $plugin = $pm->get_plugin( $cmd, $said )
or return( 0, "Compose failed to find a plugin named: $cmd" );
local $said->{body} = $body;

2
plugins/factoids.pm
View file

@ -456,7 +456,7 @@ sub basic_get_fact {
if( $fact->{predicate} =~ /\S/ ) {
if( $fact->{compose_macro} ) {
my $plugin = $pm->get_plugin("compose");
my $plugin = $pm->get_plugin("compose", $said);
local $said->{macro_arg} = $arg;
local $said->{body} = $fact->{predicate};

2
plugins/help.pm
View file

@ -6,7 +6,7 @@ sub {
my $plugin_name = $said->{recommended_args}->[0];
if( length $plugin_name ) {
my $plugin = $pm->get_plugin( $plugin_name );
my $plugin = $pm->get_plugin( $plugin_name, $said );
if( $plugin ) {
print $plugin->{help_text};