Mercurial > hg > egg-tcls

diff feeds.tcl @ 361:299cdd79b7ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Fix some limit checks.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 12 Dec 2015 11:38:06 +0200
parents 0f55bbb7fea3
children 9a33575eb999
line wrap: on
line diff
--- a/feeds.tcl	Sat Dec 12 10:57:23 2015 +0200
+++ b/feeds.tcl	Sat Dec 12 11:38:06 2015 +0200
@@ -107,8 +107,8 @@
   
   set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feeds WHERE utime > $oldtime ORDER BY utime ASC"
   set nresult [feeds_dbh onecolumn "SELECT COUNT(*) FROM feeds WHERE utime > $oldtime"]
-  if {$nresult < $feeds_sync_limit} {
-    feeds_smsg $uchan "$nresult uutta, tod. näk. epäsynkissä. Ignoorataan."
+  if {$nresult > $feeds_sync_limit} {
+    feeds_log "$nresult uutta, tod. näk. epäsynkissä. Ignoorataan."
   } else {
     feeds_dbh eval $usql {
       feeds_msg $utime $ufeed $uurl $utitle
@@ -146,7 +146,7 @@
 
   if {$nresult > 0} {
     feeds_check_end
-    if {$nresult >= $feeds_sync_limit} {
+    if {$nresult > $feeds_sync_limit} {
       feeds_smsg $uchan "$nresult uutta, tod. näk. epäsynkissä. Ignoorataan."
     } else {
       set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feeds WHERE utime > $oldtime ORDER BY utime ASC"