reached users variable override

cims.tcl

@@ -768,10 +768,14 @@ proc ::cims::receive_answer {rec_botnick cmd rec_data} {
 	set name    [join [lindex $rec_data 1]]
 	set chan    [join [lindex $rec_data 2]]
 
+ # rec_usercount is obsolete
 	set rec_usercount [join [lindex $rec_data 3]]
+
 	set rec_chancount [join [lindex $rec_data 4]]
 	set rec_userlist [join [lrange $rec_data 5 end]]
 
+	set rec_usercount [llength $rec_userlist]
+
 	putlog "::cims:: * $rec_botnick gives the userlist: $rec_userlist "
 
 	# get this bots results to our namespaced variable:
@@ -991,11 +995,11 @@ proc ::cims::reply_timeout {name chan} {
 	set chan [::putils::kill_spaces $chan]
 	
 	# easify variables
-	set users $mnet_reached_users($name,$chan)
 	set userlist $mnet_reached_userlist($name,$chan)
-	set chans $mnet_reached_chans($name,$chan)
-
 	set user_cnt [llength $userlist]
+	set mnet_reached_users($name,$chan) $user_cnt
+
+	set chan_cnt $mnet_reached_chans($name,$chan)
 
 	
 	# inzwischen drfte auch die antwort gekommen sein.. also jetzt mnet_reached_* auswerten nach timeout..
@@ -1005,7 +1009,7 @@ proc ::cims::reply_timeout {name chan} {
 	putlog "::cims:: * After ALL: Count_Users: $user_cnt  Count_Channels: $mnet_reached_chans($name,$chan)"
 	
 	# Give me some reply.
-	::putils::put_local_msg ${chan} "::cims:: Message sent to $chans channels, reaching $user_cnt unique users."
+	::putils::put_local_msg ${chan} "::cims:: Message sent to $chan_cnt channels, reaching $user_cnt unique users."
 }