# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1450262786 -7200
# Node ID 3b67c66fe0dcff2e531c2a6f28581415f42cd6de
# Parent  3917a1515e31814993ffbaa10453ab2d090b34b8
weather: Add debugging prints.

diff -r 3917a1515e31 -r 3b67c66fe0dc weather.tcl
--- a/weather.tcl	Sat Dec 12 12:25:30 2015 +0200
+++ b/weather.tcl	Wed Dec 16 12:46:26 2015 +0200
@@ -192,6 +192,8 @@
 proc weather_update {} {
   global weather_datafile weather_data
 
+  weather_log "* In weather_update .."
+
   # Check if we can open the weather data file
   if {![catch {set ufile [open $weather_datafile r 0600]} uerrmsg]} {
     # Create dict
@@ -277,9 +279,10 @@
 weather_load_aliases
 
 if {$weather_last < 0 || $weather_last > [expr $weather_check_period * 60]} {
-  weather_log "Starting weather update."
+  weather_log "Starting weather update timer."
   weather_exec
 } else {
+  weather_log "Continuing weather updates."
   weather_update
 }