110 |
# Checks $handle for $flags, $channel is optional. |
# Checks $handle for $flags, $channel is optional. |
111 |
proc ::tcldrop::users::matchattr {handle flags {channel {}}} { |
proc ::tcldrop::users::matchattr {handle flags {channel {}}} { |
112 |
foreach a [binds matchattr] { |
foreach a [binds matchattr] { |
113 |
foreach {type flags mask count proc} $a {} |
foreach {type bindsflags mask count proc} $a {} |
114 |
if {[catch { $proc $handle $flags $channel } val]} { |
if {[catch { $proc $handle $flags $channel } val]} { |
115 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
116 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |