From bd4c180756b9dd20144a78618b6ec2153226578a Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Sun, 25 Jul 2021 12:31:35 -0400 Subject: [PATCH] working on things --- etc/base.cfg | 24 +++++++++++++----------- lib/App/Model/Eval.pm | 4 ++-- lib/App/Model/Languages.pm | 4 +++- templates/editor.html | 34 +++++++++++++++++++++------------- 4 files changed, 39 insertions(+), 27 deletions(-) diff --git a/etc/base.cfg b/etc/base.cfg index 31c038f..dc1b1c6 100644 --- a/etc/base.cfg +++ b/etc/base.cfg @@ -43,21 +43,23 @@ port="1784" protocol="perlbot" [announce.channels] -"192.168.32.1:perlbot:#perl"="Freenode #perl" -"192.168.32.1:perlbot:#perl6"="Freenode #perl6" -"192.168.32.1:perlbot:#web"="Freenode #web" -"192.168.32.1:perlbot:#web-social"="Freenode #web-social" -"192.168.32.1:perlbot:#perlcafe"="Freenode #perlcafe" -"192.168.32.1:perlbot:#perlbot"="Freenode #perlbot" -"192.168.32.1:perlbot:##botparadise"="Freenode ##botparadise" -"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-libera:#perl"="Libera #perl" +"192.168.32.1:perlbot-libera:#raku"="Libera #raku" +"192.168.32.1:perlbot-libera:#web"="Libera #web" +"192.168.32.1:perlbot-libera:#web-social"="Libera #web-social" +"192.168.32.1:perlbot-libera:#perlcafe"="Libera #perlcafe" +"192.168.32.1:perlbot-libera:#perlbot"="Libera #perlbot" +"192.168.32.1:perlbot-libera:##botparadise"="Libera ##botparadise" +"192.168.32.1:perlbot-libera:#buubot"="Libera #buubot" +"192.168.32.1:perlbot-libera:#marpa"="Libera #marpa" +"192.168.32.1:perlbot-libera:#cobol"="Libera #cobol" +"192.168.32.1:perlbot-libera:#mojo"="Libera #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-magnet:#toolchain"="irc.perl.org #toolchain" +"192.168.32.1:perlbot:#perl"="Freenode #perl" "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" +"192.168.32.1:perlbot-rizon:#perl"="Rizon #perl" diff --git a/lib/App/Model/Eval.pm b/lib/App/Model/Eval.pm index 2043cec..51be6e9 100644 --- a/lib/App/Model/Eval.pm +++ b/lib/App/Model/Eval.pm @@ -35,8 +35,8 @@ sub _get_cache { return $memd->get($key); } -my @major_langs = qw/perl perl5.32.1 perl5.30.3 perl5.28.2 perl5.26.3 perl5.24.4 perl5.22.4 perl5.20.3 perl5.18.4 perl5.16.3 perl5.14.4 perl5.12.5 perl5.10.1 perl5.8.9 perl5.6.2/; -my @full_langs = map {"perl$_"} '', qw/5.32.1 5.32.0 5.30.3 5.30.2 5.30.1 5.30.0 5.28.2 5.28.1 5.28.0 5.26.3 5.26.2 5.26.1 5.26.0 5.24.4 5.24.3 5.24.2 5.24.1 5.24.0 5.22.4 5.22.3 5.22.2 5.22.1 5.22.0 5.20.3 5.20.2 5.20.1 5.20.0 5.18.4 5.18.3 5.18.2 5.18.1 5.18.0 5.16.3 5.16.2 5.16.1 5.16.0 5.14.4 5.14.3 5.14.2 5.14.1 5.14.0 5.12.5 5.12.4 5.12.3 5.12.2 5.12.1 5.12.0 5.10.1 5.10.0 5.8.9 5.8.8 5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.6.2 5.6.1 5.6.0/; +my @major_langs = qw/perl perl5.34.0 perl5.32.1 perl5.30.3 perl5.28.2 perl5.26.3 perl5.24.4 perl5.22.4 perl5.20.3 perl5.18.4 perl5.16.3 perl5.14.4 perl5.12.5 perl5.10.1 perl5.8.9 perl5.6.2/; +my @full_langs = map {"perl$_"} '', qw/5.34.0 5.32.1 5.32.0 5.30.3 5.30.2 5.30.1 5.30.0 5.28.2 5.28.1 5.28.0 5.26.3 5.26.2 5.26.1 5.26.0 5.24.4 5.24.3 5.24.2 5.24.1 5.24.0 5.22.4 5.22.3 5.22.2 5.22.1 5.22.0 5.20.3 5.20.2 5.20.1 5.20.0 5.18.4 5.18.3 5.18.2 5.18.1 5.18.0 5.16.3 5.16.2 5.16.1 5.16.0 5.14.4 5.14.3 5.14.2 5.14.1 5.14.0 5.12.5 5.12.4 5.12.3 5.12.2 5.12.1 5.12.0 5.10.1 5.10.0 5.8.9 5.8.8 5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.6.2 5.6.1 5.6.0/; sub get_eval { my ($self, $paste_id, $code, $langs, $wait, $callback) = @_; diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm index c2337ba..a1c6235 100644 --- a/lib/App/Model/Languages.pm +++ b/lib/App/Model/Languages.pm @@ -6,7 +6,7 @@ use warnings; use Mojo::Base '-base'; my @langs = ( - {name => "perl5.32", mode => "perl", description => "Perl 5.32"}, + {name => "perl5.34", mode => "perl", description => "Perl 5.34"}, {name => "perl6", mode => "perl", description => "Rakudo Star / Perl 6"}, {name => "bash", mode => "bash", description => "Bash"}, {name => "ruby", mode => "ruby", description => "Ruby (2.1)"}, @@ -22,6 +22,8 @@ my @langs = ( {name => "evaltall", mode => "perl", description => "Perl (EvalAll) (major threaded)"}, {name => "evalrall", mode => "perl", description => "Perl (EvalAll) (major un+threaded)"}, {name => "evalyall", mode => "perl", description => "Perl (EvalY'All) (EVERYTHING)"}, + {name => "perl5.34.0", mode => "perl", description => "Perl 5.34.0"}, + {name => "perl5.34.0t", mode => "perl", description => "Perl 5.34.0 (threaded)"}, {name => "perl5.32.1", mode => "perl", description => "Perl 5.32.1"}, {name => "perl5.32.1t", mode => "perl", description => "Perl 5.32.1 (threaded)"}, {name => "perl5.32.0", mode => "perl", description => "Perl 5.32.0"}, diff --git a/templates/editor.html b/templates/editor.html index bc52cc8..1889b60 100755 --- a/templates/editor.html +++ b/templates/editor.html @@ -37,22 +37,30 @@ // fuck parsing the hostname var servers = { - "f.perlbot.pl": "192.168.32.1:perlbot:", - "freenode.perlbot.pl": "192.168.32.1:perlbot:", - "m.perlbot.pl": "192.168.32.1:perlbot-magnet:", - "magnet.perlbot.pl": "192.168.32.1:perlbot-magnet:", - "o.perlbot.pl": "192.168.32.1:perlbot-oftc:", - "oftc.perlbot.pl": "192.168.32.1:perlbot-oftc:", - "f.perl.bot": "192.168.32.1:perlbot:", - "freenode.perl.bot": "192.168.32.1:perlbot:", - "m.perl.bot": "192.168.32.1:perlbot-magnet:", - "magnet.perl.bot": "192.168.32.1:perlbot-magnet:", - "o.perl.bot": "192.168.32.1:perlbot-oftc:", - "oftc.perl.bot": "192.168.32.1:perlbot-oftc:", "e.perl.bot": "192.168.32.1:perlbot-efnet", - "efnet.perl.bot": "192.168.32.1:perlbot-efnet", "e.perlbot.pl": "192.168.32.1:perlbot-efnet", + "efnet.perl.bot": "192.168.32.1:perlbot-efnet", "efnet.perlbot.pl": "192.168.32.1:perlbot-efnet", + "l.perl.bot": "192.168.32.1:perlbot-libera:", + "l.perlbot.pl": "192.168.32.1:perlbot-libera:", + "libera.perl.bot": "192.168.32.1:perlbot-libera:", + "libera.perlbot.pl": "192.168.32.1:perlbot-libera:", + "f.perl.bot": "192.168.32.1:perlbot:", + "f.perlbot.pl": "192.168.32.1:perlbot:", + "freenode.perl.bot": "192.168.32.1:perlbot:", + "freenode.perlbot.pl": "192.168.32.1:perlbot:", + "m.perl.bot": "192.168.32.1:perlbot-magnet:", + "m.perlbot.pl": "192.168.32.1:perlbot-magnet:", + "magnet.perl.bot": "192.168.32.1:perlbot-magnet:", + "magnet.perlbot.pl": "192.168.32.1:perlbot-magnet:", + "o.perl.bot": "192.168.32.1:perlbot-oftc:", + "o.perlbot.pl": "192.168.32.1:perlbot-oftc:", + "oftc.perl.bot": "192.168.32.1:perlbot-oftc:", + "oftc.perlbot.pl": "192.168.32.1:perlbot-oftc:", + "r.perl.bot": "192.168.32.1:perlbot-rizon:", + "r.perlbot.pl": "192.168.32.1:perlbot-rizon:", + "rizon.perl.bot": "192.168.32.1:perlbot-rizon:", + "rizon.perlbot.pl": "192.168.32.1:perlbot-rizon:", }; if (channel && servers[hostname]) { // only do this if we have a channel and a valid server