[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Tcldrop/CVS] tcldrop/modules/users users.tcl
From: |
Philip Moore |
Subject: |
[Tcldrop/CVS] tcldrop/modules/users users.tcl |
Date: |
Mon, 03 Nov 2003 22:14:37 -0500 |
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"