[Tcldrop/CVS] tcldrop/modules core.tcl dcc.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/12/02 01:54:33

Modified files:
        modules        : core.tcl dcc.tcl 

Log message:
        putloglev wasn't working properly, fixed.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/core.tcl.diff?tr1=1.29&tr2=1.30&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/dcc.tcl.diff?tr1=1.31&tr2=1.32&r1=text&r2=text

Patches:
Index: tcldrop/modules/core.tcl
diff -u tcldrop/modules/core.tcl:1.29 tcldrop/modules/core.tcl:1.30
--- tcldrop/modules/core.tcl:1.29       Mon Dec  1 19:57:51 2003
+++ tcldrop/modules/core.tcl    Tue Dec  2 01:54:32 2003
@@ -1,6 +1,6 @@
 # core.tcl --
 #
-# $Id: core.tcl,v 1.29 2003/12/02 00:57:51 fireegl Exp $
+# $Id: core.tcl,v 1.30 2003/12/02 06:54:32 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -47,7 +47,7 @@
        # Provide the users module:
        variable version {0.4}
        package provide tcldrop::core $version
-       variable rcsid {$Id: core.tcl,v 1.29 2003/12/02 00:57:51 fireegl Exp $}
+       variable rcsid {$Id: core.tcl,v 1.30 2003/12/02 06:54:32 fireegl Exp $}
        # Initialize variables:
        variable Binds
        variable Timers
@@ -232,7 +232,7 @@
 # Returns: 1
 proc ::tcldrop::CheckFlags {flags1 flags2} {
        switch -- $flags1 {
-               {+} - {*} - {} - {+|+} - {*|*} { return 1 }
+               {+} - {*} - {} - {+|+} - {*|*} - {-} { return 1 }
                {default} {
                        set found 0
                        foreach o [split $flags1 {|}] {
Index: tcldrop/modules/dcc.tcl
diff -u tcldrop/modules/dcc.tcl:1.31 tcldrop/modules/dcc.tcl:1.32
--- tcldrop/modules/dcc.tcl:1.31        Mon Dec  1 16:19:53 2003
+++ tcldrop/modules/dcc.tcl     Tue Dec  2 01:54:33 2003
@@ -1,6 +1,6 @@
 # dcc.tcl --
 #
-# $Id: dcc.tcl,v 1.31 2003/12/01 21:19:53 fireegl Exp $
+# $Id: dcc.tcl,v 1.32 2003/12/02 06:54:33 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -32,7 +32,7 @@
        # Provide the users module:
        variable version {0.4}
        package provide tcldrop::dcc $version
-       variable rcsid {$Id: dcc.tcl,v 1.31 2003/12/01 21:19:53 fireegl Exp $}
+       variable rcsid {$Id: dcc.tcl,v 1.32 2003/12/02 06:54:33 fireegl Exp $}
        #checkmodule console
        # Export all the commands that should be available to 3rd-party 
scripters:
        namespace export dcclist listen putdcc getchan setchan console echo 
strip idx2hand hand2idx link bots islinked putbot putallbots sock2idx idx2sock
@@ -175,7 +175,7 @@
        if {[set list [::tcldrop::idx::List [list type CHAT]]] != -1} {
                foreach idx $list {
                        set console [console $idx]
-                       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]]} {
                                # FixMe: Add support for the $Levels variable 
here.
                                putidx $idx " $text"
                        }