From df484fd9b6640639c3a6098814b41628d02e5d54 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Thu, 6 May 2021 18:21:15 +0200
Subject: Add perlmonks, irc nodes

---
 run/irc | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 run/irc

(limited to 'run/irc')

diff --git a/run/irc b/run/irc
new file mode 100644
index 0000000..c69af13
--- /dev/null
+++ b/run/irc
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use LWP::UserAgent ();
+
+my $ua = LWP::UserAgent->new(timeout => 5);
+$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);
+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>
+HTML
+}
-- 
cgit v1.2.3