Mercurial > hg > egg-tcls
diff quotedb.tcl @ 426:84d3d7abeb8a
Add utl_msg_do() function into utillib and refactor out similar things in quotedb and weather scripts.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 08 Jan 2017 04:04:35 +0200 |
parents | 825cac46b1cb |
children | 86f39989df4b |
line wrap: on
line diff
--- a/quotedb.tcl Sun Jan 08 03:57:05 2017 +0200 +++ b/quotedb.tcl Sun Jan 08 04:04:35 2017 +0200 @@ -48,24 +48,14 @@ } } - -proc qdb_msg_do {apublic anick achan amsg} { +proc qdb_msg {apublic anick achan amsg {aargs {}}} { global qdb_preferredmsg - - if {$apublic == 0} { - putserv "$qdb_preferredmsg $anick :$amsg" - } else { - putserv "$qdb_preferredmsg $achan :$amsg" - } -} - -proc qdb_msg {apublic anick achan amsg {aargs {}}} { set narg 1 foreach marg $aargs { set amsg [string map [list "%$narg" $marg] $amsg] incr narg } - qdb_msg_do $apublic $anick $achan $amsg + utl_msg_do $qdb_preferredmsg $apublic $anick $achan $amsg } @@ -300,10 +290,7 @@ } qdb_handle eval $usql { - set qtmp [utl_str_split "#${quoteID}: $utext ($uuser@[qdb_ctime $utime], $uvote)" 450] - foreach qstr $qtmp { - qdb_msg $upublic $unick $uchan $qstr - } + qdb_msg $upublic $unick $uchan "#${quoteID}: $utext ($uuser@[utl_ctime $utime], $uvote)" return 1 }