aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Ankarström <john@ankarstrom.se>2021-05-25 01:32:25 +0200
committerJohn Ankarström <john@ankarstrom.se>2021-05-25 01:32:25 +0200
commit1c8fd80ac7a4c3fdc29f11eb37c1ab8d475953de (patch)
treecd81a527bca976136719dd6d92dde1d6aacdbd10
parent1983f3f0dbbbbcedf99f48602c10b3916c1fb53b (diff)
downloadperlisdead-1c8fd80ac7a4c3fdc29f11eb37c1ab8d475953de.tar.gz
irc: Use Libera.Chat instead of Freenode
-rwxr-xr-xrun/irc6
1 files 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{<img border="0" src="(/tmp/channels/[^"<>]*?\.png)" alt="([^"<>]*?)"} if $r->is_success;
$i = $1 if $1;
$d = $2 if $2;