Use "useMail" in Demo (#1353)
This commit is contained in:
parent
7e2c0cbcdc
commit
b371a179b6
|
@ -44,23 +44,20 @@ sub init {
|
|||
# Check known accounts
|
||||
# @return Lemonldap::NG::Portal constant
|
||||
sub getUser {
|
||||
my ( $self, $req ) = @_;
|
||||
my ( $self, $req, %args ) = @_;
|
||||
|
||||
# Search by login
|
||||
if ( $req->user ) {
|
||||
return PE_OK
|
||||
if ( defined $demoAccounts{ $req->user } );
|
||||
}
|
||||
|
||||
# Search by mail
|
||||
if ( $req->{mail} ) {
|
||||
if ( $args{useMail} ) {
|
||||
return PE_OK
|
||||
if (
|
||||
( $req->{user} ) =
|
||||
grep { $demoAccounts{$_}->{mail} eq $req->{mail} }
|
||||
grep { $demoAccounts{$_}->{mail} eq $req->{user} }
|
||||
keys %demoAccounts
|
||||
);
|
||||
}
|
||||
else {
|
||||
return PE_OK
|
||||
if ( defined $demoAccounts{ $req->user } );
|
||||
}
|
||||
|
||||
eval { $self->p->_authentication->setSecurity($req) };
|
||||
PE_USERNOTFOUND;
|
||||
|
|
Loading…
Reference in New Issue
Block a user