dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New option to send a mail when password is changed (#385)

Browse Source
This commit is contained in:
Clément Oudot 2011-11-07 16:59:54 +00:00
parent 7e70292eb5
commit ff0341725b
2 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Menu.pm
View File

@ -34,7 +34,8 @@ sub menuInit {
$self->{user} = $self->{sessionInfo}->{_user};
# Try to change password
$self->{menuError} = $self->_subProcess(qw(passwordDBInit modifyPassword))
$self->{menuError} =
$self->_subProcess(qw(passwordDBInit modifyPassword sendPasswordMail))
unless $self->{ignorePasswordChange};
# Default menu error code

31
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
View File

@ -624,6 +624,7 @@ sub setDefaultValues {
unless ( defined( $self->{ldapUsePasswordResetAttribute} ) );
$self->{ldapPasswordResetAttribute} ||= "pwdReset";
$self->{ldapPasswordResetAttributeValue} ||= "TRUE";
$self->{mailOnPasswordChange} ||= 0;
# Notification
$self->{notificationWildcard} ||= "allusers";
@ -1451,6 +1452,8 @@ sub stamp {
# - issuerDBInit
# - issuerForUnAuthUser
# - issuerForAuthUser
# - MailReset:
# - sendPasswordMail
#
#@return 1 if all is OK, 0 if session isn't created or a notification has to be done
sub process {
@ -1460,9 +1463,9 @@ sub process {
qw(controlUrlOrigin checkNotifBack controlExistingSession issuerDBInit
authInit issuerForUnAuthUser extractFormInfo userDBInit getUser
setAuthSessionInfo passwordDBInit modifyPassword setSessionInfo
setMacros setLocalGroups setGroups setPersistentSessionInfo authenticate
removeOther grantSession store authFinish buildCookie checkNotification
issuerForAuthUser autoRedirect)
setMacros setLocalGroups setGroups setPersistentSessionInfo sendPasswordMail
authenticate removeOther grantSession store authFinish buildCookie
checkNotification issuerForAuthUser autoRedirect)
);
$self->updateStatus;
return ( ( $self->{error} > 0 ) ? 0 : 1 );
@ -1888,6 +1891,9 @@ sub modifyPassword {
# Set a flag to ignore password change in Menu
$self->{ignorePasswordChange} = 1;
# Set a flag to allow sending a mail
$self->{passwordWasChanged} = 1;
# Continue process if password change is ok
return PE_OK;
}
@ -2003,6 +2009,25 @@ sub setPersistentSessionInfo {
PE_OK;
}
## @apmethod sendPasswordMail
# Call sendPasswordMail from MailReset if option is configured
# @return Lemonldap::NG::Portal constant
sub sendPasswordMail {
my $self = shift;
if ( $self->{mailOnPasswordChange} && $self->{passwordWasChanged} ) {
$self->lmLog( "Send password by mail requested", 'debug' );
eval "require Lemonldap::NG::Portal::MailReset";
&Lemonldap::NG::Portal::MailReset::smtpInit($self);
&Lemonldap::NG::Portal::MailReset::sendPasswordMail($self);
}
# Never stop the process here
return PE_OK;
}
##@apmethod int authenticate()
# Call authenticate() in Auth* module and call userNotice().
#@return Lemonldap::NG::Portal constant