aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xwmstatus-weather.pl50
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; }