# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1401637593 -10800
# Node ID 7a549487fba351e4c283031cf8078f4922e615c2
# Parent  8b888a9f07dfa49a1199292f1c7bac7e8e0a9de4
feeds: Cleanups, minor bugfix in feed update checking.

diff -r 8b888a9f07df -r 7a549487fba3 feeds.tcl
--- 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."