foreach $pass (@passwds) { # Go through each pass and see if we match.
chomp ($pass);
@data2 = split /:/, $pass;
if (lc($data2[8]) eq lc($in{'email'})) { # delicia made exact match, not case-sensitive
if ($in{'userid'} ne $data2[0]) {
&html_lookup_form("The userid and email address you entered do not match.");
return;
}
elsif ($data2[7]) {
&html_lookup_form("Not authorized to lookup $in{'email'}");
return;
}
else {
$found = $pass;
}
}
else {
$output .= $pass . "\n";
}
}
if (!$found) {
&html_lookup_form ("The email address you entered was not found in the file.");
return;
}