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

Remove un-used languages from eval. Reduces memory footprint by 80%.

Browse source
This commit is contained in:
Ryan Voots 2016-04-13 12:55:24 -04:00
parent a5b8dab8c3
commit bf34a550a5
4 changed files with 145 additions and 143 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
lib/Bot/BB3/.PluginManager.pm.swp
View file

Binary file not shown.

284
lib/eval.pl
View file

@ -20,22 +20,22 @@ use Encode;
use Digest::MD5; use Digest::MD5;
use Digest::SHA; use Digest::SHA;
use DateTime; use DateTime;
use DateTimeX::Easy; # use DateTimeX::Easy;
use Date::Parse; use Date::Parse;
use Time::Piece; use Time::Piece;
use Time::HiRes; use Time::HiRes;
use URI; use URI;
use URI::Encode; use URI::Encode;
use Rand::MersenneTwister; # use Rand::MersenneTwister;
use Mojo::DOM; #use Mojo::DOM;
use Mojo::DOM::HTML; #use Mojo::DOM::HTML;
use Mojo::DOM::CSS; #use Mojo::DOM::CSS;
use Mojo::Collection; #use Mojo::Collection;
use YAPE::Regex::Explain; #use YAPE::Regex::Explain;
require Function::Parameters; require Function::Parameters;
require experimental; require experimental;
require "if.pm"; #require "if.pm";
#use JSON; #use JSON;
#use JSON::XS; #use JSON::XS;
require Cpanel::JSON::XS; require Cpanel::JSON::XS;
@ -45,7 +45,7 @@ require JSON;
require Moose; require Moose;
require MooseX::Declare; require MooseX::Declare;
eval "use MooseX::Declare; class LoadAllMooseXDeclare { has dongs => ( is => ro, isa => 'Int' ); };"; # eval "use MooseX::Declare; class LoadAllMooseXDeclare { has dongs => ( is => ro, isa => 'Int' ); };";
require "utf8_heavy.pl"; require "utf8_heavy.pl";
use arybase; use arybase;
use Errno; use Errno;
@ -108,10 +108,10 @@ eval {"\N{SPARKLE}"}; # force loading of some of the charnames stuff
# Required for perl_deparse # Required for perl_deparse
use B::Deparse; use B::Deparse;
# Javascript Libs ## Javascript Libs
BEGIN{ eval "use JavaScript::V8; require JSON::XS; JavaScript::V8::Context->new()->eval('1')"; } #BEGIN{ eval "use JavaScript::V8; require JSON::XS; JavaScript::V8::Context->new()->eval('1')"; }
my $JSENV_CODE = do { local $/; open my $fh, "deps/env.js"; <$fh> }; #my $JSENV_CODE = do { local $/; open my $fh, "deps/env.js"; <$fh> };
require 'bytes_heavy.pl'; #require 'bytes_heavy.pl';
use Tie::Hash::NamedCapture; use Tie::Hash::NamedCapture;
@ -121,34 +121,34 @@ use Tie::Hash::NamedCapture;
} }
binmode STDOUT, ":utf8"; # Enable utf8 output. binmode STDOUT, ":utf8"; # Enable utf8 output.
BEGIN{ eval "use PHP::Interpreter;"; } #BEGIN{ eval "use PHP::Interpreter;"; }
# Evil Ruby stuff # Evil Ruby stuff
BEGIN{ eval "use Inline::Ruby qw/rb_eval/;"; } #BEGIN{ eval "use Inline::Ruby qw/rb_eval/;"; }
BEGIN { $SIG{SEGV} = sub { die "Segmentation Fault\n"; } } #Attempt to override the handler Ruby installs. #BEGIN { $SIG{SEGV} = sub { die "Segmentation Fault\n"; } } #Attempt to override the handler Ruby installs.
# Evil K20 stuff # # Evil K20 stuff
BEGIN { # BEGIN {
local $@; # local $@;
eval "use Language::K20;"; # eval "use Language::K20;";
unless( $@ ) { # unless( $@ ) {
Language::K20::k20eval( "2+2\n" ); # This eval loads the dynamic components before the chroot. # Language::K20::k20eval( "2+2\n" ); # This eval loads the dynamic components before the chroot.
# Note that k20eval always tries to output to stdout so we # # Note that k20eval always tries to output to stdout so we
# must end the command with a \n to prevent this output. # # must end the command with a \n to prevent this output.
} # }
} # }
#
BEGIN { chdir "var/"; $0="../$0"; } # CHDIR to stop inline from creating stupid _Inline directories everywhere # BEGIN { chdir "var/"; $0="../$0"; } # CHDIR to stop inline from creating stupid _Inline directories everywhere
# Inline::Lua doesn't seem to provide an eval function. SIGH. # # Inline::Lua doesn't seem to provide an eval function. SIGH.
BEGIN { eval 'use Inline Lua => "function lua_eval(str) return loadstring(str) end";'; } # BEGIN { eval 'use Inline Lua => "function lua_eval(str) return loadstring(str) end";'; }
BEGIN { chdir ".."; $0=~s/^\.\.\/// } # Assume our earlier chdir succeded. Yay! # BEGIN { chdir ".."; $0=~s/^\.\.\/// } # Assume our earlier chdir succeded. Yay!
# Evil python stuff # # Evil python stuff
BEGIN { eval "use Inline::Python qw/py_eval/;"; } # BEGIN { eval "use Inline::Python qw/py_eval/;"; }
# Evil J stuff # # Evil J stuff
BEGIN { eval "use Jplugin;"; } # BEGIN { eval "use Jplugin;"; }
use Carp::Heavy; use Carp::Heavy;
use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on demand use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on demand
@ -203,7 +203,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
my $kilo = 1024; my $kilo = 1024;
my $meg = $kilo * $kilo; my $meg = $kilo * $kilo;
my $limit = 1024 * $meg; my $limit = 200 * $meg;
( (
setrlimit(RLIMIT_VMEM, 1.5*$limit, 1.5*$limit) setrlimit(RLIMIT_VMEM, 1.5*$limit, 1.5*$limit)
@ -248,30 +248,30 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
if( $type eq 'perl' or $type eq 'pl' ) { if( $type eq 'perl' or $type eq 'pl' ) {
perl_code($code); perl_code($code);
} }
elsif( $type eq 'javascript' ) {
javascript_code($code);
}
elsif( $type eq 'php' ) {
php_code($code);
}
elsif( $type eq 'deparse' ) { elsif( $type eq 'deparse' ) {
deparse_perl_code($code); deparse_perl_code($code);
} }
elsif( $type eq 'k20' ) { # elsif( $type eq 'javascript' ) {
k20_code($code); # javascript_code($code);
} # }
elsif( $type eq 'rb' or $type eq 'ruby' ) { # elsif( $type eq 'php' ) {
ruby_code($code); # php_code($code);
} # }
elsif( $type eq 'py' or $type eq 'python' ) { # elsif( $type eq 'k20' ) {
python_code($code); # k20_code($code);
} # }
elsif( $type eq 'lua' ) { # elsif( $type eq 'rb' or $type eq 'ruby' ) {
lua_code($code); # ruby_code($code);
} # }
elsif( $type eq 'j' ) { # elsif( $type eq 'py' or $type eq 'python' ) {
j_code($code); # python_code($code);
} # }
# elsif( $type eq 'lua' ) {
# lua_code($code);
# }
# elsif( $type eq 'j' ) {
# j_code($code);
# }
# *STDOUT = $oldout; # *STDOUT = $oldout;
close($stdh); close($stdh);
@ -315,88 +315,88 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
sub javascript_code { # sub javascript_code {
my( $code ) = @_; # my( $code ) = @_;
local $@; # local $@;
#
my $js = JavaScript::V8::Context->new; # my $js = JavaScript::V8::Context->new;
#
# Set up the Environment for ENVJS # # Set up the Environment for ENVJS
$js->bind("print", sub { print @_ } ); # $js->bind("print", sub { print @_ } );
$js->bind("write", sub { print @_ } ); # $js->bind("write", sub { print @_ } );
#
# for( qw/log debug info warn error/ ) { # # for( qw/log debug info warn error/ ) {
# $js->eval("Envjs.$_=function(x){}"); # # $js->eval("Envjs.$_=function(x){}");
# } # # }
#
# $js->eval($JSENV_CODE) or die $@; # # $js->eval($JSENV_CODE) or die $@;
#
$code =~ s/(["\\])/\\$1/g; # $code =~ s/(["\\])/\\$1/g;
my $rcode = qq{write(eval("$code"))}; # my $rcode = qq{write(eval("$code"))};
#
#
#
my $out = eval { $js->eval($rcode) }; # my $out = eval { $js->eval($rcode) };
#
if( $@ ) { print "ERROR: $@"; } # if( $@ ) { print "ERROR: $@"; }
else { print encode_json $out } # else { print encode_json $out }
} # }
#
sub ruby_code { # sub ruby_code {
my( $code ) = @_; # my( $code ) = @_;
local $@; # local $@;
#
print rb_eval( $code ); # print rb_eval( $code );
} # }
#
sub php_code { # sub php_code {
my( $code ) = @_; # my( $code ) = @_;
local $@; # local $@;
#
#warn "PHP - [$code]"; # #warn "PHP - [$code]";
#
my $php = PHP::Interpreter->new; # my $php = PHP::Interpreter->new;
#
$php->set_output_handler(\ my $output ); # $php->set_output_handler(\ my $output );
#
$php->eval("$code;"); # $php->eval("$code;");
#
print $php->get_output; # print $php->get_output;
#
#warn "ENDING"; # #warn "ENDING";
#
if( $@ ) { print "ERROR: $@"; } # if( $@ ) { print "ERROR: $@"; }
} # }
#
sub k20_code { # sub k20_code {
my( $code ) = @_; # my( $code ) = @_;
#
$code =~ s/\r?\n//g; # $code =~ s/\r?\n//g;
#
#
Language::K20::k20eval( '."\\\\r ' . int(rand(2**31)) . '";' . "\n"); # set random seed # Language::K20::k20eval( '."\\\\r ' . int(rand(2**31)) . '";' . "\n"); # set random seed
#
Language::K20::k20eval( $code ); # Language::K20::k20eval( $code );
} # }
#
sub python_code { # sub python_code {
my( $code ) = @_; # my( $code ) = @_;
#
py_eval( $code, 2 ); # py_eval( $code, 2 );
} # }
#
sub lua_code { # sub lua_code {
my( $code ) = @_; # my( $code ) = @_;
#
#print lua_eval( $code )->(); # #print lua_eval( $code )->();
#
my $ret = lua_eval( $code ); # my $ret = lua_eval( $code );
#
print ref $ret ? $ret->() : $ret; # print ref $ret ? $ret->() : $ret;
} # }
#
sub j_code { # sub j_code {
my( $code ) = @_; # my( $code ) = @_;
#
Jplugin::jplugin( $code ); # Jplugin::jplugin( $code );
} # }

BIN
plugins/.badfactstemp.pm.swp
View file

Binary file not shown.

4
plugins/eval.pm
View file

@ -68,7 +68,9 @@ sub command {
my $result = $filter->get( [ $output ] ); my $result = $filter->get( [ $output ] );
my $resultstr = $result->[0]->[0]; my $resultstr = $result->[0]->[0];
$dbh->do("INSERT INTO evals (input, output) VALUES (?, ?)", {}, $code, $resultstr); if ($type eq 'perl') {
$dbh->do("INSERT INTO evals (input, output) VALUES (?, ?)", {}, $code, $resultstr);
}
if (!$said->{captured} && $resultstr !~ /\S/) { if (!$said->{captured} && $resultstr !~ /\S/) {
$resultstr = "No output."; $resultstr = "No output.";