82 |
proc ::tcldrop::users::validuser {handle} { |
proc ::tcldrop::users::validuser {handle} { |
83 |
foreach a [binds validuser] { |
foreach a [binds validuser] { |
84 |
foreach {type flags mask count proc} $a {} |
foreach {type flags mask count proc} $a {} |
|
::tcldrop::countbind $type $mask $proc |
|
85 |
if {[catch { $proc $handle } val]} { |
if {[catch { $proc $handle } val]} { |
86 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
87 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |
88 |
set val 0 |
set val 0 |
89 |
} |
} |
90 |
|
::tcldrop::countbind $type $mask $proc |
91 |
return $val |
return $val |
92 |
} |
} |
93 |
return 0 |
return 0 |
114 |
proc ::tcldrop::users::matchattr {handle flags {channel {}}} { |
proc ::tcldrop::users::matchattr {handle flags {channel {}}} { |
115 |
foreach a [binds matchattr] { |
foreach a [binds matchattr] { |
116 |
foreach {type bindsflags mask count proc} $a {} |
foreach {type bindsflags mask count proc} $a {} |
|
::tcldrop::countbind $type $mask $proc |
|
117 |
if {[catch { $proc $handle $flags $channel } val]} { |
if {[catch { $proc $handle $flags $channel } val]} { |
118 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
119 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |
120 |
set val 0 |
set val 0 |
121 |
} |
} |
122 |
|
::tcldrop::countbind $type $mask $proc |
123 |
return $val |
return $val |
124 |
} |
} |
125 |
return 0 |
return 0 |
163 |
proc ::tcldrop::users::getuser {handle {type {}} {xtra {}}} { |
proc ::tcldrop::users::getuser {handle {type {}} {xtra {}}} { |
164 |
foreach a [binds getuser] { |
foreach a [binds getuser] { |
165 |
foreach {bindtype flags mask count proc} $a {} |
foreach {bindtype flags mask count proc} $a {} |
|
::tcldrop::countbind $type $mask $proc |
|
166 |
if {[catch { uplevel \#0 $proc $handle $type $xtra } val]} { |
if {[catch { uplevel \#0 $proc $handle $type $xtra } val]} { |
167 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
168 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |
169 |
|
::tcldrop::countbind $bindtype $mask $proc |
170 |
return -code error $val |
return -code error $val |
171 |
} else { |
} else { |
172 |
|
::tcldrop::countbind $bindtype $mask $proc |
173 |
return $val |
return $val |
174 |
} |
} |
175 |
} |
} |
192 |
putlog "Error in script: $proc: $val" |
putlog "Error in script: $proc: $val" |
193 |
puterrlog "$::errorInfo" |
puterrlog "$::errorInfo" |
194 |
} |
} |
195 |
::tcldrop::countbind $type $mask $proc |
::tcldrop::countbind $bindtype $mask $proc |
196 |
if {![info exists retval]} { |
if {![info exists retval]} { |
197 |
set retlev $lev |
set retlev $lev |
198 |
set retval $val |
set retval $val |