Mercurial > hg > egg-tcls

changeset 364:3b67c66fe0dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Add debugging prints.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 16 Dec 2015 12:46:26 +0200
parents 3917a1515e31
children 72b4e4f47af2
files weather.tcl
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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
 }