Gossamer Forum
Home : Products : Gossamer Forum : Discussion :

Re: [ArmyAirForces] Retrieve password w/ e-mail address

Quote Reply
Re: [ArmyAirForces] Retrieve password w/ e-mail address In reply to
I don't allow multiple addresses either. I modified this sub in User.pm in 1.18
I also changed the templates for lost_password page remind_password.eml template.

remind_password.eml template:
Code:

Here is the <%site_title%> login reminder you requested:

Username: <%user_username%>
Password: <%user_password%>

Password hints:
Make sure you type your username and password correctly. All usernames and
passwords are (CaSe SeNsitIvE).

The forum can be found at:

<%cgi_root_url%>/gforum.cgi?do=login;user_username=<%GT::CGI::escape($user_username)%>

Here is sample page:
http://www.ptcruiserclub.org/...cgi?do=lost_password;


Code:
# CRUZN8R modified to just send the password reminder instead of temporary password BS
$COMPILE{lost_password} = __LINE__ . <<'END_OF_SUB';
sub lost_password {
shift;
my ($do, $func) = @_;
my $page = $func->{page};
my $email = lc ($IN->param('user_email'));
my $user;

(!length $email) and return($page->{enter_username});
if ($email and $email =~ /.@(?:[a-zA-Z0-9][a-zA-Z0-9-]*\.)+[a-zA-Z0-9][a-zA-Z0-9-]*$/ ) {

my $User = $DB->table('User');
if ($user = $User->select({ user_email => $email })->fetchrow_hashref) {
}
else {
return($page->{enter_username} => { error => GForum::language('USER_WRONG_EMAIL', $email) });
}
}
else {
return($page->{enter_username} => { error => GForum::language('USER_EMAIL_BAD_SYNTAX', $email) });
}
# send the reminder email
_send_email("remind_password.eml", $user);
return($page->{success}, $user);
}
END_OF_SUB

----------
Michael J. Challis - CRUZN8R - PT Cruiser Club - http://www.ptcruiserclub.org

http://www.ptcruiserclub.org/forum

Last edited by:

CRUZN8R: May 25, 2003, 8:21 PM
Subject Author Views Date
Thread A revisit: Lost Password request by email WhiteHat 8154 May 15, 2003, 3:40 PM
Thread Re: [WhiteHat] A revisit: I'll keep it short
WhiteHat 7976 May 16, 2003, 5:31 PM
Thread Re: [WhiteHat] A revisit: I'll keep it short
bretzke 7983 May 17, 2003, 5:44 AM
Thread Re: [bretzke] A revisit: I'll keep it short
hoefti 7907 May 23, 2003, 6:12 AM
Thread Re: [hoefti] A revisit: I'll keep it short
Paul 7919 May 23, 2003, 6:22 AM
Thread Re: [Paul] A revisit: I'll keep it short
hoefti 7907 May 23, 2003, 6:36 AM
Thread Retrieve password w/ e-mail address
ArmyAirForces 7913 May 25, 2003, 11:13 AM
Thread Re: [ArmyAirForces] Retrieve password w/ e-mail address
Jagerman 7891 May 25, 2003, 3:46 PM
Thread Re: [Jagerman] Retrieve password w/ e-mail address
ArmyAirForces 7872 May 25, 2003, 3:58 PM
Thread Re: [ArmyAirForces] Retrieve password w/ e-mail address
CRUZN8R 7880 May 25, 2003, 8:14 PM
Thread Re: [CRUZN8R] Retrieve password w/ e-mail address
ArmyAirForces 7845 May 25, 2003, 10:16 PM
Thread Re: [ArmyAirForces] Retrieve password w/ e-mail address
CRUZN8R 7894 May 25, 2003, 10:43 PM
Thread Re: [CRUZN8R] Retrieve password w/ e-mail address
ArmyAirForces 7862 May 26, 2003, 7:48 AM
Thread Re: [ArmyAirForces] Retrieve password w/ e-mail address
CRUZN8R 7858 May 26, 2003, 10:35 AM
Post Re: [CRUZN8R] Retrieve password w/ e-mail address
Jagerman 7855 May 26, 2003, 11:19 AM
Thread Re: [bretzke] A revisit: I'll keep it short
ellipsiiis 7825 May 26, 2003, 11:27 AM
Post Re: [ellipsiiis] A revisit: I'll keep it short
WhiteHat 7816 May 26, 2003, 8:14 PM