175 |
if {[set list [::tcldrop::idx::List [list type CHAT]]] != -1} { |
if {[set list [::tcldrop::idx::List [list type CHAT]]] != -1} { |
176 |
foreach idx $list { |
foreach idx $list { |
177 |
set console [console $idx] |
set console [console $idx] |
178 |
if {[string match -nocase [lindex $console 0] $channel] && [::tcldrop::CheckFlags $levels [lindex $console 1]]} { |
if {([string match -nocase $channel [lindex $console 0]] || [string match -nocase [lindex $console 0] $channel]) && [::tcldrop::CheckFlags $levels [lindex $console 1]]} { |
179 |
# FixMe: Add support for the $Levels variable here. |
# FixMe: Add support for the $Levels variable here. |
180 |
putidx $idx " $text" |
putidx $idx " $text" |
181 |
} |
} |