diff options
Diffstat (limited to 'run/irc')
-rwxr-xr-x | run/irc | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -10,12 +10,12 @@ $ua->ssl_opts(verify_hostname => 0); $ua->env_proxy; $ua->agent(''); -my $a = 'https://netsplit.de/channels/details.php?room=%23perl&net=freenode'; -my $r = $ua->get($a); +my $u = 'https://netsplit.de/channels/details.php?room=%23perl&net=freenode'; +my $r = $ua->get($u); die $r->status_line if not $r->is_success; if ($r->decoded_content =~ m{<img border="0" src="(/tmp/channels/.*?\.png)" alt="(.*?)"}) { print <<HTML; -<a href="$a"><img border="0" src="https://netsplit.de$1" alt="$2"/></a> +<a href="$u"><img border="0" src="https://netsplit.de$1" alt="$2"/></a> HTML } |