[Tcldrop/CVS] tcldrop/modules/users users.tcl

[Philip Moore]

CVSROOT:        /cvsroot/tcldrop
Module name:    tcldrop
Branch:         
Changes by:     Philip Moore <address@hidden>   03/11/03 22:14:36

Modified files:
        modules/users  : users.tcl 

Log message:
        Fixed several other bugs in other procs like the one in matchattr.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/tcldrop/tcldrop/modules/users/users.tcl.diff?tr1=1.10&tr2=1.11&r1=text&r2=text

Patches:
Index: tcldrop/modules/users/users.tcl
diff -u tcldrop/modules/users/users.tcl:1.10 
tcldrop/modules/users/users.tcl:1.11
--- tcldrop/modules/users/users.tcl:1.10        Mon Nov  3 21:37:40 2003
+++ tcldrop/modules/users/users.tcl     Mon Nov  3 22:14:36 2003
@@ -1,6 +1,6 @@
 # users.tcl --
 #
-# $Id: users.tcl,v 1.10 2003/11/04 02:37:40 fireegl Exp $
+# $Id: users.tcl,v 1.11 2003/11/04 03:14:36 fireegl Exp $
 #
 # Copyright (C) 2003 FireEgl (Philip Moore) <address@hidden>
 #
@@ -129,7 +129,7 @@
 # Returns all the users matching $flags (flags are optional).
 proc ::tcldrop::users::userlist {{flags {}}} {
        foreach a [binds userlist] {
-               foreach {type flags mask count proc} $a {}
+               foreach {type bindsflags mask count proc} $a {}
                if {[catch { $proc $flags } val]} {
                        putlog "Error in script: $proc: $val"
                        puterrlog "$::errorInfo"
@@ -261,7 +261,7 @@
 # Adds/removes a users global/channel flags.
 proc ::tcldrop::users::chattr {handle {flags {}} {channel {}}} {
        foreach a [binds chattr] {
-               foreach {type flags mask count proc} $a {}
+               foreach {type bindsflags mask count proc} $a {}
                if {[set lev [catch { $proc $handle $flags $channel } val]]} {
                        putlog "Error in script: $proc: $val"
                        puterrlog "$::errorInfo"
@@ -281,7 +281,7 @@
 # Adds/removes a bots global/channel bot-specific flags.
 proc ::tcldrop::users::botattr {bothandle {flags {}} {channel {}}} {
        foreach a [binds botattr] {
-               foreach {type flags mask count proc} $a {}
+               foreach {type bindsflags mask count proc} $a {}
                if {[set lev [catch { $proc $bothandle $flags $channel } val]]} 
{
                        putlog "Error in script: $proc: $val"
                        puterrlog "$::errorInfo"