# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1452105707 -7200
# Node ID 36869897f21d216c380034c6b4c7de0e1ac7085c
# Parent  ce70b4b21e7a65760af912bbb063d7486243715a
fetch_weather: Purge sufficiently old data.

diff -r ce70b4b21e7a -r 36869897f21d fetch_weather.pl
--- a/fetch_weather.pl	Tue Dec 29 12:01:20 2015 +0200
+++ b/fetch_weather.pl	Wed Jan 06 20:41:47 2016 +0200
@@ -488,6 +488,19 @@
 
 
 ###
+### Purge very old entries
+###
+my $wqtime = time();
+foreach my $key (keys %$weatherdata)
+{
+  if ($wqtime - $weatherdata->{$key}[1] > (60*60*6))
+  {
+    delete $$weatherdata{$key};
+  }
+}
+
+
+###
 ### Output
 ###
 if (opt_chk_valid("outfile", 1))