Add wmstatus-weather.pl

1 files changed, 50 insertions, 0 deletions

diff --git a/wmstatus-weather.pl b/wmstatus-weather.pl
new file mode 100755
index 0000000..bce6c3d
--- /dev/null
+++ b/wmstatus-weather.pl
@@ -0,0 +1,50 @@
+#!/usr/bin/env perl
+# Example slave command showing how to easily add additional things to the bar.
+#
+# You can place this in ~/.local/bin, customize it and direct wmstatus.conf
+# towards by setting e.g.: command=~/.local/bin/wmstatus-weather.pl
+use strict;
+use warnings;
+use Time::Piece;
+use IO::Socket::INET;
+
+my $host = 'www.yr.no';
+my $path = '/place/Czech_Republic/Prague/Prague/forecast.xml';
+
+# Retrieve current weather information from the Norwegian weather service
+sub weather {
+	# There are no redirects and it's not exactly confidential either
+	my $sock = IO::Socket::INET->new(
+		PeerAddr => $host,
+		PeerPort => 'http(80)',
+		Proto => 'tcp'
+	) or return '?';
+
+	print $sock "GET $path HTTP/1.1\r\n"
+		. "Host: $host\r\n"
+		. "Connection: close\r\n\r\n";
+
+	# Quick and dirty XML parsing is more than fine for our purpose
+	my ($offset, $acceptable, $temp, $symbol) = (0, 0);
+	while (<$sock>) {
+		$offset = $1 * 60 if /utcoffsetMinutes="(.+?)"/;
+		next unless /<time/ .. /<\/time/;
+
+		# It gives forecast, so it doesn't necessarily contain the present;
+		# just pick the first thing that's no longer invalid
+		if (/from="(.+?)" to="(.+?)"/) {
+			$acceptable = Time::Piece->strptime($2, '%Y-%m-%dT%H:%M:%S')
+				- $offset >= gmtime;
+		}
+		if ($acceptable) {
+			$symbol = $1 if /<symbol .* name="(.+?)"/;
+			$temp = "$2 °${\uc $1}"
+				if /<temperature unit="(.).+?" value="(.+?)"/;
+		}
+		return "$temp ($symbol)" if $temp && $symbol;
+	}
+	return 'Weather error';
+}
+
+# We need to be careful not to overload the service so that they don't ban us
+binmode STDOUT; $| = 1; while (1) { print weather() . "\n\n"; sleep 3600; }