diff --git a/app.cfg b/app.cfg index 4f2ae0a..9ea1faf 100644 --- a/app.cfg +++ b/app.cfg @@ -51,8 +51,10 @@ protocol="perlbot" "192.168.32.1:perlbot:#buubot"="Freenode #buubot" "192.168.32.1:perlbot:#marpa"="Freenode #marpa" "192.168.32.1:perlbot:#cobol"="Freenode #cobol" +"192.168.32.1:perlbot:#mojo"="Freenode #mojo" "192.168.32.1:perlbot-magnet:#perl"="irc.perl.org #perl" "192.168.32.1:perlbot-magnet:#perl-help"="irc.perl.org #perl-help" "192.168.32.1:perlbot-magnet:#win32"="irc.perl.org #win32" "192.168.32.1:perlbot-oftc:#perl"="OFTC #perl" "192.168.32.1:perlbot-oftc:#perlbot"="OFTC #perlbot" +"192.168.32.1:perlbot-efnet:#perl"="EFNet #perl" diff --git a/lib/App/Controller/Paste.pm b/lib/App/Controller/Paste.pm index c577eaf..1372a37 100644 --- a/lib/App/Controller/Paste.pm +++ b/lib/App/Controller/Paste.pm @@ -5,6 +5,7 @@ use warnings; use App::Config; use Mojo::Base 'Mojolicious::Controller'; +use Mojo::IOLoop; sub routes { my ($class, $r) = @_; diff --git a/lib/App/Model/Eval.pm b/lib/App/Model/Eval.pm index 46ddf7b..4048080 100644 --- a/lib/App/Model/Eval.pm +++ b/lib/App/Model/Eval.pm @@ -103,6 +103,9 @@ sub async_eval { my $seq = $id++; + # try to fix bash? + $code =~ s/\r//g; + $self->_adopt_future($seq, $future); my $eval_obj = {language => $lang, files => [ diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm index 1aa650f..c743624 100644 --- a/lib/App/Model/Languages.pm +++ b/lib/App/Model/Languages.pm @@ -8,6 +8,7 @@ use Mojo::Base '-base'; my @langs = ( {name => "perl5.28", mode => "perl", description => "Perl 5.28"}, {name => "perl6", mode => "perl", description => "Rakudo Star / Perl 6"}, + {name => "bash", mode => "bash", description => "Bash"}, {name => "ruby", mode => "ruby", description => "Ruby (2.1)"}, {name => "javascript", mode => "javascript", description => "Javascript/Node.js"}, {name => "tcc", mode => "c_cpp", description => "TCC 0.9.27"},