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

add warning eval

Browse source
This commit is contained in:
Ryan Voots 2016-07-15 18:07:09 -04:00
parent 0c1f9a4f85
commit 00a54e229a
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
plugins/eval.pm
View file

@ -19,7 +19,7 @@ sub new {
$self->{opts} = {
command => 1,
};
$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse k20eval rbeval pyeval luaeval/ ];
$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse k20eval rbeval pyeval luaeval weval/ ];
$self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
return $self;
@ -31,6 +31,7 @@ sub command {
my $code = $said->{"body"};
my $dbh = $self->{dbh};
my $command = $said->{command_match};
my $type = $said->{command_match};
$type =~ s/^\s*(\w+?)eval/$1/;
warn "Initial type: $type\n";
@ -48,12 +49,17 @@ sub command {
'python' => 'python',
'lua' => 'lua',
'j' => 'j',
'w' => 'perl',
);
$type = $translations{$type};
if( not $type ) { $type = 'perl'; }
warn "Found $type: $code";
if ($command eq 'weval') {
$code = "use warnings; ".$code;
}
my $filter = POE::Filter::Reference->new();
my $socket = IO::Socket::INET->new( PeerAddr => 'localhost', PeerPort => '14400' )
or die "error: cannot connect to eval server";