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

Diff of /tcldrop/modules/users/users.tcl

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

revision 1.9 by fireegl, Mon Jun 30 06:25:05 2003 UTC revision 1.10 by fireegl, Tue Nov 4 02:37:40 2003 UTC
# Line 110  proc ::tcldrop::users::finduser {nuhost} Line 110  proc ::tcldrop::users::finduser {nuhost}
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"

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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