Mailing List Archive

Below is a patch for dbmmanage that allows the group to be added
when a password is added. I've been using this feature and find it
useful; others might too.

It also returns 0 or 1 when called with the "view" argument so that
you can call it to test if a username is in the db or not.


*** Apache/apache_0.8.15/support/dbmmanage Fri Oct 13 07:01:25 1995
--- dbmmanage Wed Nov 15 14:28:00 1995
***************
*** 71,79 ****
--- 71,81 ----
$command=$ARGV[1];
$key=$ARGV[2];
$value=$ARGV[3];
+ $group=$ARGV[4];

if ($command eq "add") {
dbmopen(%DB, $file, 0664) || die "Error: $!\n";
+ $value .= ":$group" if $group ne "";
$DB{$key} = $value;
dbmclose(%DB);
print "Entry $key added with value $value.\n";
***************
*** 83,88 ****
--- 85,92 ----
if ($command eq "adduser") {
$hash = crypt($value, "$salt");
dbmopen(%DB, $file, 0664) || die "Error: $!\n";
+ $hash .= ":$group" if $group ne "";
+ $value .= ":$group" if $group ne "";
$DB{$key} = $hash;
dbmclose(%DB);
print "User $key added with password $value, encrypted to $hash\n";
***************
*** 98,112 ****

if ($command eq "view") {
dbmopen(%DB, $file, undef) || die "Error: $!\n";
unless ($key) {
while (($nkey,$val) = each %DB) {
print "$nkey = $val\n";
}
} else {
print "$key = $DB{$key}\n";
}
dbmclose(%DB);
! exit;
}

print "Command unrecognized - must be one of: view, add, adduser, delete.\n";
--- 102,118 ----

if ($command eq "view") {
dbmopen(%DB, $file, undef) || die "Error: $!\n";
+ $return_status = 1;
unless ($key) {
while (($nkey,$val) = each %DB) {
print "$nkey = $val\n";
}
} else {
+ $return_status = 0 if defined $DB{$key};
print "$key = $DB{$key}\n";
}
dbmclose(%DB);
! exit($return_status);
}

print "Command unrecognized - must be one of: view, add, adduser, delete.\n";