Mercurial > hg > egg-tcls
changeset 534:7512889f7b72
feeds: Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 07 Jul 2020 14:40:45 +0300 |
parents | 195db79c82a8 |
children | edbc0190e82a |
files | feeds.tcl |
diffstat | 1 files changed, 6 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/feeds.tcl Tue Jul 07 14:31:15 2020 +0300 +++ b/feeds.tcl Tue Jul 07 14:40:45 2020 +0300 @@ -43,6 +43,7 @@ putserv "$feeds_preferredmsg $uchan :$umsg" } + proc feeds_log {umsg} { global feeds_logmsg feeds_name if {$feeds_logmsg != 0} { @@ -50,6 +51,7 @@ } } + proc feeds_msg {utime ufeed uurl utitle} { global feeds_channels foreach {uchan ufilter} [array get feeds_channels] { @@ -95,6 +97,7 @@ } } + # ------------------------------------------------------------------------ proc feeds_exec {} { global feeds_dbh feeds_check_period feeds_running feeds_sync_limit @@ -105,9 +108,9 @@ 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." + feeds_log "${nresult} new entries, probably unsynchronized. Ignoring." } else { - feeds_log "$nresult new entries since $oldtime ( [utl_ctime $oldtime] ) .." + feeds_log "${nresult} new entries since ${oldtime} ( [utl_ctime $oldtime] ) .." feeds_dbh eval $usql { feeds_msg $utime $ufeed $uurl $utitle } @@ -172,6 +175,6 @@ } if {$ufound == 0} { - feeds_smsg $uchan "Ei osumia haulla '$utext'." + feeds_smsg $uchan "Ei osumia haulla '${utext}'." } }