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

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

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

revision 1.10 by fireegl, Fri Nov 21 22:27:48 2003 UTC revision 1.11 by fireegl, Wed Nov 26 20:24:33 2003 UTC
# Line 164  proc ::tcldrop::users::arraydb::getuser Line 164  proc ::tcldrop::users::arraydb::getuser
164  proc ::tcldrop::users::arraydb::setuser {handle {type {}} {setting {}} {xtra {}}} {  proc ::tcldrop::users::arraydb::setuser {handle {type {}} {setting {}} {xtra {}}} {
165          variable Users          variable Users
166          set lowerhandle [string tolower $handle]          set lowerhandle [string tolower $handle]
167          if {$type == {} && ![validuser $handle] && [string length $handle] < 32} {          if {$type == {} && ![validuser $handle] && [string length $handle] < 33} {
168                  # Add the user:                  # Add the user:
169                  set Users($lowerhandle,handle) $handle                  set Users($lowerhandle,handle) $handle
170                  return 1                  return 1
# Line 469  proc ::tcldrop::users::arraydb::reload { Line 469  proc ::tcldrop::users::arraydb::reload {
469  }  }
470    
471  # That's it, that's all that we consider "user" commands.  # That's it, that's all that we consider "user" commands.
472  # The ban, ignore, exempt, and invite related stuff should be other modules.  # The ban, ignore, exempt, and invite related stuff should be other modules.
   
 # After Tcldrop loads, we (re)load the userfile:  
 bind evnt - loaded ::tcldrop::users::arraydb::Loaded 0  
 proc ::tcldrop::users::arraydb::Loaded {type} { reload }  

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

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