Add irssi script

Join #revspace on libera.chat for a demo :)

Author: Peetz0r

irssi-script.pl

@@ -0,0 +1,42 @@
+$_{target} =~ '^#revspace|^[^#+&]' or return;
+
+sub sensor {
+    my ($topic) = @_;
+    my $pid = open my $pipe, '-|', qw(timeout 1 mqtt-simple -1 -h mosquitto.space.revspace.nl -s), $topic;
+    return (split " ", readline $pipe)[0] + 0;
+}
+
+sub text {
+    my ($topic) = @_;
+    my $pid = open my $pipe, '-|', qw(timeout 1 mqtt-simple -1 -h mosquitto.space.revspace.nl -s), $topic;
+    my $value = readline $pipe;
+    chomp $value;
+    return $value;
+}
+
+sub tijd {
+    my ($topic) = @_;
+
+    use DateTime::Format::ISO8601;
+    my $dt = DateTime::Format::ISO8601->parse_datetime(text($topic));
+    return $dt->strftime("%Y-%m-%d %H:%M");
+}
+
+sub station {
+    my ($id) = @_;
+
+    return sprintf "%s: %s °C op 2 meter, %s °C op 10 cm, %s% RH \cC14(gemeten op %s)",
+        text(sprintf "revspace/sensors/knmi/%s/stationname", $id),
+        sensor(sprintf "revspace/sensors/knmi/%s/temperature-2m", $id),
+        sensor(sprintf "revspace/sensors/knmi/%s/temperature-10cm", $id),
+        sensor(sprintf "revspace/sensors/knmi/%s/humidity", $id),
+        tijd(sprintf "revspace/sensors/knmi/%s/measured-at", $id);
+}
+
+if(index($_{msg}, '-v') != -1) {
+    reply sprintf "%s", station("6215"), # Voorschoten
+    reply sprintf "%s", station("6344"), # Rotterdam The Hague Airport
+    reply sprintf "%s", station("6330"); # Hoek van Holland
+} else {
+    reply sprintf "%s", station("6215"); # Voorschoten
+}