562 lines
17 KiB
Perl
562 lines
17 KiB
Perl
package Lemonldap::NG::Portal::Plugins::MailReset;
|
|
|
|
use strict;
|
|
use Encode;
|
|
use Mouse;
|
|
use POSIX qw(strftime);
|
|
use Lemonldap::NG::Portal::Main::Constants qw(
|
|
PE_BADCREDENTIALS
|
|
PE_BADMAILTOKEN
|
|
PE_CAPTCHAEMPTY
|
|
PE_CAPTCHAERROR
|
|
PE_MAILCONFIRMATION_ALREADY_SENT
|
|
PE_MAILCONFIRMOK
|
|
PE_MAILERROR
|
|
PE_MAILFIRSTACCESS
|
|
PE_MAILFORMEMPTY
|
|
PE_MAILNOTFOUND
|
|
PE_MAILOK
|
|
PE_MALFORMEDUSER
|
|
PE_NOTOKEN
|
|
PE_OK
|
|
PE_PASSWORDFIRSTACCESS
|
|
PE_PASSWORDFORMEMPTY
|
|
PE_PASSWORD_OK
|
|
PE_TOKENEXPIRED
|
|
PE_USERNOTFOUND
|
|
);
|
|
|
|
our $VERSION = '2.0.0';
|
|
|
|
extends 'Lemonldap::NG::Portal::Main::Plugin',
|
|
'Lemonldap::NG::Portal::Lib::SMTP';
|
|
|
|
# PROPERTIES
|
|
|
|
# Mail timeout token generator
|
|
# Form timout token generator (used even if requireToken is not set)
|
|
has ott => (
|
|
is => 'rw',
|
|
lazy => 1,
|
|
default => sub {
|
|
my $ott =
|
|
$_[0]->{p}->loadModule('Lemonldap::NG::Portal::Lib::OneTimeToken');
|
|
$ott->timeout( $_[0]->conf->{formTimeout} );
|
|
return $ott;
|
|
}
|
|
);
|
|
|
|
# Captcha generator
|
|
has captcha => ( is => 'rw' );
|
|
|
|
# INITIALIZATION
|
|
|
|
sub init {
|
|
my ($self) = @_;
|
|
|
|
# Declare REST route
|
|
$self->addUnauthRoute( resetpwd => 'resetPwd', [ 'POST', 'GET' ] );
|
|
|
|
# Initialize Captcha if needed
|
|
if ( $self->conf->{captcha_mail_enabled} ) {
|
|
$self->captcha( $self->p->loadModule('::Lib::Captcha') ) or return 0;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
# RUNNIG METHODS
|
|
|
|
# Handle reset requests
|
|
sub resetPwd {
|
|
my ( $self, $req ) = @_;
|
|
|
|
$self->p->controlUrl($req);
|
|
|
|
# Check parameters
|
|
$req->error( $self->_reset($req) );
|
|
|
|
# Display form
|
|
my ( $tpl, $prms ) = $self->display($req);
|
|
return $self->p->sendHtml( $req, $tpl, params => $prms );
|
|
}
|
|
|
|
sub _reset {
|
|
my ( $self, $req ) = @_;
|
|
my ( $mailToken, $newPwd, $confirmPwd );
|
|
|
|
# PASSWORD CHANGE FORM => changePwd()
|
|
if ( $req->method =~ /^POST$/i
|
|
and ( $req->param('newpassword') or $req->param('reset') ) )
|
|
{
|
|
return $self->changePwd($req);
|
|
}
|
|
|
|
# FIRST FORM
|
|
$mailToken = $req->datas->{mailToken} = $req->param('mail_token');
|
|
unless ( $req->param('mail') || $mailToken ) {
|
|
$self->setSecurity($req);
|
|
return PE_MAILFIRSTACCESS if ( $req->method eq 'GET' );
|
|
return PE_MAILFORMEMPTY;
|
|
}
|
|
|
|
# OTHER FORMS
|
|
if ($mailToken) {
|
|
$self->logger->debug( "Token given for password reset: " . $mailToken );
|
|
|
|
# Check if token is valid
|
|
my $mailSession = $self->p->getApacheSession($mailToken);
|
|
unless ($mailSession) {
|
|
$self->userLogger->warn('Bad reset token');
|
|
return PE_BADMAILTOKEN;
|
|
}
|
|
|
|
$req->{mail} = $mailSession->data->{user};
|
|
$req->datas->{mailAddress} =
|
|
$mailSession->data->{ $self->conf->{mailSessionKey} };
|
|
$self->logger->debug( 'User associated to: ' . $req->{mail} );
|
|
$mailSession->remove;
|
|
}
|
|
|
|
# Check for values posted
|
|
else {
|
|
|
|
# Use submitted value
|
|
$req->{mail} = $req->param('mail');
|
|
|
|
# Check if token exists
|
|
my $token;
|
|
if ( $self->conf->{requireToken} or $self->captcha ) {
|
|
$token = $req->param('token');
|
|
unless ($token) {
|
|
$self->setSecurity($req);
|
|
$self->userLogger->warn('Reset try without token');
|
|
return PE_NOTOKEN;
|
|
}
|
|
}
|
|
|
|
# Captcha for register form
|
|
if ( $self->captcha ) {
|
|
my $captcha = $req->param('captcha');
|
|
|
|
unless ($captcha) {
|
|
$self->userLogger->notice('Reset try with captcha not filled');
|
|
|
|
# Set captcha or token
|
|
$self->setSecurity($req);
|
|
return PE_CAPTCHAEMPTY;
|
|
}
|
|
|
|
# Check captcha
|
|
unless ( $self->captcha->validateCaptcha( $token, $captcha ) ) {
|
|
$self->userLogger->info('Captcha failed: wrong code');
|
|
|
|
# Set captcha or token
|
|
$self->setSecurity($req);
|
|
return PE_CAPTCHAERROR;
|
|
}
|
|
$self->logger->debug("Captcha code verified");
|
|
}
|
|
elsif ( $self->conf->{requireToken} ) {
|
|
unless ( $self->ott->getToken($token) ) {
|
|
$self->setSecurity($req);
|
|
$self->userLogger->warn('Reset try with expired/bas token');
|
|
return PE_TOKENEXPIRED;
|
|
}
|
|
}
|
|
unless ( $req->{mail} =~ /$self->{conf}->{userControl}/o ) {
|
|
$self->setSecurity($req);
|
|
return PE_MALFORMEDUSER;
|
|
}
|
|
}
|
|
|
|
# Search user in database
|
|
#$req->user( $req->{mail} );
|
|
$req->steps(
|
|
[
|
|
'getUser', 'setSessionInfo',
|
|
'setMacros', 'setGroups',
|
|
'setPersistentSessionInfo', 'setLocalGroups'
|
|
]
|
|
);
|
|
if ( my $error = $self->p->process($req) ) {
|
|
if ( $error == PE_USERNOTFOUND or $error = PE_BADCREDENTIALS ) {
|
|
$self->userLogger->warn(
|
|
"Reset asked for a unvalid user ($req->{mail})");
|
|
|
|
# To avoid mail enumeration, return OK
|
|
# unless portalErrorOnMailNotFound is set
|
|
|
|
if ( $self->conf->{portalErrorOnMailNotFound} ) {
|
|
return PE_MAILNOTFOUND;
|
|
}
|
|
|
|
my $mailTimeout =
|
|
$self->conf->{mailTimeout} || $self->conf->{timeout};
|
|
my $expTimestamp = time() + $mailTimeout;
|
|
$req->datas->{expMailDate} =
|
|
strftime( "%d/%m/%Y", localtime $expTimestamp );
|
|
$req->datas->{expMailTime} =
|
|
strftime( "%H:%M", localtime $expTimestamp );
|
|
return PE_MAILCONFIRMOK;
|
|
}
|
|
return $error;
|
|
}
|
|
|
|
# Build temporary session
|
|
my $mailSession = $self->getMailSession( $req->{mail} );
|
|
unless ( $mailSession or $mailToken ) {
|
|
|
|
# Create a new session
|
|
|
|
my $infos = {};
|
|
|
|
# Set _utime for session autoremove
|
|
# Use default session timeout and mail session timeout to compute it
|
|
my $time = time();
|
|
my $timeout = $self->conf->{timeout};
|
|
my $mailTimeout = $self->conf->{mailTimeout} || $timeout;
|
|
|
|
$infos->{_utime} = $time + ( $mailTimeout - $timeout );
|
|
|
|
# Store expiration timestamp for further use
|
|
$infos->{mailSessionTimeoutTimestamp} = $time + $mailTimeout;
|
|
|
|
# Store start timestamp for further use
|
|
$infos->{mailSessionStartTimestamp} = $time;
|
|
|
|
# Store mail
|
|
$infos->{ $self->conf->{mailSessionKey} } =
|
|
$self->p->getFirstValue(
|
|
$req->{sessionInfo}->{ $self->conf->{mailSessionKey} } );
|
|
|
|
# Store user
|
|
$infos->{user} = $req->{mail};
|
|
|
|
# Store type
|
|
$infos->{_type} = "mail";
|
|
|
|
# create session
|
|
$mailSession = $self->p->getApacheSession( undef, info => $infos );
|
|
|
|
$req->id( $mailSession->id );
|
|
}
|
|
elsif ($mailSession) {
|
|
$self->logger->debug( 'Mail session found: ' . $mailSession->id );
|
|
$req->datas->{mailAlreadySent} = 1;
|
|
}
|
|
|
|
# Send confirmation mail
|
|
unless ($mailToken) {
|
|
|
|
# Mail session expiration date
|
|
my $expTimestamp = $mailSession->data->{mailSessionTimeoutTimestamp};
|
|
|
|
$self->logger->debug("Mail expiration timestamp: $expTimestamp");
|
|
|
|
$req->datas->{expMailDate} =
|
|
strftime( "%d/%m/%Y", localtime $expTimestamp );
|
|
$req->datas->{expMailTime} =
|
|
strftime( "%H:%M", localtime $expTimestamp );
|
|
|
|
# Mail session start date
|
|
my $startTimestamp = $mailSession->data->{mailSessionStartTimestamp};
|
|
|
|
$self->logger->debug("Mail start timestamp: $startTimestamp");
|
|
$req->datas->{startMailDate} =
|
|
strftime( "%d/%m/%Y", localtime $startTimestamp );
|
|
$req->datas->{startMailTime} =
|
|
strftime( "%H:%M", localtime $startTimestamp );
|
|
|
|
# Ask if user want another confirmation email
|
|
if ( $req->datas->{mailAlreadySent}
|
|
and !$req->param('resendconfirmation') )
|
|
{
|
|
$self->userLogger->notice(
|
|
'Reset mail already sent to ' . $req->{mail} );
|
|
|
|
# To avoid enumeration, return OK
|
|
return PE_MAILCONFIRMOK;
|
|
}
|
|
|
|
# Get mail address
|
|
$req->datas->{mailAddress} ||=
|
|
$self->p->getFirstValue(
|
|
$req->{sessionInfo}->{ $self->conf->{mailSessionKey} } );
|
|
return PE_MAILERROR unless ( $req->datas->{mailAddress} );
|
|
|
|
# Build confirmation url
|
|
my $url =
|
|
$self->conf->{mailUrl}
|
|
. "?mail_token="
|
|
. $req->{id}
|
|
. '&skin='
|
|
. $self->p->getSkin($req);
|
|
$url .= '&'
|
|
. $self->conf->{authChoiceParam} . '='
|
|
. $req->datas->{_authChoice}
|
|
if ( $req->datas->{_authChoice} );
|
|
$url .= '&url=' . $req->datas->{_url} if ( $req->datas->{_url} );
|
|
|
|
# Build mail content
|
|
my $tr = $self->translate($req);
|
|
my $subject = $self->conf->{mailConfirmSubject};
|
|
unless ($subject) {
|
|
$subject = 'mailConfirmSubject';
|
|
$tr->( \$subject );
|
|
}
|
|
my $body;
|
|
my $html;
|
|
if ( $self->conf->{mailConfirmBody} ) {
|
|
|
|
# We use a specific text message, no html
|
|
$body = $self->{mailConfirmBody};
|
|
}
|
|
else {
|
|
|
|
# Use HTML template
|
|
$body = $self->loadTemplate( 'mail_confirm', filter => $tr );
|
|
$html = 1;
|
|
}
|
|
|
|
# Replace variables in body
|
|
$body =~ s/\$expMailDate/$req->datas->{expMailDate}/ge;
|
|
$body =~ s/\$expMailTime/$req->datas->{expMailTime}/ge;
|
|
$body =~ s/\$url/$url/g;
|
|
$body =~ s/\$(\w+)/$req->{sessionInfo}->{$1}/ge;
|
|
|
|
# Send mail
|
|
unless (
|
|
$self->send_mail(
|
|
$req->datas->{mailAddress},
|
|
$subject, $body, $html
|
|
)
|
|
)
|
|
{
|
|
$self->logger->debug('Unable to send reset mail');
|
|
|
|
# Don't return an error here to avoid enumeration
|
|
}
|
|
return PE_MAILCONFIRMOK;
|
|
}
|
|
|
|
# User has a valid mailToken, allow to change password
|
|
# A token is required
|
|
$self->ott->setToken( $req, { %{ $req->sessionInfo }, pwdAllowed => 1 } );
|
|
return PE_PASSWORDFIRSTACCESS if ( $req->method eq 'GET' );
|
|
return PE_PASSWORDFORMEMPTY;
|
|
}
|
|
|
|
sub changePwd {
|
|
my ( $self, $req ) = @_;
|
|
$self->logger->debug('Change password form response');
|
|
|
|
if ( my $token = $req->param('token') ) {
|
|
$req->sessionInfo( $self->ott->getToken($token) );
|
|
unless ( $req->sessionInfo ) {
|
|
$self->userLogger->warn(
|
|
'User tries to change password with an invalid or expired token'
|
|
);
|
|
return PE_NOTOKEN;
|
|
}
|
|
}
|
|
|
|
# These 2 cases means that a user tries to change password without
|
|
# following valid links!!!
|
|
else {
|
|
$self->userLogger->error('User tries to change password without token');
|
|
return PE_NOTOKEN;
|
|
}
|
|
unless ( delete $req->sessionInfo->{pwdAllowed} ) {
|
|
$self->userLogger->error(
|
|
'User tries to use another token to change a password');
|
|
return PE_NOTOKEN;
|
|
}
|
|
|
|
# Check if user wants to generate the new password
|
|
if ( $req->param('reset') ) {
|
|
$self->logger->debug(
|
|
"Reset password request for " . $req->{sessionInfo}->{_user} );
|
|
|
|
# Generate a complex password
|
|
my $password =
|
|
$self->gen_password( $self->conf->{randomPasswordRegexp} );
|
|
|
|
$self->logger->debug( "Generated password: " . $password );
|
|
|
|
$req->datas->{newpassword} = $password;
|
|
$req->datas->{confirmpassword} = $password;
|
|
$req->datas->{forceReset} = 1;
|
|
}
|
|
|
|
# Else a password is required in request
|
|
else {
|
|
$req->datas->{newpassword} = $req->param('newpassword');
|
|
$req->datas->{confirmpassword} = $req->param('confirmpassword');
|
|
unless ($req->datas->{newpassword}
|
|
and $req->datas->{confirmpassword}
|
|
and $req->datas->{newpassword} eq $req->datas->{confirmpassword} )
|
|
{
|
|
$self->ott->setToken( $req, $req->sessionInfo );
|
|
return PE_PASSWORDFORMEMPTY;
|
|
}
|
|
|
|
# Modify the password TODO: change this
|
|
# Populate $req->{user} for logging purpose
|
|
my $tmp = $self->conf->{portalRequireOldPassword};
|
|
$self->conf->{portalRequireOldPassword} = 0;
|
|
$req->{user} = $req->{mail};
|
|
my $result = $self->p->_passwordDB->modifyPassword($req);
|
|
$req->{user} = undef;
|
|
|
|
# Mail token can be used only one time, delete the session if all is ok
|
|
return $result unless ( $result == PE_PASSWORD_OK or $result == PE_OK );
|
|
}
|
|
|
|
# Send mail containing the new password
|
|
$req->datas->{mailAddress} ||=
|
|
$self->p->getFirstValue(
|
|
$req->{sessionInfo}->{ $self->conf->{mailSessionKey} } );
|
|
|
|
# Build mail content
|
|
my $tr = $self->translate($req);
|
|
my $subject = $self->conf->{mailSubject};
|
|
unless ($subject) {
|
|
$subject = 'mailSubject';
|
|
$tr->( \$subject );
|
|
}
|
|
my $body;
|
|
my $html;
|
|
if ( $self->conf->{mailBody} ) {
|
|
|
|
# We use a specific text message, no html
|
|
$body = $self->{mailBody};
|
|
}
|
|
else {
|
|
|
|
# Use HTML template
|
|
$body = $self->loadTemplate( 'mail_password', filter => $tr );
|
|
$html = 1;
|
|
}
|
|
|
|
# Replace variables in body
|
|
my $password = $req->datas->{newpassword};
|
|
$body =~ s/\$password/$password/g;
|
|
$body =~ s/\$(\w+)/$req->{sessionInfo}->{$1}/ge;
|
|
|
|
# Send mail
|
|
return PE_MAILERROR
|
|
unless $self->send_mail( $req->datas->{mailAddress}, $subject, $body,
|
|
$html );
|
|
|
|
PE_MAILOK;
|
|
}
|
|
|
|
sub setSecurity {
|
|
my ( $self, $req ) = @_;
|
|
if ( $self->captcha ) {
|
|
$self->captcha->setCaptcha($req);
|
|
}
|
|
elsif ( $self->conf->{requireToken} ) {
|
|
$self->ott->setToken($req);
|
|
}
|
|
}
|
|
|
|
sub display {
|
|
my ( $self, $req ) = @_;
|
|
$self->logger->debug( 'Display called with code: ' . $req->error );
|
|
my %tplPrm = (
|
|
SKIN_PATH => '/static',
|
|
SKIN => $self->p->getSkin($req),
|
|
SKIN_BG => $self->conf->{portalSkinBackground},
|
|
AUTH_ERROR => $req->error,
|
|
AUTH_ERROR_TYPE => $req->error_type,
|
|
AUTH_URL => $req->datas->{_url},
|
|
CHOICE_PARAM => $self->conf->{authChoiceParam},
|
|
CHOICE_VALUE => $req->{_authChoice},
|
|
EXPMAILDATE => $req->datas->{expMailDate},
|
|
EXPMAILTIME => $req->datas->{expMailTime},
|
|
STARTMAILDATE => $req->datas->{startMailDate},
|
|
STARTMAILTIME => $req->datas->{startMailTime},
|
|
MAILALREADYSENT => $req->datas->{mailAlreadySent},
|
|
MAIL => (
|
|
$self->p->checkXSSAttack( 'mail', $req->{mail} )
|
|
? ""
|
|
: $self->{mail}
|
|
),
|
|
DISPLAY_FORM => 0,
|
|
DISPLAY_RESEND_FORM => 0,
|
|
DISPLAY_CONFIRMMAILSENT => 0,
|
|
DISPLAY_MAILSENT => 0,
|
|
DISPLAY_PASSWORD_FORM => 0,
|
|
);
|
|
if ( $req->datas->{mailToken}
|
|
and !$self->p->checkXSSAttack( 'mail_token', $req->datas->{mailToken} )
|
|
)
|
|
{
|
|
$tplPrm{MAIL_TOKEN} = $req->datas->{mailToken};
|
|
}
|
|
|
|
# Display captcha if it's enabled
|
|
if ( $req->captcha ) {
|
|
$tplPrm{CAPTCHA_SRC} = $req->captcha;
|
|
$tplPrm{CAPTCHA_SIZE} = $self->conf->{captcha_size};
|
|
}
|
|
if ( $req->token ) {
|
|
$tplPrm{TOKEN} = $req->token;
|
|
}
|
|
|
|
# Display form the first time
|
|
if (
|
|
(
|
|
$req->error == PE_MAILFORMEMPTY
|
|
or $req->error == PE_MAILFIRSTACCESS
|
|
or $req->error == PE_MAILNOTFOUND
|
|
or $req->error == PE_CAPTCHAERROR
|
|
or $req->error == PE_CAPTCHAEMPTY
|
|
)
|
|
and !$req->datas->{mailToken}
|
|
)
|
|
{
|
|
$self->logger->debug('Display form');
|
|
$tplPrm{DISPLAY_FORM} = 1;
|
|
}
|
|
|
|
# Display mail confirmation resent form
|
|
elsif ( $req->error == PE_MAILCONFIRMATION_ALREADY_SENT ) {
|
|
$self->logger->debug('Display resend form');
|
|
$tplPrm{DISPLAY_RESEND_FORM} = 1;
|
|
}
|
|
|
|
# Display confirmation mail sent
|
|
elsif ( $req->error == PE_MAILCONFIRMOK ) {
|
|
$self->logger->debug('Display "confirm mail sent"');
|
|
$tplPrm{DISPLAY_CONFIRMMAILSENT} = 1;
|
|
}
|
|
|
|
# Display mail sent
|
|
elsif ( $req->error == PE_MAILOK ) {
|
|
$self->logger->debug('Display "mail sent"');
|
|
$tplPrm{DISPLAY_MAILSENT} = 1;
|
|
}
|
|
|
|
# Display password change form
|
|
elsif ( $req->datas->{mailToken}
|
|
and $req->error != PE_MAILERROR
|
|
and $req->error != PE_BADMAILTOKEN
|
|
and $req->error != PE_MAILOK )
|
|
{
|
|
$self->logger->debug('Display password form');
|
|
$tplPrm{DISPLAY_PASSWORD_FORM} = 1;
|
|
}
|
|
|
|
# Custom template parameters
|
|
if ( my $customParams = $self->p->customParameters ) {
|
|
foreach ( keys %$customParams ) {
|
|
$tplPrm{$_} = $customParams->{$_};
|
|
}
|
|
}
|
|
return 'mail', \%tplPrm;
|
|
}
|
|
|
|
1;
|