Mercurial > hg > egg-tcls
diff feeds.tcl @ 662:bb6aea76cdb4
feeds: Fix binds to actually work.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sat, 20 Feb 2021 17:35:07 +0200 |
parents | 179fc8150090 |
children | 8bde8f798188 |
line wrap: on
line diff
--- a/feeds.tcl Fri Feb 19 21:06:20 2021 +0200 +++ b/feeds.tcl Sat Feb 20 17:35:07 2021 +0200 @@ -299,7 +299,8 @@ foreach {ukey uvalue} [array get feeds_channels] { if {[string match $ukey $uchan]} { - return [feeds_cmd $unick $uhost $uhand $uchan $uargs 1] + feeds_cmd $unick $uhost $uhand $uchan $uargs 1 + return 1 } } @@ -313,23 +314,6 @@ #------------------------------------------------------------------------- -proc feeds_cmdm_split {uargs} { - set rarglist [::textutil::split::splitx $uargs {\s+}] - 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]] -} - - -#------------------------------------------------------------------------- # Script initialization #------------------------------------------------------------------------- putlog "$feeds_message"