|
|
@@ -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)"
|
