Mercurial > hg > egg-tcls
diff feeds.tcl @ 424:825cac46b1cb
Cosmetic / stray trailing whitespace cleanup.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 08 Jan 2017 03:55:55 +0200 |
parents | 44c9128097cd |
children | e5810c52d376 |
line wrap: on
line diff
--- a/feeds.tcl Sun Jan 08 03:52:40 2017 +0200 +++ b/feeds.tcl Sun Jan 08 03:55:55 2017 +0200 @@ -89,7 +89,7 @@ proc feeds_check_end {} { global feeds_dbfile - + if {![catch {set ufile [open "$feeds_dbfile.time" w 0600]} uerrmsg]} { puts $ufile [clock seconds] close $ufile @@ -102,9 +102,9 @@ # feeds_log "Timed feed check." set oldtime [feeds_check_start] - 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_log "$nresult new entries, probably unsynchronized. Ignoring." } else {