Oops. I forgot something. The lookup part. There are a number of things to change here. If you feel lucky, go ahead and make all the changes at once. If you are cautious like me, change the code in one subroutine and test it before you change the code in the next subroutine.
In db.cgi, sub lookup, change
Code:
my ($message, $userid, $pw, $view, $add, $del, $mod, $admin, $email, $password, $found, $output);
to
Code:
my ($message, $userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email, $password, $found, $output);
and change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $found);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email) = split (/:/, $found);
and change
Code:
print PASSWD "$userid:$encrypted:$view:$add:$del:$mod:$admin:$email\n";
to
Code:
print PASSWD "$userid:$encrypted:$view:$add:$del:$mod:$mem:$admin:$email\n";
---------------
If you're using sub get_email, you'll need to make some changes there, too.
Change
Code:
my ($userid, $pw, $view, $add, $del, $mod, $admin, $email);
to
Code:
my ($userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email);
and change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $pass);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email) = split (/:/, $pass);
---------------
If you're using sub change email, make the following adjustments:
Change
Code:
my ($message, $userid, $pw, $view, $add, $del, $mod, $admin, $email, $password, $found, $output, $pass);
to
Code:
my ($message, $userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email, $password, $found, $output, $pass);
and change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $pass);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email) = split (/:/, $pass);
and change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $found);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email) = split (/:/, $found);
and change
Code:
print PASS "$userid:$encrypted:$view:$add:$del:$mod:$admin:$in{'email'}\n";
to
Code:
print PASS "$userid:$encrypted:$view:$add:$del:$mod:$mem:$admin:$in{'email'}\n";
---------------
If you're using sub change_password, make the following adjustments:
Change
Code:
my ($message, $userid, $pw, $view, $add, $del, $mod, $admin, $email, $password, $found, $output);
to
Code:
my ($message, $userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email, $password, $found, $output);
and change
Code:
($userid, $pw, $view, $add, $del, $mod, $admin, $email) = split (/:/, $found);
to
Code:
($userid, $pw, $view, $add, $del, $mod, $mem, $admin, $email) = split (/:/, $found);
and change
Code:
print PASS "$userid:$encrypted:$view:$add:$del:$mod:$admin:$email\n";
to
Code:
print PASS "$userid:$encrypted:$view:$add:$del:$mod:$mem:$admin:$email\n";
------------------
JPD