Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 15:45: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} = { $self->{opts} = {
command => 1, 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"); $self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
return $self; return $self;
@ -31,6 +31,7 @@ sub command {
my $code = $said->{"body"}; my $code = $said->{"body"};
my $dbh = $self->{dbh}; my $dbh = $self->{dbh};
my $command = $said->{command_match};
my $type = $said->{command_match}; my $type = $said->{command_match};
$type =~ s/^\s*(\w+?)eval/$1/; $type =~ s/^\s*(\w+?)eval/$1/;
warn "Initial type: $type\n"; warn "Initial type: $type\n";
@ -48,12 +49,17 @@ sub command {
'python' => 'python', 'python' => 'python',
'lua' => 'lua', 'lua' => 'lua',
'j' => 'j', 'j' => 'j',
'w' => 'perl',
); );
$type = $translations{$type}; $type = $translations{$type};
if( not $type ) { $type = 'perl'; } if( not $type ) { $type = 'perl'; }
warn "Found $type: $code"; warn "Found $type: $code";
if ($command eq 'weval') {
$code = "use warnings; ".$code;
}
my $filter = POE::Filter::Reference->new(); my $filter = POE::Filter::Reference->new();
my $socket = IO::Socket::INET->new( PeerAddr => 'localhost', PeerPort => '14400' ) my $socket = IO::Socket::INET->new( PeerAddr => 'localhost', PeerPort => '14400' )
or die "error: cannot connect to eval server"; or die "error: cannot connect to eval server";