2019-12-19 19:10:32 +01:00
|
|
|
package Lemonldap::NG::Portal::Plugins::CertificateResetByMail;
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use Encode;
|
|
|
|
use Mouse;
|
|
|
|
use Net::SSLeay;
|
|
|
|
use DateTime::Format::RFC3339;
|
|
|
|
use Digest::SHA qw(sha256_hex);
|
|
|
|
use MIME::Base64;
|
|
|
|
use POSIX qw(strftime);
|
|
|
|
use Lemonldap::NG::Common::FormEncode;
|
|
|
|
use Lemonldap::NG::Portal::Main::Constants qw(
|
2019-12-29 21:46:01 +01:00
|
|
|
PE_OK
|
2020-11-04 16:48:43 +01:00
|
|
|
PE_MAILOK
|
|
|
|
PE_NOTOKEN
|
|
|
|
PE_MAILERROR
|
2019-12-19 19:10:32 +01:00
|
|
|
PE_BADMAILTOKEN
|
|
|
|
PE_CAPTCHAEMPTY
|
|
|
|
PE_CAPTCHAERROR
|
|
|
|
PE_MAILNOTFOUND
|
|
|
|
PE_TOKENEXPIRED
|
|
|
|
PE_USERNOTFOUND
|
2020-11-04 16:48:43 +01:00
|
|
|
PE_MAILCONFIRMOK
|
|
|
|
PE_MAILFORMEMPTY
|
|
|
|
PE_MALFORMEDUSER
|
|
|
|
PE_BADCREDENTIALS
|
|
|
|
PE_MAILFIRSTACCESS
|
2019-12-19 19:10:32 +01:00
|
|
|
PE_RESETCERTIFICATE_INVALID
|
|
|
|
PE_RESETCERTIFICATE_FORMEMPTY
|
|
|
|
PE_RESETCERTIFICATE_FIRSTACCESS
|
2020-11-04 16:48:43 +01:00
|
|
|
PE_MAILCONFIRMATION_ALREADY_SENT
|
2019-12-19 19:10:32 +01:00
|
|
|
);
|
|
|
|
|
2020-11-04 16:48:43 +01:00
|
|
|
our $VERSION = '2.0.10';
|
2019-12-19 19:10:32 +01:00
|
|
|
|
2019-12-29 21:46:01 +01:00
|
|
|
extends qw(
|
|
|
|
Lemonldap::NG::Portal::Lib::SMTP
|
2020-11-04 16:48:43 +01:00
|
|
|
Lemonldap::NG::Portal::Main::Plugin
|
2019-12-29 21:46:01 +01:00
|
|
|
Lemonldap::NG::Portal::Lib::_tokenRule
|
|
|
|
);
|
2019-12-19 19:10:32 +01:00
|
|
|
|
|
|
|
# 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;
|
|
|
|
}
|
|
|
|
);
|
|
|
|
|
|
|
|
# Sub module (Demo, LDAP,...)
|
|
|
|
has registerModule => ( is => 'rw' );
|
|
|
|
|
|
|
|
# Captcha generator
|
|
|
|
has captcha => ( is => 'rw' );
|
|
|
|
|
|
|
|
# certificate reset url
|
|
|
|
has certificateResetUrl => (
|
|
|
|
is => 'rw',
|
|
|
|
lazy => 1,
|
|
|
|
default => sub {
|
|
|
|
my $p = $_[0]->conf->{portal};
|
|
|
|
$p =~ s#/*$##;
|
|
|
|
return "$p/certificateReset";
|
|
|
|
}
|
|
|
|
);
|
|
|
|
|
|
|
|
# Mail timeout token generator
|
|
|
|
has mailott => (
|
|
|
|
is => 'rw',
|
|
|
|
lazy => 1,
|
|
|
|
default => sub {
|
|
|
|
my $ott =
|
|
|
|
$_[0]->{p}->loadModule('Lemonldap::NG::Portal::Lib::OneTimeToken');
|
|
|
|
$ott->cache(0);
|
|
|
|
$ott->timeout( $_[0]->conf->{registerTimeout}
|
|
|
|
|| $_[0]->conf->{timeout} );
|
|
|
|
return $ott;
|
|
|
|
}
|
|
|
|
);
|
|
|
|
|
|
|
|
# INITIALIZATION
|
|
|
|
|
|
|
|
sub init {
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
# Declare REST route
|
|
|
|
$self->addUnauthRoute(
|
|
|
|
certificateReset => 'certificateReset',
|
|
|
|
[ 'POST', 'GET' ]
|
|
|
|
);
|
|
|
|
|
|
|
|
# Initialize Captcha if needed
|
|
|
|
if ( $self->conf->{captcha_mail_enabled} ) {
|
|
|
|
$self->captcha( $self->p->loadModule('::Lib::Captcha') ) or return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Load registered module
|
|
|
|
$self->registerModule(
|
|
|
|
$self->p->loadPlugin(
|
|
|
|
'::CertificateResetByMail::' . $self->conf->{registerDB}
|
|
|
|
)
|
|
|
|
) or return 0;
|
2020-11-04 16:48:43 +01:00
|
|
|
|
2019-12-19 19:10:32 +01:00
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
# RUNNIG METHODS
|
|
|
|
|
|
|
|
# Handle reset requests
|
|
|
|
sub certificateReset {
|
|
|
|
my ( $self, $req ) = @_;
|
|
|
|
|
|
|
|
$self->p->controlUrl($req);
|
|
|
|
|
|
|
|
# Check parameters
|
|
|
|
$req->error( $self->_certificateReset($req) );
|
|
|
|
|
|
|
|
# Display form
|
|
|
|
my ( $tpl, $prms ) = $self->display($req);
|
|
|
|
return $self->p->sendHtml( $req, $tpl, params => $prms );
|
|
|
|
}
|
|
|
|
|
|
|
|
sub _certificateReset {
|
|
|
|
my ( $self, $req ) = @_;
|
|
|
|
my ( $mailToken, %tplPrms );
|
|
|
|
|
|
|
|
# CertificatReset FORM => modifyCertificate()
|
|
|
|
if ( $req->method =~ /^POST$/i
|
|
|
|
and ( $req->uploads->{certif} ) )
|
|
|
|
{
|
|
|
|
my $upload = $req->uploads->{certif};
|
|
|
|
|
|
|
|
return $self->modifyCertificate($req);
|
|
|
|
}
|
|
|
|
|
|
|
|
# FIRST FORM
|
|
|
|
$mailToken = $req->data->{mailToken} = $req->param('mail_token');
|
|
|
|
unless ( $req->param('mail') || $mailToken ) {
|
|
|
|
$self->setSecurity($req);
|
|
|
|
return PE_MAILFIRSTACCESS if ( $req->method eq 'GET' );
|
|
|
|
return PE_MAILFORMEMPTY;
|
|
|
|
}
|
|
|
|
|
|
|
|
my $searchByMail = 1;
|
|
|
|
|
|
|
|
# OTHER FORMS
|
|
|
|
if ($mailToken) {
|
|
|
|
$self->logger->debug("Token given for certificate reset: $mailToken");
|
|
|
|
|
|
|
|
# Check if token is valid
|
|
|
|
my $mailSession =
|
|
|
|
$self->p->getApacheSession( $mailToken, kind => "TOKEN" );
|
|
|
|
unless ($mailSession) {
|
|
|
|
$self->userLogger->warn('Bad reset token');
|
|
|
|
return PE_BADMAILTOKEN;
|
|
|
|
}
|
|
|
|
|
|
|
|
$req->{user} = $mailSession->data->{user};
|
|
|
|
$req->data->{mailAddress} =
|
|
|
|
$mailSession->data->{ $self->conf->{mailSessionKey} };
|
|
|
|
$self->logger->debug( 'User associated to: ' . $req->{user} );
|
|
|
|
|
|
|
|
# Restore pdata if any
|
|
|
|
$req->pdata( $mailSession->data->{_pdata} || {} );
|
|
|
|
$mailSession->remove;
|
|
|
|
$searchByMail = 0 unless ( $req->{user} =~ /\@/ );
|
|
|
|
}
|
|
|
|
|
|
|
|
# Check for posted values
|
|
|
|
else {
|
|
|
|
|
|
|
|
# Use submitted value
|
|
|
|
$req->{user} = $req->param('mail');
|
|
|
|
|
|
|
|
# Check if token exists
|
|
|
|
my $token;
|
|
|
|
if ( $self->ottRule->( $req, {} ) 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->ottRule->( $req, {} ) ) {
|
|
|
|
unless ( $self->ott->getToken($token) ) {
|
|
|
|
$self->setSecurity($req);
|
|
|
|
$self->userLogger->warn('Reset try with expired/bad token');
|
|
|
|
return PE_TOKENEXPIRED;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
unless ( $req->{user} =~ /$self->{conf}->{userControl}/o ) {
|
|
|
|
$self->setSecurity($req);
|
|
|
|
return PE_MALFORMEDUSER;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
# Search user in database
|
|
|
|
$req->steps( [
|
|
|
|
'getUser', 'setSessionInfo',
|
|
|
|
'setMacros', 'setGroups',
|
|
|
|
'setPersistentSessionInfo', 'setLocalGroups'
|
|
|
|
]
|
|
|
|
);
|
|
|
|
if ( my $error = $self->p->process( $req, useMail => $searchByMail ) ) {
|
|
|
|
if ( $error == PE_USERNOTFOUND or $error == PE_BADCREDENTIALS ) {
|
2020-08-28 21:53:19 +02:00
|
|
|
$self->userLogger->warn( 'Reset asked for an invalid user ('
|
2019-12-19 19:10:32 +01:00
|
|
|
. $req->param('mail')
|
|
|
|
. ')' );
|
|
|
|
|
|
|
|
# To avoid mail enumeration, return OK
|
|
|
|
# unless portalErrorOnMailNotFound is set
|
|
|
|
|
|
|
|
if ( $self->conf->{portalErrorOnMailNotFound} ) {
|
|
|
|
$self->setSecurity($req);
|
|
|
|
return PE_MAILNOTFOUND;
|
|
|
|
}
|
|
|
|
|
|
|
|
my $mailTimeout =
|
|
|
|
$self->conf->{mailTimeout} || $self->conf->{timeout};
|
|
|
|
my $expTimestamp = time() + $mailTimeout;
|
|
|
|
$req->data->{expMailDate} =
|
|
|
|
strftime( '%d/%m/%Y', localtime $expTimestamp );
|
|
|
|
$req->data->{expMailTime} =
|
|
|
|
strftime( '%H:%M', localtime $expTimestamp );
|
|
|
|
return PE_MAILCONFIRMOK;
|
|
|
|
}
|
|
|
|
return $error;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Build temporary session
|
|
|
|
my $mailSession = $self->getCertificateSession( $req->{user} );
|
|
|
|
unless ( $mailSession or $mailToken ) {
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
## Create a new session
|
2019-12-19 19:10:32 +01:00
|
|
|
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->{user};
|
|
|
|
|
|
|
|
# Store type
|
|
|
|
$infos->{_type} = 'certificate';
|
|
|
|
|
|
|
|
# Store pdata
|
|
|
|
$infos->{_pdata} = $req->pdata;
|
|
|
|
|
|
|
|
# create session
|
|
|
|
$mailSession =
|
|
|
|
$self->p->getApacheSession( undef, kind => "TOKEN", info => $infos );
|
|
|
|
|
|
|
|
$req->id( $mailSession->id );
|
|
|
|
}
|
|
|
|
elsif ($mailSession) {
|
|
|
|
$self->logger->debug( 'Mail session found: ' . $mailSession->id );
|
|
|
|
$req->id( $mailSession->id );
|
|
|
|
$req->data->{mailAlreadySent} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Send confirmation mail
|
|
|
|
unless ($mailToken) {
|
|
|
|
|
|
|
|
# Mail session expiration date
|
|
|
|
my $expTimestamp = $mailSession->data->{mailSessionTimeoutTimestamp};
|
|
|
|
|
|
|
|
$self->logger->debug("Mail expiration timestamp: $expTimestamp");
|
|
|
|
|
|
|
|
$req->data->{expMailDate} =
|
|
|
|
strftime( '%d/%m/%Y', localtime $expTimestamp );
|
|
|
|
$req->data->{expMailTime} =
|
|
|
|
strftime( '%H:%M', localtime $expTimestamp );
|
|
|
|
|
|
|
|
# Mail session start date
|
|
|
|
my $startTimestamp = $mailSession->data->{mailSessionStartTimestamp};
|
|
|
|
|
|
|
|
$self->logger->debug("Mail start timestamp: $startTimestamp");
|
|
|
|
$req->data->{startMailDate} =
|
|
|
|
strftime( '%d/%m/%Y', localtime $startTimestamp );
|
|
|
|
$req->data->{startMailTime} =
|
|
|
|
strftime( '%H:%M', localtime $startTimestamp );
|
|
|
|
|
|
|
|
# Ask if user wants an another confirmation email
|
|
|
|
if ( $req->data->{mailAlreadySent}
|
|
|
|
and not $req->param('resendconfirmation') )
|
|
|
|
{
|
|
|
|
$self->userLogger->notice(
|
|
|
|
'Reset mail already sent to ' . $req->{user} );
|
|
|
|
|
|
|
|
# Return mail already sent only if it is allowed at previous step
|
|
|
|
if ( $self->conf->{portalErrorOnMailNotFound} ) {
|
|
|
|
$self->setSecurity($req);
|
|
|
|
return PE_MAILCONFIRMATION_ALREADY_SENT;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
# Get mail address
|
|
|
|
$req->data->{mailAddress} ||=
|
|
|
|
$self->p->getFirstValue(
|
|
|
|
$req->{sessionInfo}->{ $self->conf->{mailSessionKey} } );
|
|
|
|
return PE_MAILERROR unless ( $req->data->{mailAddress} );
|
|
|
|
|
|
|
|
# Build confirmation url
|
|
|
|
my $req_url = $req->data->{_url};
|
|
|
|
my $skin = $self->p->getSkin($req);
|
|
|
|
my $url =
|
|
|
|
$self->certificateResetUrl . '?'
|
|
|
|
. build_urlencoded(
|
|
|
|
mail_token => $req->{id},
|
|
|
|
skin => $skin,
|
|
|
|
( $req_url ? ( url => $req_url ) : () ),
|
|
|
|
);
|
|
|
|
|
|
|
|
# Build mail content
|
|
|
|
$tplPrms{MAIN_LOGO} = $self->conf->{portalMainLogo};
|
|
|
|
my $tr = $self->translate($req);
|
|
|
|
my $subject = $self->conf->{certificateResetByMailStep1Subject};
|
|
|
|
unless ($subject) {
|
|
|
|
$subject = 'certificateResetByMailStep1Subject';
|
|
|
|
$tr->( \$subject );
|
|
|
|
}
|
|
|
|
my $body;
|
|
|
|
my $html;
|
|
|
|
if ( $self->conf->{certificateResetByMailStep1Body} ) {
|
|
|
|
|
|
|
|
# We use a specific text message, no html
|
|
|
|
$body = $self->conf->{certificateResetByMailStep1Body};
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
|
|
|
|
# Use HTML template
|
2019-12-29 00:18:14 +01:00
|
|
|
$body = $self->loadMailTemplate(
|
|
|
|
$req,
|
2020-01-05 19:11:52 +01:00
|
|
|
'mail_certificateConfirm',
|
2019-12-19 19:10:32 +01:00
|
|
|
filter => $tr,
|
|
|
|
params => \%tplPrms
|
|
|
|
);
|
|
|
|
$html = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Replace variables in body
|
|
|
|
$body =~ s/\$expMailDate/$req->data->{expMailDate}/ge;
|
|
|
|
$body =~ s/\$expMailTime/$req->data->{expMailTime}/ge;
|
|
|
|
$body =~ s/\$url/$url/g;
|
|
|
|
$body =~ s/\$(\w+)/$req->{sessionInfo}->{$1} || ''/ge;
|
|
|
|
|
|
|
|
# Send mail
|
|
|
|
unless (
|
2020-01-04 22:17:13 +01:00
|
|
|
$self->send_mail(
|
2020-01-07 22:38:08 +01:00
|
|
|
$req->data->{mailAddress},
|
|
|
|
$subject, $body, $html
|
2019-12-19 19:10:32 +01:00
|
|
|
)
|
|
|
|
)
|
|
|
|
{
|
|
|
|
$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 reset certificate
|
|
|
|
# A token is required
|
|
|
|
$self->ott->setToken(
|
|
|
|
$req,
|
|
|
|
{
|
|
|
|
%{ $req->sessionInfo }, certificateResetAllowed => 1
|
|
|
|
}
|
|
|
|
);
|
|
|
|
return PE_RESETCERTIFICATE_FIRSTACCESS if ( $req->method eq 'GET' );
|
|
|
|
return PE_RESETCERTIFICATE_FORMEMPTY;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub modifyCertificate {
|
|
|
|
my ( $self, $req ) = @_;
|
|
|
|
my %tplPrms;
|
|
|
|
my $nbio;
|
|
|
|
my $x509;
|
|
|
|
my $notAfter;
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
$self->logger->debug('Change your certificate form response');
|
2019-12-19 19:10:32 +01:00
|
|
|
|
|
|
|
if ( my $token = $req->param('token') ) {
|
|
|
|
$req->sessionInfo( $self->ott->getToken($token) );
|
|
|
|
unless ( $req->sessionInfo ) {
|
|
|
|
$self->userLogger->warn(
|
|
|
|
'User tries to change certificate with an invalid or expired token'
|
|
|
|
);
|
|
|
|
return PE_NOTOKEN;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
# These 2 cases means that a user tries to reset certificate without
|
|
|
|
# following valid links!!!
|
|
|
|
else {
|
|
|
|
$self->userLogger->error(
|
|
|
|
'User tries to reset certificate without token');
|
|
|
|
return PE_NOTOKEN;
|
|
|
|
}
|
|
|
|
|
|
|
|
unless ( $req->sessionInfo->{certificateResetAllowed} ) {
|
|
|
|
$self->userLogger->error(
|
|
|
|
'User tries to use another token to reset certificate');
|
|
|
|
return PE_NOTOKEN;
|
|
|
|
}
|
|
|
|
|
|
|
|
#Updload certificate
|
|
|
|
my $upload = $req->uploads->{certif};
|
2020-01-04 16:30:22 +01:00
|
|
|
return PE_RESETCERTIFICATE_FORMEMPTY unless ( $upload->size > 0 );
|
2019-12-19 19:10:32 +01:00
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
# Get certificate
|
2019-12-19 19:10:32 +01:00
|
|
|
my $file = $upload->path;
|
|
|
|
$self->userLogger->debug( "Temporaly file " . $file );
|
|
|
|
|
|
|
|
# Convert certificate file uploaded on DER format with openssl library
|
|
|
|
|
|
|
|
#my $certifbase64 =`openssl x509 -outform der -in $file -out $file`;
|
|
|
|
|
|
|
|
# load certificate from file with openssl library
|
|
|
|
$nbio = Net::SSLeay::BIO_new_file( $file, 'r' ) or die $!;
|
|
|
|
|
|
|
|
# for PEM certificate
|
|
|
|
$x509 = Net::SSLeay::PEM_read_bio_X509($nbio);
|
|
|
|
|
|
|
|
Net::SSLeay::BIO_free($nbio);
|
|
|
|
unless ($x509) {
|
|
|
|
$self->userLogger->debug( "Unable to decode certificate for user "
|
|
|
|
. Net::SSLeay::ERR_error_string( Net::SSLeay::ERR_get_error() ) );
|
|
|
|
return PE_RESETCERTIFICATE_INVALID;
|
|
|
|
}
|
2020-01-04 16:30:22 +01:00
|
|
|
$self->userLogger->debug("Certificate successfully decoded");
|
2019-12-19 19:10:32 +01:00
|
|
|
$notAfter = Net::SSLeay::P_ASN1_TIME_get_isotime(
|
|
|
|
Net::SSLeay::X509_get_notAfter($x509) );
|
|
|
|
|
|
|
|
my $x509issuer = Net::SSLeay::X509_NAME_oneline(
|
|
|
|
Net::SSLeay::X509_get_issuer_name($x509) );
|
|
|
|
|
|
|
|
my $x509serial = Net::SSLeay::P_ASN1_INTEGER_get_hex(
|
|
|
|
Net::SSLeay::X509_get_serialNumber($x509) );
|
|
|
|
|
|
|
|
$self->userLogger->debug(
|
2020-01-04 16:30:22 +01:00
|
|
|
"Certificate will expire after $notAfter, Issuer $x509issuer and serialNumber $x509serial"
|
2019-12-19 19:10:32 +01:00
|
|
|
);
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
# Check certificate validity before store
|
2019-12-19 19:10:32 +01:00
|
|
|
if (
|
|
|
|
$self->checkCertificateValidity( $notAfter,
|
|
|
|
$self->conf->{certificateResetByMailValidityDelay} ) == 0
|
|
|
|
)
|
|
|
|
{
|
|
|
|
$self->userLogger->debug(
|
2020-01-04 16:30:22 +01:00
|
|
|
"Your certificate is no longer valid in $self->conf->{certificateValidityDelay}"
|
2019-12-19 19:10:32 +01:00
|
|
|
);
|
|
|
|
return PE_RESETCERTIFICATE_INVALID;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Build serial number hex: example f3:08:52:63:28:29:fa:e2
|
|
|
|
my @numberstring = split //, lc($x509serial);
|
|
|
|
my $serial = "";
|
|
|
|
for ( my $i = 0 ; $i <= $#numberstring ; $i += 2 ) {
|
|
|
|
$serial = $serial . $numberstring[$i] . $numberstring[ $i + 1 ];
|
|
|
|
if ( $i + 2 < $#numberstring ) { $serial = $serial . ":"; }
|
|
|
|
}
|
|
|
|
|
|
|
|
# format issuer in the good format example "CN=CA,OU=CISIRH,O=MINEFI,L=Paris,ST=France,C=FR"
|
|
|
|
my @issuertab = split /\//, $x509issuer;
|
|
|
|
shift(@issuertab);
|
|
|
|
my $issuer = join( ",", reverse(@issuertab) );
|
|
|
|
|
|
|
|
#$issuer = lc($issuer);
|
|
|
|
|
|
|
|
my $certificatExactAssertion =
|
|
|
|
'{ serialNumber ' . $serial . ', issuer rdnSequence:"' . $issuer . '" }';
|
|
|
|
$self->userLogger->debug( "Description:: " . $certificatExactAssertion );
|
|
|
|
|
|
|
|
# Get attribut userCertificate;binary value
|
|
|
|
my $cert = $self->certificateHash($file);
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
# Modify ldap certificate attribute
|
2019-12-19 19:10:32 +01:00
|
|
|
$req->user( $req->{sessionInfo}->{_user} );
|
|
|
|
my $result =
|
2020-01-07 22:38:08 +01:00
|
|
|
$self->registerModule->modifCertificate( $req, $certificatExactAssertion,
|
|
|
|
$cert );
|
2019-12-19 19:10:32 +01:00
|
|
|
$self->{user} = undef;
|
|
|
|
|
|
|
|
# Mail token can be used only one time, delete the session if all is ok
|
|
|
|
return $result unless ( $result == PE_OK );
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
# Send mail to notify the certificate has been successfully reset
|
2019-12-19 19:10:32 +01:00
|
|
|
$req->data->{mailAddress} ||=
|
|
|
|
$self->p->getFirstValue(
|
|
|
|
$req->{sessionInfo}->{ $self->conf->{mailSessionKey} } );
|
|
|
|
|
|
|
|
# Build mail content
|
|
|
|
$tplPrms{MAIN_LOGO} = $self->conf->{portalMainLogo};
|
|
|
|
my $tr = $self->translate($req);
|
|
|
|
my $subject = $self->conf->{certificateResetByMailStep2Subject};
|
|
|
|
unless ($subject) {
|
|
|
|
$subject = 'certificateResetByMailStep2Subject';
|
|
|
|
$tr->( \$subject );
|
|
|
|
}
|
|
|
|
my $body;
|
|
|
|
my $html;
|
|
|
|
if ( $self->conf->{certificateResetByMailStep2Body} ) {
|
|
|
|
|
|
|
|
# We use a specific text message, no html
|
|
|
|
$body = $self->conf->{certificateResetByMailStep2Body};
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
|
|
|
|
# Use HTML template
|
2019-12-29 00:18:14 +01:00
|
|
|
$body = $self->loadMailTemplate(
|
|
|
|
$req,
|
2020-01-04 16:30:22 +01:00
|
|
|
'mail_certificateReset',
|
2019-12-19 19:10:32 +01:00
|
|
|
filter => $tr,
|
|
|
|
params => \%tplPrms
|
|
|
|
);
|
|
|
|
$html = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Replace variables in body
|
|
|
|
$body =~ s/\$(\w+)/$req->{sessionInfo}->{$1} || ''/ge;
|
|
|
|
|
|
|
|
# Send mail
|
|
|
|
return PE_MAILERROR
|
2020-01-04 22:17:13 +01:00
|
|
|
unless $self->send_mail( $req->data->{mailAddress}, $subject, $body,
|
2019-12-19 19:10:32 +01:00
|
|
|
$html );
|
|
|
|
|
|
|
|
return PE_MAILOK;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub setSecurity {
|
|
|
|
my ( $self, $req ) = @_;
|
|
|
|
if ( $self->captcha ) {
|
|
|
|
$self->captcha->setCaptcha($req);
|
|
|
|
}
|
|
|
|
elsif ( $self->ottRule->( $req, {} ) ) {
|
|
|
|
$self->ott->setToken($req);
|
|
|
|
}
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
sub display {
|
|
|
|
my ( $self, $req ) = @_;
|
|
|
|
$self->logger->debug( 'Display called with code: ' . $req->error );
|
|
|
|
my %tplPrm = (
|
|
|
|
SKIN_PATH => $self->conf->{staticPrefix},
|
|
|
|
SKIN => $self->p->getSkin($req),
|
|
|
|
SKIN_BG => $self->conf->{portalSkinBackground},
|
|
|
|
MAIN_LOGO => $self->conf->{portalMainLogo},
|
|
|
|
AUTH_ERROR => $req->error,
|
|
|
|
AUTH_ERROR_TYPE => $req->error_type,
|
|
|
|
AUTH_URL => $req->data->{_url},
|
|
|
|
CHOICE_VALUE => $req->{_authChoice},
|
|
|
|
EXPMAILDATE => $req->data->{expMailDate},
|
|
|
|
EXPMAILTIME => $req->data->{expMailTime},
|
|
|
|
STARTMAILDATE => $req->data->{startMailDate},
|
|
|
|
STARTMAILTIME => $req->data->{startMailTime},
|
|
|
|
MAILALREADYSENT => $req->data->{mailAlreadySent},
|
|
|
|
MAIL => (
|
|
|
|
$self->p->checkXSSAttack( 'mail', $req->{user} )
|
|
|
|
? ''
|
|
|
|
: $req->{user}
|
|
|
|
),
|
|
|
|
DISPLAY_FORM => 0,
|
|
|
|
DISPLAY_RESEND_FORM => 0,
|
|
|
|
DISPLAY_CONFIRMMAILSENT => 0,
|
|
|
|
DISPLAY_MAILSENT => 0,
|
|
|
|
DISPLAY_CERTIF_FORM => 0,
|
|
|
|
);
|
|
|
|
if ( $req->data->{mailToken}
|
|
|
|
and
|
|
|
|
not $self->p->checkXSSAttack( 'mail_token', $req->data->{mailToken} ) )
|
|
|
|
{
|
|
|
|
$tplPrm{MAIL_TOKEN} = $req->data->{mailToken};
|
|
|
|
}
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
# Display captcha if enabled
|
2019-12-19 19:10:32 +01:00
|
|
|
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 not $req->data->{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;
|
|
|
|
}
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
# Display certificate reset form
|
2019-12-19 19:10:32 +01:00
|
|
|
elsif ( $req->data->{mailToken}
|
|
|
|
and $req->error != PE_MAILERROR
|
|
|
|
and $req->error != PE_BADMAILTOKEN
|
|
|
|
and $req->error != PE_MAILOK )
|
|
|
|
{
|
|
|
|
$self->logger->debug('Display certificate reset form');
|
|
|
|
$tplPrm{DISPLAY_CERTIF_FORM} = 1;
|
|
|
|
}
|
|
|
|
|
2020-01-04 16:30:22 +01:00
|
|
|
# Display certificate reset form again if certificate invalid
|
2019-12-19 19:10:32 +01:00
|
|
|
elsif ($req->error == PE_RESETCERTIFICATE_FORMEMPTY
|
|
|
|
|| $req->error == PE_RESETCERTIFICATE_INVALID )
|
|
|
|
{
|
|
|
|
$self->logger->debug('Display Certificate Reset form');
|
|
|
|
$tplPrm{DISPLAY_CERTIF_FORM} = 1;
|
|
|
|
}
|
|
|
|
|
|
|
|
return 'certificateReset', \%tplPrm;
|
|
|
|
}
|
|
|
|
|
2019-12-29 21:46:01 +01:00
|
|
|
#string getCertifResetSession (string mail)
|
2019-12-19 19:10:32 +01:00
|
|
|
# Check if a certificate reset session exists
|
|
|
|
# @param mail the value of the mail key in session
|
|
|
|
# @return the first session id found or nothing if no session
|
|
|
|
sub getCertificateSession {
|
|
|
|
my ( $self, $user ) = @_;
|
|
|
|
my $moduleOptions = $self->conf->{globalStorageOptions} || {};
|
|
|
|
$moduleOptions->{backend} = $self->conf->{globalStorage};
|
|
|
|
my $module = "Lemonldap::NG::Common::Apache::Session";
|
|
|
|
|
|
|
|
# Search on modifyaccount sessions
|
|
|
|
my $sessions = $module->searchOn( $moduleOptions, "user", $user );
|
|
|
|
|
|
|
|
# Browse found sessions to check if it's a modifyaccount session
|
|
|
|
foreach my $id ( keys %$sessions ) {
|
|
|
|
my $certificateResetSession =
|
|
|
|
$self->p->getApacheSession( $id, ( kind => "TOKEN" ) );
|
|
|
|
next unless ($certificateResetSession);
|
|
|
|
return $certificateResetSession
|
|
|
|
if ( $certificateResetSession->data->{_type}
|
|
|
|
and $certificateResetSession->data->{_type} =~ /^certificate$/ );
|
|
|
|
}
|
|
|
|
|
|
|
|
# No modifyaccount session found, return empty string
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
|
|
|
|
sub checkCertificateValidity {
|
|
|
|
my ( $self, $notAfter, $delay ) = @_;
|
|
|
|
my $dtNow; # now in format DateTime
|
|
|
|
my $days; # difference between NotAfter and now
|
2019-12-29 21:46:01 +01:00
|
|
|
my $f = DateTime::Format::RFC3339->new();
|
2019-12-19 19:10:32 +01:00
|
|
|
my $dtNotAfter = $f->parse_datetime($notAfter);
|
|
|
|
$self->userLogger->debug("Not After Date: $dtNotAfter");
|
|
|
|
|
|
|
|
$dtNow = DateTime->now;
|
|
|
|
$days = $dtNotAfter->delta_days($dtNow)->delta_days;
|
|
|
|
$dtNow->add_duration( DateTime::Duration->new( days => $delay ) );
|
|
|
|
|
|
|
|
# test if ( now + $validity ) > certificate_expiration
|
|
|
|
if ( DateTime::compare( $dtNow, $dtNotAfter ) >= 0 ) {
|
|
|
|
|
|
|
|
# certificate is about to expire
|
|
|
|
$self->userLogger->debug(
|
|
|
|
"Certificate is about to expire or already expired");
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
# certificate is still valid
|
|
|
|
$self->userLogger->debug("Certificate is still valid for $days days");
|
|
|
|
return 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
sub certificateHash {
|
|
|
|
my ( $self, $file ) = @_;
|
|
|
|
my $cert;
|
|
|
|
|
|
|
|
{
|
|
|
|
local $/ = undef; # Slurp mode
|
|
|
|
open CERT, "$file" or die;
|
|
|
|
$cert = <CERT>;
|
|
|
|
close CERT;
|
|
|
|
}
|
|
|
|
|
|
|
|
# Normalize certificate
|
|
|
|
$cert =~ s/-----(BEGIN|END) CERTIFICATE-----//gi;
|
|
|
|
$cert =~ s/["]//gi;
|
|
|
|
$cert = decode_base64($cert);
|
|
|
|
|
|
|
|
#$self->userLogger->debug( "UserBinary::".$cert);
|
|
|
|
return $cert;
|
|
|
|
}
|
|
|
|
|
|
|
|
1;
|