Probably because I didn't test out that part of it when I made the mod. My fault.
Okay. The mod says:
Code:
after
($in{'username'} && !$in{'inquire'}) and do {
add
open (PASSWD, "<$auth_pw_file") | | &cgierr("unable to open password file. Reason: $!\n");
@passwds = <PASSWD>; # Let's get the user id and passwords..
close PASSWD;
PASS: foreach $pass (@passwds) { # Go through each pass and see if we match..
next PASS if ($pass =~ /^$/); # Skip blank lines.
next PASS if ($pass =~ /^#/); # Skip Comment lines.
chomp ($pass);
($userid, $pw, $view, $add, $del, $mod, $admin,$email) = split (/:/, $pass);
if ($in{'email'} eq $email) {
$message = "Email address already in password file.";
last CASE;
}
}
Take that out. Just be careful not to change anyone's email address to be the same as anyone else's in your password file.
Thanks for mentioning this, though. I'll upload an edited version right now.
------------------
JPD