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"