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

foo

Browse source
This commit is contained in:
Ryan Voots 2018-11-30 17:24:10 -05:00
parent 1b5af35f16
commit d6262a5f60
4 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app.cfg
View file

@ -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"

1
lib/App/Controller/Paste.pm
View file

@ -5,6 +5,7 @@ use warnings;
use App::Config;
use Mojo::Base 'Mojolicious::Controller';
use Mojo::IOLoop;
sub routes {
my ($class, $r) = @_;

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

@ -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 => [

1
lib/App/Model/Languages.pm
View file

@ -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"},