Paul Klumpp 12 vuotta sitten
vanhempi
commit
acbcb6770c
1 muutettua tiedostoa jossa 3 lisäystä ja 2 poistoa
  1. 3 2
      cims.tcl

+ 3 - 2
cims.tcl

@@ -994,7 +994,7 @@ proc ::cims::reply_timeout {name chan} {
 	set userlist $mnet_reached_userlist($name,$chan)
 	set chans $mnet_reached_chans($name,$chan)
 
-	set user_cnt [llength [join $userlist]]
+	set user_cnt [llength $userlist]
 
 	putlog "::cims:: userlist: $userlist"
 	
@@ -1002,7 +1002,8 @@ proc ::cims::reply_timeout {name chan} {
 	# inzwischen drfte auch die antwort gekommen sein.. also jetzt mnet_reached_* auswerten nach timeout..
 	
 	# make stats channel-dependent 
-	putlog "::cims:: * After ALL: Count_Users: $mnet_reached_users($name,$chan) Count_Channels: $mnet_reached_chans($name,$chan)"
+	putlog "::cims:: * userlist is finally: $userlist "
+	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."