|
|
@@ -618,8 +618,8 @@ proc ::cims::chanstat_userlist {chan unique_userlist} {
|
|
|
set ch_userlist [chanlist ${chan}]
|
|
|
|
|
|
lappend unique_userlist [join $ch_userlist]
|
|
|
- putlog "userlist: $unique_userlist"
|
|
|
set unique_userlist [lsort -unique $unique_userlist]
|
|
|
+ putlog "uulist: $unique_userlist"
|
|
|
|
|
|
return $unique_userlist
|
|
|
}
|
|
|
@@ -734,7 +734,7 @@ proc ::cims::receive_message {rec_botnick cmd rec_data} {
|
|
|
set users [::cims::chanstat_users $chan $users]
|
|
|
set unique_userlist [::cims::chanstat_userlist $chan $unique_userlist]
|
|
|
|
|
|
- putlog "::cims:: * Remote counting $chan with users: $unique_userlist"
|
|
|
+ putlog "::cims:: * Remote counting, $chan "
|
|
|
::cims::put_local_netmessage $network $name $chan $rec_nickname $rec_channel $rec_text
|
|
|
|
|
|
} else {
|
|
|
@@ -778,7 +778,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 [lappend mnet_reached_userlist($name,$chan) $rec_userlist]]
|
|
|
+ set mnet_reached_userlist($name,$chan) [lsort -unique [lappend mnet_reached_userlist($name,$chan) [join $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!"
|
