Perlbot/perlbuut-pastebin
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut-pastebin synced 2025-06-07 22:26:01 -04:00
Code Issues Releases Wiki Activity

More debugging, but not quite right

Browse source
This commit is contained in:
Ryan Voots 2017-07-27 23:17:31 -07:00
parent 51e6094717
commit 5f813c15e1
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/App/Controller/Eval.pm
View file

@ -20,6 +20,10 @@ sub run_eval {
my ($self) = @_; my ($self) = @_;
my $data = $self->req->body_params; my $data = $self->req->body_params;
$self = $self->inactivity_timeout(3600);
my $code = $data->param('code') // ''; my $code = $data->param('code') // '';
my $language = $data->param('language') // 'perl'; my $language = $data->param('language') // 'perl';

5
lib/App/Model/Eval.pm
View file

@ -112,6 +112,9 @@ sub async_eval {
sequence => $seq, sequence => $seq,
encoding => "utf8"}; encoding => "utf8"};
use Data::Dumper;
print Dumper($eval_obj);
my $message = encode_message(eval => $eval_obj); my $message = encode_message(eval => $eval_obj);
$reader->($seq, $future); $reader->($seq, $future);
@ -162,6 +165,8 @@ sub get_eval_reader {
print Dumper($res, length($buf)); print Dumper($res, length($buf));
} while ($res); } while ($res);
return 0;
}); });
return sub { return sub {