From c587686e9a8ced8621b48fa4848586cd56578f55 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 7 May 2021 01:14:08 +0200
Subject: Add default src/alt to irc image

---
 run/irc | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/run/irc b/run/irc
index a77d8b2..2507809 100755
--- a/run/irc
+++ b/run/irc
@@ -12,10 +12,12 @@ $ua->agent('');
 
 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="$u"><img border="0" src="https://netsplit.de$1" alt="$2"/></a>
+my $i = '/tmp/channels/irc-stats-712-40793320.png';
+my $d = '#perl freenode - 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;
+print <<HTML;
+<a href="$u"><img border="0" src="https://netsplit.de$i" alt="$d"/></a>
 HTML
-}
-- 
cgit v1.2.3