/[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.15 by fireegl, Wed Nov 26 00:05:06 2003 UTC revision 1.16 by fireegl, Wed Nov 26 20:24:33 2003 UTC
# Line 82  proc ::tcldrop::users::countusers {} { Line 82  proc ::tcldrop::users::countusers {} {
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
# Line 114  proc ::tcldrop::users::finduser {nuhost} Line 114  proc ::tcldrop::users::finduser {nuhost}
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
# Line 163  proc ::tcldrop::users::passwdok {handle Line 163  proc ::tcldrop::users::passwdok {handle
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          }          }
# Line 191  proc ::tcldrop::users::setuser {handle { Line 192  proc ::tcldrop::users::setuser {handle {
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

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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