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

New Password::Combination module (#714,#716)

Browse Source
This commit is contained in:
Maxime Besson 2020-12-30 16:31:42 +01:00
parent fdbe713e1f
commit fa3129465b
2 changed files with 73 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lemonldap-ng-portal/MANIFEST
View File

@ -95,6 +95,7 @@ lib/Lemonldap/NG/Portal/Main/SecondFactor.pm
lib/Lemonldap/NG/Portal/Password/AD.pm
lib/Lemonldap/NG/Portal/Password/Base.pm
lib/Lemonldap/NG/Portal/Password/Choice.pm
lib/Lemonldap/NG/Portal/Password/Combination.pm
lib/Lemonldap/NG/Portal/Password/Custom.pm
lib/Lemonldap/NG/Portal/Password/DBI.pm
lib/Lemonldap/NG/Portal/Password/Demo.pm

72
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Password/Combination.pm Normal file
View File

@ -0,0 +1,72 @@
package Lemonldap::NG::Portal::Password::Combination;
our $VERSION = '2.0.10';
use strict;
use Mouse;
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK PE_ERROR PE_FIRSTACCESS);
extends qw(
Lemonldap::NG::Portal::Password::Base
);
with 'Lemonldap::NG::Portal::Lib::OverConf';
has 'mods' => ( is => 'rw', isa => 'HashRef', default => sub { {} } );
sub init {
my $self = shift;
# Check if expression exists
unless ( $self->conf->{combination} ) {
$self->error('No combination found');
return 0;
}
# Load all declared modules
my %mods;
foreach my $key ( keys %{ $self->conf->{combModules} } ) {
my $tmp;
my $mod = $self->conf->{combModules}->{$key};
unless ( $mod->{type} and defined $mod->{for} ) {
$self->error("Malformed combination module $key");
return 0;
}
# Only load modules used for UserDB
unless ( $mod->{for} == 1 ) {
$tmp =
$self->loadModule( "::Password::$mod->{type}", $mod->{over} );
unless ($tmp) {
$self->notice("Unable to load Password::$mod->{type}");
next;
}
}
# Store modules as array
$self->mods->{$key} = $tmp;
}
return $self->SUPER::init;
}
sub delegate {
my ( $self, $req, $name, @args ) = @_;
my $userDB = $req->sessionInfo->{_userDB};
unless ( $self->mods->{$userDB} ) {
$self->logger->error("No Password module available for $userDB");
return PE_ERROR;
}
return $self->mods->{$userDB}->$name( $req, @args );
}
sub confirm {
my ( $self, $req, @args ) = @_;
return $self->delegate( $req, "confirm", @args );
}
sub modifyPassword {
my ( $self, $req, @args ) = @_;
return $self->delegate( $req, "modifyPassword", @args );
}
1;