From ecbb38029e3cb16001108c52d01d98da8f6bbc30 Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Tue, 22 May 2018 03:25:43 -0400 Subject: [PATCH 1/5] Fix to new setup --- app.cfg | 30 +++++++++++++++--------------- lib/App/Model/Perlbot.pm | 4 ++-- static/favicon.ico | Bin 1150 -> 2686 bytes templates/editor.html | 24 ++++++++++++------------ 4 files changed, 29 insertions(+), 29 deletions(-) diff --git a/app.cfg b/app.cfg index 91d1fd4..6343748 100644 --- a/app.cfg +++ b/app.cfg @@ -33,22 +33,22 @@ weight="2.5" # weight="1.0" [announce] -host="localhost" +host="192.168.196.2" port="1784" protocol="perlbot" [announce.channels] -"localhost:perlbot:#perl"="Freenode #perl" -"localhost:perlbot:#perl6"="Freenode #perl6" -"localhost:perlbot:#web"="Freenode #web" -"localhost:perlbot:#web-social"="Freenode #web-social" -"localhost:perlbot:#perlcafe"="Freenode #perlcafe" -"localhost:perlbot:#perlbot"="Freenode #perlbot" -"localhost:perlbot:##botparadise"="Freenode ##botparadise" -"localhost:perlbot:#buubot"="Freenode #buubot" -"localhost:perlbot:#marpa"="Freenode #marpa" -"localhost:perlbot:#cobol"="Freenode #cobol" -"localhost:perlbot-magnet:#perl"="irc.perl.org #perl" -"localhost:perlbot-magnet:#perl-help"="irc.perl.org #perl-help" -"localhost:perlbot-oftc:#perl"="OFTC #perl" -"localhost:perlbot-oftc:#perlbot"="OFTC #perlbot" +"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-magnet:#perl"="irc.perl.org #perl" +"192.168.32.1:perlbot-magnet:#perl-help"="irc.perl.org #perl-help" +"192.168.32.1:perlbot-oftc:#perl"="OFTC #perl" +"192.168.32.1:perlbot-oftc:#perlbot"="OFTC #perlbot" diff --git a/lib/App/Model/Perlbot.pm b/lib/App/Model/Perlbot.pm index 44763a5..08f992f 100644 --- a/lib/App/Model/Perlbot.pm +++ b/lib/App/Model/Perlbot.pm @@ -13,8 +13,8 @@ sub announce { my $self = shift; my ($channel, $who, $what, $link) = @_; - my $socket = IO::Socket::INET->new( PeerAddr => $self->config->{server} //'localhost', PeerPort => $self->config->{port} //1784 ) - or die "error: cannot connect to announce server"; + my $socket = IO::Socket::INET->new( PeerAddr => $self->config->{host}, PeerPort => $self->config->{port} ) + or die "error: cannot connect to announce server: $! ".$self->config->{host} . ":" .$self->config->{port}; print $socket "$channel\x1E$link\x1E$who\x1E$what\n"; close($socket); diff --git a/static/favicon.ico b/static/favicon.ico index 26344a4cd7313816a4314863744a627e5c4f4328..6cefe01b628168e4aad78c2adef1a5e0140fe256 100644 GIT binary patch literal 2686 zcmeHHJ$mIJ3>17@Z3Qm22C6;AJI)@%H-DLt5I=rSQYFoX#C}Mlkp=-43HWIDjwomIuEAN2+kabB-2YLQY4ksNx0bM>=>p zh-kg8SDlJmK`6llQPB{4!)v-a{}m75X$7`#U5_RxI7B5X;c0{d?S!BhD{Kwo4qy?&E~0qOm+OH82RDU>6o4Va zB|$ro6aSzhJ7e|&jaN*m%)=BrULjxI+8w|nQ+~OlkK?2tgPVxSzm>n7FyOlRYm%w1e_VHwE6k4@ z>@{G6iK`gbv0qMYpW>cjXY*Uv7yG*L;Ne^1_+0XwS?HCbm+qct(lvq4_UZ~NCfpq}sQ Uf9~MyeVu^EQ2iCQvGk<(4c835xc~qF diff --git a/templates/editor.html b/templates/editor.html index aa16edd..001b3f3 100755 --- a/templates/editor.html +++ b/templates/editor.html @@ -37,18 +37,18 @@ // fuck parsing the hostname var servers = { - "f.perlbot.pl": "localhost:perlbot:", - "freenode.perlbot.pl": "localhost:perlbot:", - "m.perlbot.pl": "localhost:perlbot-magnet:", - "magnet.perlbot.pl": "localhost:perlbot-magnet:", - "o.perlbot.pl": "localhost:perlbot-oftc:", - "oftc.perlbot.pl": "localhost:perlbot-oftc:", - "f.perl.bot": "localhost:perlbot:", - "freenode.perl.bot": "localhost:perlbot:", - "m.perl.bot": "localhost:perlbot-magnet:", - "magnet.perl.bot": "localhost:perlbot-magnet:", - "o.perl.bot": "localhost:perlbot-oftc:", - "oftc.perl.bot": "localhost:perlbot-oftc:", + "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:", }; if (channel && servers[hostname]) { // only do this if we have a channel and a valid server From baac54098a4c4e40efe28703229c09d498b3168f Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Tue, 26 Jun 2018 12:27:04 -0400 Subject: [PATCH 2/5] Add 5.28 support --- lib/App/Model/Eval.pm | 2 +- lib/App/Model/Languages.pm | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/App/Model/Eval.pm b/lib/App/Model/Eval.pm index 296c9d1..428c91d 100644 --- a/lib/App/Model/Eval.pm +++ b/lib/App/Model/Eval.pm @@ -35,7 +35,7 @@ sub get_eval { print "Entering\n"; if (@$langs == 1 && $langs->[0] eq "evalall") { - $langs = [qw/perl perl5.26 perl5.24 perl5.22 perl5.20 perl5.18 perl5.16 perl5.14 perl5.12 perl5.10 perl5.8 perl5.6/]; + $langs = [qw/perl perl5.28 perl5.26 perl5.26t perl5.24 perl5.22 perl5.20 perl5.18 perl5.16 perl5.14 perl5.12 perl5.10 perl5.8 perl5.6/]; } use Data::Dumper; diff --git a/lib/App/Model/Languages.pm b/lib/App/Model/Languages.pm index e2b8e41..1aa650f 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.26", mode => "perl", description => "Perl 5.26"}, + {name => "perl5.28", mode => "perl", description => "Perl 5.28"}, {name => "perl6", mode => "perl", description => "Rakudo Star / Perl 6"}, {name => "ruby", mode => "ruby", description => "Ruby (2.1)"}, {name => "javascript", mode => "javascript", description => "Javascript/Node.js"}, @@ -17,6 +17,8 @@ my @langs = ( {name => "perl", mode => "perl", description => "Perl 5 (blead/git)"}, {name => "deparse", mode => "perl", description => "Deparsed Perl"}, {name => "evalall", mode => "perl", description => "Perl (EvalAll)"}, + {name => "perl5.26", mode => "perl", description => "Perl 5.26"}, + {name => "perl5.26t", mode => "perl", description => "Perl 5.26 (Threaded)"}, {name => "perl5.24", mode => "perl", description => "Perl 5.24"}, {name => "perl5.22", mode => "perl", description => "Perl 5.22"}, {name => "perl5.20", mode => "perl", description => "Perl 5.20"}, From 53fb9bc390afb423b2dd2f34072426c3d2148a24 Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Tue, 26 Jun 2018 12:33:23 -0400 Subject: [PATCH 3/5] Fix timeout issues. Should really change the protocol on this --- lib/App/Model/Eval.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/App/Model/Eval.pm b/lib/App/Model/Eval.pm index 428c91d..46ddf7b 100644 --- a/lib/App/Model/Eval.pm +++ b/lib/App/Model/Eval.pm @@ -153,6 +153,7 @@ sub get_eval_reader { if ($type eq 'Warning') { push @{$warnings{$seq}}, $message->message; + $futures{$seq}->done($message->message); } elsif ($type eq 'EvalResponse') { print "Got eval response for $seq\n"; my $output = $message->get_contents; From 2b8ac01ebd237e8b50db14ff6b790d50d57ab71d Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Mon, 2 Jul 2018 21:39:38 -0400 Subject: [PATCH 4/5] handle plaintext better --- templates/viewer.html | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/templates/viewer.html b/templates/viewer.html index 5ee0241..c66754c 100755 --- a/templates/viewer.html +++ b/templates/viewer.html @@ -74,8 +74,7 @@
- [% IF eval.keys.size == 0 %] - ZERO + [% IF eval.keys.size == 0 || !eval.keys.size.defined %] [% ELSIF eval.keys.size == 1 %]

Program Output

From 1b5af35f165ab8940cc2ef0559d2fee94218d7cc Mon Sep 17 00:00:00 2001 From: Ryan Voots Date: Thu, 9 Aug 2018 16:56:44 -0400 Subject: [PATCH 5/5] Setup hypnotoad --- app.cfg | 4 ++++ lib/App.pm | 2 ++ 2 files changed, 6 insertions(+) diff --git a/app.cfg b/app.cfg index 6343748..4f2ae0a 100644 --- a/app.cfg +++ b/app.cfg @@ -3,6 +3,9 @@ memcached=true evalserver=true blogspam=false +[mojolicious.hypnotoad] +listen=["http://localhost:3000"] + [memcached] namespace="pastebin" unique_namespace=true @@ -50,5 +53,6 @@ protocol="perlbot" "192.168.32.1:perlbot:#cobol"="Freenode #cobol" "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" diff --git a/lib/App.pm b/lib/App.pm index 3fa6c13..fbd1f85 100644 --- a/lib/App.pm +++ b/lib/App.pm @@ -20,6 +20,8 @@ use App::Model::Languages; sub startup { my $self = shift; + $self->config($cfg->{mojolicious}); + $self->plugin('tt_renderer' => { template_options => { PRE_CHOMP => 1,