From 1983f3f0dbbbbcedf99f48602c10b3916c1fb53b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Mon, 10 May 2021 15:15:54 +0200 Subject: p5p: Fix subject encoding nntp.perl.org doesn't add a space after Re:, which causes issues for Email::MIME::RFC2047::Decoder. --- run/p5p | 1 + 1 file changed, 1 insertion(+) diff --git a/run/p5p b/run/p5p index 02530a6..e645bba 100755 --- a/run/p5p +++ b/run/p5p @@ -37,6 +37,7 @@ for my $alt (@alt) { $f{$id} =~ s,@[^.]*\.,@hidden.,; $s{$id} = '(no subject)' if not exists $s{$id}; + $s{$id} =~ s/Re:=\?/Re: =?/; # fix encoding $s{$id} = $decoder->decode_text($s{$id}); $s{$id} = encode_entities($s{$id}); -- cgit v1.2.3 From 1c8fd80ac7a4c3fdc29f11eb37c1ab8d475953de Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Tue, 25 May 2021 01:32:25 +0200 Subject: irc: Use Libera.Chat instead of Freenode --- run/irc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/run/irc b/run/irc index 89ae4fa..0e9f041 100755 --- a/run/irc +++ b/run/irc @@ -10,11 +10,11 @@ $ua->ssl_opts(verify_hostname => 0); $ua->env_proxy; $ua->agent(''); -my $u = 'https://netsplit.de/channels/details.php?room=%23perl&net=freenode'; +my $u = 'https://netsplit.de/channels/details.php?room=%23perl&net=Libera.Chat'; my $r = $ua->get($u); -my $i = '/tmp/channels/irc-stats-712-40793320.png'; -my $d = '#perl freenode - Graph about the amount of users during the last weeks'; +my $i = '/tmp/channels/irc-stats-7842-45163956.png'; +my $d = '#perl Libera.Chat - Graph about the amount of users during the last weeks'; $r->decoded_content =~ m{]*?\.png)" alt="([^"<>]*?)"} if $r->is_success; $i = $1 if $1; $d = $2 if $2; -- cgit v1.2.3