test

cims.tcl

@@ -750,6 +750,7 @@ proc ::cims::receive_message {rec_botnick cmd rec_data} {
 	}
 	
 	# ANSWER! SEND!
+	set unique_userlist [split $unique_userlist]
 	::cims::put_bot $rec_botnick "mnet_answer $network $name $rec_channel $users $count_channels $unique_userlist"
 	return 0
 }
@@ -760,6 +761,8 @@ proc ::cims::receive_answer {rec_botnick cmd rec_data} {
 	variable mnet_reached_userlist
 	variable mnet_reached_chans
 
+	putlog "::cims:: * on receive_answer from $rec_botnick"
+
 	# we receive a STRING in rec_data! convert into list!
 	set rec_data [split $rec_data]
 
@@ -777,7 +780,6 @@ proc ::cims::receive_answer {rec_botnick cmd rec_data} {
 	# override obsolete rec_usercount from above.
 	set rec_usercount [llength $rec_userlist]
 
-	putlog "::cims:: * on receive_answer"
 
 	# get this bots results to our namespaced variable:
 	# FIXME: make simple userstats more accurate by sending nicknames back..
@@ -787,7 +789,7 @@ proc ::cims::receive_answer {rec_botnick cmd rec_data} {
 	set mnet_reached_users($name,$chan) [expr $mnet_reached_users($name,$chan) + $rec_usercount]
 	set mnet_reached_chans($name,$chan) [expr $mnet_reached_chans($name,$chan) + $rec_chancount]
 	set mnet_reached_userlist($name,$chan) [lsort -unique [join [concat [split $mnet_reached_userlist($name,$chan)] [split $rec_userlist]]]]
-	putlog "::cims:: * near end receive_answer"
+	putlog "::cims:: * near end receive_answer from $rec_botnick"
 
 	putlog "::cims:: * $rec_botnick told me he sent its message to $rec_usercount people in $rec_chancount channels for $network frequency $name!"
 	#putlog "::cims:: * Users reached since $name call: $mnet_reached_users($name,$chan) in channels: $mnet_reached_chans($name,$chan)"