|
|
@@ -617,7 +617,7 @@ proc ::cims::chanstat_users {chan users} {
|
|
|
proc ::cims::chanstat_userlist {chan unique_userlist} {
|
|
|
set ch_userlist [chanlist ${chan}]
|
|
|
|
|
|
- set unique_userlist [lsort -unique [join [lappend unique_userlist [join $ch_userlist]]]]
|
|
|
+ set unique_userlist [lsort -unique [concat $unique_userlist $ch_userlist]]
|
|
|
|
|
|
putlog "uulist: $unique_userlist"
|
|
|
|
|
|
@@ -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 [join [lappend mnet_reached_userlist($name,$chan) [join $rec_userlist]]]]
|
|
|
+ set mnet_reached_userlist($name,$chan) [lsort -unique [concat $mnet_reached_userlist($name,$chan) $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!"
|
