hur

cims.tcl

@@ -792,7 +792,7 @@ proc ::cims::receive_message {rec_botnick cmd rec_data} {
 	set rec_channel [list [join $rec_channel]]
 	putlog "that ONE LALAL chan: $rec_channel"
 
-	::cims::put_bot $rec_botnick "mnet_answer $network $name $rec_channel $users $count_channels $unique_userlist"
+	::cims::put_bot $rec_botnick "mnet_answer $network $name [list $rec_channel] $users $count_channels [list $unique_userlist]"
 	return 0
 }
 

putils.tcl

@@ -255,7 +255,7 @@ proc ::putils::rec_bot {sender_botnetnick cmd rec_data} {
 					#execute procedure
 					#$procedure $sender_botnetnick [join [lindex $original_data 0]] [list [lrange $original_data 1 end]]
 					putlog "::putils::rec_bot: execute procedure: $procedure $original_data"
-					$procedure $original_data
+					$procedure [join $original_data]
 				}
 			}
 		}