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 |
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 } |
|