Mercurial > hg > egg-tcls
changeset 551:77a8fab2062f
feeds: Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 08 Jul 2020 22:56:07 +0300 |
parents | 85fe3bc36307 |
children | c9ed23fb6d38 |
files | feeds.tcl |
diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/feeds.tcl Wed Jul 08 22:55:56 2020 +0300 +++ b/feeds.tcl Wed Jul 08 22:56:07 2020 +0300 @@ -66,7 +66,6 @@ # ------------------------------------------------------------------------ - proc feeds_check_do {uforce upublic unick uchan} { global feeds_dbfile feeds_dbh feeds_sync_limit feeds_channels @@ -210,10 +209,12 @@ return [join [lrange $rarglist 1 end] " "] } + proc feeds_cmd_pubm {unick uhost uhand uchan uargs} { return [feeds_cmd_pub $unick $uhost $uhand $uchan [feeds_cmdm_split $uargs]] } + proc feeds_cmd_msgm {unick uhost uhand uargs} { return [feeds_cmd_msg $unick $uhost $uhand [feeds_cmdm_split $uargs]] } @@ -226,7 +227,7 @@ putlog "$feeds_message" if {[catch {sqlite3 feeds_dbh $feeds_dbfile} uerrmsg]} { - puts "Could not open SQLite3 database '$feeds_dbfile': $uerrmsg." + putlog "Could not open SQLite3 database '${feeds_dbfile}': ${uerrmsg}." exit 2 }