Lines Matching refs:user
4 # Implementation of a simple user database for the pop3 server
16 # One array per object containing the db contents. Keyed by user name.
41 # Create a new user database with a given name; if no name is given, use
45 # name name of the user database; if null, generate one.
48 # name name of the user database created
61 unable to create user database"
66 variable user ; array set user {}
70 # Create the command to manipulate the user database
81 # Command that processes all user database object commands.
84 # name name of the user database object to manipulate.
111 # Destroy a user database, including its associated command and
128 # @c Add the user <a usrName> to the database, together with its
132 # @a usrName: The name of the user defined here.
133 # @a password: Password given to the user.
134 # @a storage: symbolic reference to the maildrop of user <a usrName>.
137 if {$usrName == {}} {return -code error "user specification missing"}
141 upvar ::pop3d::udb::udb::${name}::user user
143 set user($usrName) [list $password $storage]
149 # @c Remove the user <a usrName> from the database.
151 # @a usrName: The name of the user to remove.
153 if {$usrName == {}} {return -code error "user specification missing"}
155 upvar ::pop3d::udb::udb::${name}::user user
157 if {![::info exists user($usrName)]} {
158 return -code error "user \"$usrName\" not known"
161 unset user($usrName)
167 # @c Renames user <a usrName> to <a newName>.
168 # @a usrName: The name of the user to rename.
169 # @a newName: The new name to give to the user
171 if {$usrName == {}} {return -code error "user specification missing"}
172 if {$newName == {}} {return -code error "user specification missing"}
174 upvar ::pop3d::udb::udb::${name}::user user
176 if {![::info exists user($usrName)]} {
177 return -code error "user \"$usrName\" not known"
179 if {[::info exists user($newName)]} {
180 return -code error "user \"$newName\" is known"
183 set data $user($usrName)
184 unset user($usrName)
186 set user($newName) $data
192 # @c Query database for information about user <a usrName>.
194 # @a usrName: Name of the user to query for.
196 # @r reference for user <a usrName>, in this order.
198 upvar ::pop3d::udb::udb::${name}::user user
200 if {![::info exists user($usrName)]} {
201 return -code error "user \"$usrName\" not known"
203 return $user($usrName)
208 # @c Determines wether user <a usrName> is registered or not.
209 # @a usrName: The name of the user to check for.
211 upvar ::pop3d::udb::udb::${name}::user user
213 return [::info exists user($usrName)]
221 upvar ::pop3d::udb::udb::${name}::user user
223 return [array names user]
228 # @c Stores the current contents of the in-memory user database
238 upvar ::pop3d::udb::udb::${name}::user user
252 puts $f "# ----------- user authentication database -"
255 foreach name [array names user] {
256 set password [lindex $user($name) 0]
257 set storage [lindex $user($name) 1]
282 upvar ::pop3d::udb::udb::${name}::user user
291 foreach key [array names user] {unset user($key)}