Merge branch 'v2.0'

This commit is contained in:
Xavier 2019-08-27 07:14:35 +02:00
commit 7e5d6d6afd
13 changed files with 15 additions and 13 deletions

View File

@ -3,7 +3,7 @@ package Lemonldap::NG::Common::Apache::Session::Lock;
use strict;
my $VERSION = '1.4.4';
our $VERSION = '2.1.0';
sub new {
my $class = shift;

View File

@ -14,7 +14,7 @@ use MIME::Base64;
use Digest::SHA;
use bytes;
our $VERSION = '2.0.0';
our $VERSION = '2.1.0';
my ( $newIv, $randG, $hash );
$hash = \&Digest::SHA::sha256;

View File

@ -2,7 +2,7 @@ package Lemonldap::NG::Common::Logger::_Duplicate;
use strict;
our $VERSION = '2.0.6';
our $VERSION = '2.1.0';
sub new {
my $self = bless {}, shift;

View File

@ -1,7 +1,6 @@
package Lemonldap::NG::Handler::Lib::ServiceToken;
use strict;
use Data::Dumper;
our $VERSION = '2.1.0';

View File

@ -30,7 +30,7 @@ count(4);
# Authentified queries
# --------------------
# Authorizated query
# Authorized query
ok( $res = $client->_get( '/', undef, undef, "lemonldap=$sessionId" ),
'Authentified query' );
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res, 200 );

View File

@ -1,6 +1,7 @@
use Test::More;
use JSON;
use MIME::Base64;
use Data::Dumper;
require 't/test-psgi-lib.pm';
@ -29,7 +30,7 @@ count(4);
# Authentified queries
# --------------------
# Authorizated query
# Authorized query
ok( $res = $client->_get( '/', undef, undef, "lemonldap=$sessionId" ),
'Authentified query' );
ok( $res->[0] == 200, 'Code is 200' ) or explain( $res->[0], 200 );

View File

@ -1,6 +1,7 @@
use Test::More;
use JSON;
use MIME::Base64;
use Data::Dumper;
require 't/test-psgi-lib.pm';
@ -60,7 +61,7 @@ ok( $res->[2]->[0] eq 'Auth', 'Get auth result' )
or print "Expect Auth, got $res->[2]->[0]\n";
count(3);
# Pad path test
# Bad path test
ok( $res = $client->_get('/[]/test'), 'Try a bad path' );
ok( $res->[0] == 400, 'Response is 400' );

View File

@ -2,6 +2,7 @@ use Test::More;
use JSON;
use MIME::Base64;
use LWP::UserAgent;
use Data::Dumper;
BEGIN {
require 't/test-psgi-lib.pm';
@ -11,7 +12,7 @@ init('Lemonldap::NG::Handler::Server');
my $res;
# Authorizated queries
# Authorized queries
ok(
$res = $client->_get(
'/', undef,

View File

@ -10,7 +10,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_SENDRESPONSE
);
our $VERSION = '2.0.0';
our $VERSION = '2.1.0';
extends 'Lemonldap::NG::Portal::Main::SecondFactor';

View File

@ -12,7 +12,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_IMPERSONATION_SERVICE_NOT_ALLOWED
);
our $VERSION = '2.0.6';
our $VERSION = '2.1.0';
extends qw(
Lemonldap::NG::Portal::Main::Plugin

View File

@ -77,7 +77,7 @@ has exportedAttr => (
'authenticationLevel', 'groups',
'ipAddr', '_startTime',
'_utime', '_lastSeen',
'_session_id',
'_session_id', '_session_kind',
);
if ( my $exportedAttr = $conf->{exportedAttr} ) {
$exportedAttr =~ s/^\s*\+\s+//;

View File

@ -43,7 +43,7 @@ has exportedAttr => (
'authenticationLevel', 'groups',
'ipAddr', '_startTime',
'_utime', '_lastSeen',
'_session_id',
'_session_id', '_session_kind',
);
if ( my $exportedAttr = $conf->{exportedAttr} ) {
$exportedAttr =~ s/^\s*\+\s+//;

View File

@ -7,7 +7,7 @@ use Text::Unidecode;
extends 'Lemonldap::NG::Portal::Main::Plugin';
our $VERSION = '2.0.0';
our $VERSION = '2.1.0';
sub _stripaccents {
my ( $self, $str ) = @_;