|
|
@@ -774,9 +774,10 @@ proc ::cims::receive_answer {rec_botnick cmd rec_data} {
|
|
|
set rec_chancount [join [lindex $rec_data 4]]
|
|
|
set rec_userlist [join [lrange $rec_data 5 end]]
|
|
|
|
|
|
+ # override obsolete rec_usercount from above.
|
|
|
set rec_usercount [llength $rec_userlist]
|
|
|
|
|
|
- putlog "::cims:: * $rec_botnick gives the userlist: $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..
|
|
|
@@ -786,8 +787,8 @@ 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]]]]
|
|
|
-
|
|
|
- #hau
|
|
|
+ putlog "::cims:: * near end receive_answer"
|
|
|
+
|
|
|
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)"
|
|
|
|
