Tidy & update version

This commit is contained in:
Christophe Maudoux 2021-10-07 22:34:57 +02:00
parent 22a0f1c013
commit dea7b235b1
3 changed files with 7 additions and 6 deletions

View File

@ -24,7 +24,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_SENDRESPONSE
);
our $VERSION = '2.0.12';
our $VERSION = '2.0.14';
extends qw(
Lemonldap::NG::Portal::Main::Auth
@ -343,8 +343,9 @@ sub extractFormInfo {
"Found value $value for attribute $userAttribute");
}
else {
$self->logger->warn( "No value for $userAttribute"
. " found in SAML assertion" );
$self->logger->warn(
"No value for $userAttribute found in SAML assertion"
);
}
}
else {

View File

@ -270,7 +270,7 @@ setting C<sessionInfo> provisionning
=item C<afterData>: method called after C<sessionInfo> provisionning
I<(macros, groups,...)>. This entry point is called after 'storeHistory'
if login process fails and before 'validSession' if success.
if login process fails and before 'validSession' if succeeds.
=item C<endAuth>: method called when session is validated (after cookie build)

View File

@ -43,12 +43,12 @@ ok( $res->[2]->[0] =~ m%mandatoryField%, 'Mandatory field' )
my @c = ( $res->[2]->[0] =~ m%<option value="(.+?)">%gs );
ok( @c == 2, ' -> Two entries found' )
or explain( $res->[2]->[0], '2, found ' . scalar @c );
or explain( $res->[2]->[0], 'Required 2, found ' . scalar @c );
ok( $c[0] eq 'The Daleks', ' 1st -> ' . $c[0] );
ok( $c[1] eq 'Bad Guy', ' 2nd -> ' . $c[1] );
@c = ( $res->[2]->[0] =~ m%\*%gs );
ok( @c == 3, ' -> Three stars found' )
or explain( $res->[2]->[0], '3, found ' . scalar @c );
or explain( $res->[2]->[0], 'Required 3, found ' . scalar @c );
my $request = '';
ok(