|
|
@@ -754,10 +754,10 @@ proc ::cims::receive_message {rec_botnick cmd rec_data} {
|
|
|
}
|
|
|
|
|
|
proc ::cims::receive_answer {rec_botnick cmd rec_data} {
|
|
|
- variable mnet
|
|
|
- variable mnet_reached_users
|
|
|
+ variable mnet
|
|
|
+ variable mnet_reached_users
|
|
|
variable mnet_reached_userlist
|
|
|
- variable mnet_reached_chans
|
|
|
+ variable mnet_reached_chans
|
|
|
|
|
|
# we receive a STRING in rec_data! convert into list!
|
|
|
set rec_data [split $rec_data]
|
|
|
@@ -780,7 +780,7 @@ proc ::cims::receive_answer {rec_botnick cmd rec_data} {
|
|
|
# $mnet_reached_chans($name,$chan) <- $mnet_reached_users($name,$chan)
|
|
|
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 [concat $mnet_reached_userlist($name,$chan) $rec_userlist]]
|
|
|
+ set mnet_reached_userlist($name,$chan) [lsort -unique [join [concat [split $mnet_reached_userlist($name,$chan)] [split $rec_userlist]]]]
|
|
|
|
|
|
#hau
|
|
|
putlog "::cims:: * $rec_botnick told me he sent its message to $rec_usercount people in $rec_chancount channels for $network frequency $name!"
|
