/[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.19 by fireegl, Mon Dec 1 23:25:47 2003 UTC revision 1.20 by fireegl, Tue Dec 2 00:57:51 2003 UTC
# Line 522  proc ::tcldrop::users::reload {} { Line 522  proc ::tcldrop::users::reload {} {
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    

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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