Mercurial > hg > egg-tcls

comparison feeds.tcl @ 393:9a33575eb999

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Improve logging.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 21 Dec 2016 20:46:14 +0200
parents 299cdd79b7ee
children 880a07485275
comparison
equal deleted inserted replaced
392:afd9a2bc8626 393:9a33575eb999
106 set oldtime [feeds_check_start] 106 set oldtime [feeds_check_start]
107 107
108 set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feeds WHERE utime > $oldtime ORDER BY utime ASC" 108 set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feeds WHERE utime > $oldtime ORDER BY utime ASC"
109 set nresult [feeds_dbh onecolumn "SELECT COUNT(*) FROM feeds WHERE utime > $oldtime"] 109 set nresult [feeds_dbh onecolumn "SELECT COUNT(*) FROM feeds WHERE utime > $oldtime"]
110 if {$nresult > $feeds_sync_limit} { 110 if {$nresult > $feeds_sync_limit} {
111 feeds_log "$nresult uutta, tod. näk. epäsynkissä. Ignoorataan." 111 feeds_log "$nresult new entries, probably unsynchronized. Ignoring."
112 } else { 112 } else {
113 feeds_log "$nresult new entries since $oldtime .."
113 feeds_dbh eval $usql { 114 feeds_dbh eval $usql {
114 feeds_msg $utime $ufeed $uurl $utitle 115 feeds_msg $utime $ufeed $uurl $utitle
115 } 116 }
116 } 117 }
117 118