Mercurial > hg > egg-tcls

changeset 154:7a549487fba3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Cleanups, minor bugfix in feed update checking.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 01 Jun 2014 18:46:33 +0300
parents 8b888a9f07df
children f8571331003b
files feeds.tcl
diffstat 1 files changed, 2 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/feeds.tcl	Sun Jun 01 17:37:02 2014 +0300
+++ b/feeds.tcl	Sun Jun 01 18:46:33 2014 +0300
@@ -116,7 +116,7 @@
 
 # ------------------------------------------------------------------------
 proc feeds_exec {} {
-  global feeds_dbh feeds_check_period
+  global feeds_dbh feeds_check_period feeds_running
 
 #  feeds_log "Timed feed check."
   set oldtime [feeds_check_start]
@@ -145,14 +145,12 @@
 
 if {$feeds_last < 0 || $feeds_last > [expr $feeds_check_period * 60]} {
   feeds_log "Starting timed feed check."
-  timer $feeds_check_period feeds_exec
-  set feeds_running [clock seconds]
+  feeds_exec
 }
 
 
 # ------------------------------------------------------------------------
 proc feeds_pubfetch {unick uhost uhand uchan utext} {
-
   global feeds_dbh
 #  feeds_log "Manual check invoked on $uchan."