|
|
@@ -614,12 +614,13 @@ proc ::cims::chanstat_users {chan users} {
|
|
|
return $users
|
|
|
}
|
|
|
|
|
|
+# this proc makes ::cims::chanstat_users obsolete! hmm.. but we leave it for some time. compatibility stuff!
|
|
|
proc ::cims::chanstat_userlist {chan unique_userlist} {
|
|
|
set ch_userlist [chanlist ${chan}]
|
|
|
|
|
|
set unique_userlist [lsort -unique [join [concat [split $unique_userlist] [split $ch_userlist]]]]
|
|
|
|
|
|
- putlog "uulist: $unique_userlist"
|
|
|
+ #putlog "uulist: $unique_userlist"
|
|
|
|
|
|
return $unique_userlist
|
|
|
}
|
|
|
@@ -996,13 +997,11 @@ proc ::cims::reply_timeout {name chan} {
|
|
|
|
|
|
set user_cnt [llength $userlist]
|
|
|
|
|
|
- putlog "::cims:: userlist: $userlist"
|
|
|
|
|
|
- #putlog "::cims:: HIER $name UND $chan"
|
|
|
# inzwischen drfte auch die antwort gekommen sein.. also jetzt mnet_reached_* auswerten nach timeout..
|
|
|
|
|
|
# make stats channel-dependent
|
|
|
- putlog "::cims:: * userlist is finally: $userlist "
|
|
|
+ #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.
|
