diff options
| -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; |