blob: bce6c3d9af781bfa2ed6f6371e3a46081e91e526 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
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; }
|