# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1402872896 -10800
# Node ID 9eee4e1b757c0521aaddee528a2d324d5bb6904e
# Parent  55ed3db51ee7f7d82d36390448cde71ba78f741d
Slight adjustments.

diff -r 55ed3db51ee7 -r 9eee4e1b757c fetch_weather.pl
--- a/fetch_weather.pl	Mon Jun 16 00:46:40 2014 +0300
+++ b/fetch_weather.pl	Mon Jun 16 01:54:56 2014 +0300
@@ -59,7 +59,7 @@
 sub parse_timestamp($$)
 {
   # XXX: A bit of a hack, but it works.
-  return Time::Piece->strptime($_[0], "%OH:%OM")->epoch + $_[1];
+  return Time::Piece->strptime($_[0], "%H:%M")->epoch + $_[1];
 }
 
 
@@ -365,7 +365,7 @@
       if ($oupdate) {
         my $tmp = $oupdate->{"nodes"}[0]{"text"};
         if ($tmp =~ /:\s+(\d\d\.\d\d\.\d\d\d\d)\s+(\d\d:\d\d)/) {
-          $time_base = Time::Piece->strptime($1, "%Od.%Om.%Y")->epoch;
+          $time_base = Time::Piece->strptime($1." 00:00", "%d.%m.%Y %H:%M")->epoch;
         }
       }