diff options
author | John Ankarström <john@ankarstrom.se> | 2021-05-25 01:32:25 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-05-25 01:32:25 +0200 |
commit | 1c8fd80ac7a4c3fdc29f11eb37c1ab8d475953de (patch) | |
tree | cd81a527bca976136719dd6d92dde1d6aacdbd10 | |
parent | 1983f3f0dbbbbcedf99f48602c10b3916c1fb53b (diff) | |
download | perlisdead-1c8fd80ac7a4c3fdc29f11eb37c1ab8d475953de.tar.gz |
irc: Use Libera.Chat instead of Freenode
-rwxr-xr-x | run/irc | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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{<img border="0" src="(/tmp/channels/[^"<>]*?\.png)" alt="([^"<>]*?)"} if $r->is_success; $i = $1 if $1; $d = $2 if $2; |