/[tcldrop]/tcldrop/modules/dcc.tcl
ViewVC logotype

Diff of /tcldrop/modules/dcc.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by fireegl, Mon Dec 1 21:19:53 2003 UTC revision 1.32 by fireegl, Tue Dec 2 06:54:33 2003 UTC
# Line 175  proc ::tcldrop::dcc::ConsoleLogs {levels Line 175  proc ::tcldrop::dcc::ConsoleLogs {levels
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                          }                          }

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26