522 |
# The ban, ignore, exempt, and invite related stuff should be in other modules. |
# The ban, ignore, exempt, and invite related stuff should be in other modules. |
523 |
|
|
524 |
# Load all of the database modules.. |
# Load all of the database modules.. |
525 |
set dbpriority 0 |
set dbpriority 1 |
526 |
foreach n $userdbs { |
foreach n $userdbs { |
527 |
loadmodule "users::$n" |
loadmodule "users::$n" |
|
incr dbpriority |
|
528 |
foreach c {adduser countusers validuser finduser matchattr matchchanattr userlist passwdok getuser setuser getinfo getchaninfo getting-users chhandle chattr botattr adduser addbot deluser delhost addchanrec delchanrec encpass save backup reload chpass setlaston} { |
foreach c {adduser countusers validuser finduser matchattr matchchanattr userlist passwdok getuser setuser getinfo getchaninfo getting-users chhandle chattr botattr adduser addbot deluser delhost addchanrec delchanrec encpass save backup reload chpass setlaston} { |
529 |
if {[info commands "::tcldrop::users::${n}::$c"] != {}} { |
if {[info commands "::tcldrop::users::${n}::$c"] != {}} { |
530 |
bind users {+|+} $c "::tcldrop::users::${n}::$c" -priority $dbpriority |
bind users {+|+} $c "::tcldrop::users::${n}::$c" -priority $dbpriority |
531 |
} |
} |
532 |
} |
} |
533 |
|
incr dbpriority |
534 |
} |
} |
535 |
unset dbpriority n |
unset dbpriority n |
536 |
|
|