Searched refs:DB (Results 1 - 1 of 1) sorted by relevance
| /httpd/support/ |
| H A D | dbmmanage.in | 153 my %DB = ();
158 tie (%DB, "AnyDBM_File", $file, $flags, $mode) || die "Can't tie $file: $!";
160 untie %DB;
245 die "Sorry, user `$key' doesn't exist!\n" unless $DB{$key};
246 $crypted_pwd = (split /:/, $DB{$key}, 3)[0] if $crypted_pwd eq '.';
247 $groups = (split /:/, $DB{$key}, 3)[1] if !$groups || $groups eq '.';
248 $comment = (split /:/, $DB{$key}, 3)[2] if !$comment || $comment eq '.';
260 die "Sorry, user `$key' already exists!\n" if $DB{$key};
266 $DB{$key} = $crypted_pwd;
268 print "User $key $action with password encrypted to $DB{
[all...] |
Completed in 14 milliseconds