sub get_email

Follow JP's instructions for the html.pl part.

Add this subroutine:

sub get_email {
# --------------------------------------------------------
# Pulls the email address from the password file.


my ($message, $userid, $pw, $view, $add, $del, $mod, $admin, $email, $password, $found, $output, $pass, $query);

my $username_q = $DBH->quote($db_userid);

$query = qq!
SELECT * FROM $db_table_user
WHERE username = $username_q
!;
my $sth = $DBH->prepare($query);
$sth->execute();
if ($sth->rows) {
while (@data = $sth->fetchrow_array) {
$email = $data[2];
}
}

$sth->finish;
return $email;
}


Next up, change email mod.


DBMan SQL Version 1 mods available at:
http://dbmansqlmods.rainbowroomies.com
(Mods based on JPDeni's original mods.)