@ -3,7 +3,7 @@ package Lemonldap::NG::Common::Apache::Session::Store;
use strict;
our $VERSION = '2.0.10';
our $VERSION = '2.0.15';
sub new {
my $class = shift;
@ -27,7 +27,7 @@ use Config::IniFiles;
#inherits Lemonldap::NG::Common::Conf::Backends::SOAP
#inherits Lemonldap::NG::Common::Conf::Backends::LDAP
our $VERSION = '2.0.14';
our $msg = '';
our $iniObj;
@ -5,7 +5,7 @@ use strict;
use Exporter 'import';
use base qw(Exporter);
# CONSTANTS
@ -1,7 +1,7 @@
# This file is generated by Lemonldap::NG::Manager::Build. Don't modify it by hand
package Lemonldap::NG::Common::Conf::DefaultValues;
sub defaultValues {
return {
our %EXPORT_TAGS = ( 'all' => [qw($simpleHashKeys $doubleHashKeys $specialNodeKeys $casAppMetaDataNodeKeys $casSrvMetaDataNodeKeys $oidcOPMetaDataNodeKeys $oidcRPMetaDataNodeKeys $samlIDPMetaDataNodeKeys $samlSPMetaDataNodeKeys $virtualHostKeys $specialNodeHash $authParameters $issuerParameters $samlServiceParameters $oidcServiceParameters $casServiceParameters)] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
@ -10,7 +10,7 @@ package Lemonldap::NG::Common::Logger::Sentry;
use Sentry::Raven;
my $self = bless {}, shift;
@ -2,7 +2,7 @@ package Lemonldap::NG::Common::Logger::Std;
no warnings 'redefine';
@ -3,7 +3,7 @@ package Lemonldap::NG::Common::Logger::Syslog;
use Sys::Syslog qw(:standard);
my ( $class, $conf, %args ) = @_;
@ -6,7 +6,7 @@ use JSON;
use Plack::Request;
use URI::Escape;
our @ISA = ('Plack::Request');
@ -9,7 +9,7 @@ package Lemonldap::NG::Common::Session;
use Lemonldap::NG::Common::Apache::Session;
# Workaround for another ModPerl/Mouse issue...
BEGIN {
@ -1,6 +1,6 @@
package Lemonldap::NG::Handler::Main::Init;
our $VERSION = '2.0.6';
package Lemonldap::NG::Handler::Main;
package Lemonldap::NG::Handler::Main::Reload;
@ -5,7 +5,7 @@ package Lemonldap::NG::Handler::Server::Main;
use base 'Lemonldap::NG::Handler::PSGI::Main';
@ -17,7 +17,7 @@ use JSON;
use Lemonldap::NG::Common::Conf::Constants;
use Lemonldap::NG::Common::PSGI::Constants;
extends qw(
Lemonldap::NG::Handler::PSGI::Router
package Lemonldap::NG::Manager::Attributes;
sub perlExpr {
my ( $val, $conf ) = @_;
@ -6,7 +6,7 @@
package Lemonldap::NG::Manager::Build::Attributes;
use Regexp::Common qw/URI/;
@ -14,7 +14,7 @@
package Lemonldap::NG::Manager::Build::CTrees;
sub cTrees {
@ -17,7 +17,7 @@
package Lemonldap::NG::Manager::Build::Tree;
# TODO: Missing:
# * activeTimer
@ -8,7 +8,7 @@ use Lemonldap::NG::Handler::Main;
use Lemonldap::NG::Common::Util qw(getSameSite);
use URI;
## @method hashref tests(hashref conf)
# Return a hash ref where keys are the names of the tests and values
@ -12,7 +12,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_SENDRESPONSE
);
extends 'Lemonldap::NG::Portal::Lib::Code2F';
@ -10,7 +10,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
Lemonldap::NG::Portal::Lib::Code2F
@ -7,7 +7,7 @@ use JSON qw(from_json to_json);
use MIME::Base64 qw(encode_base64url decode_base64url);
use Crypt::URandom;
our $VERSION = '2.0.12';
extends 'Lemonldap::NG::Portal::2F::Register::Base';
with 'Lemonldap::NG::Portal::Lib::WebAuthn';
@ -17,7 +17,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_BADCREDENTIALS
extends 'Lemonldap::NG::Portal::Main::SecondFactor';
@ -25,7 +25,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
Lemonldap::NG::Portal::Main::Auth
@ -19,7 +19,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_PASSWORDFORMEMPTY
@ -5,7 +5,7 @@ use Mouse;
use MIME::Base64;
use GD::SecurityImage use_magick => 1;
extends 'Lemonldap::NG::Portal::Main::Plugin';
@ -20,7 +20,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
use String::Random qw/random_string/;
Lemonldap::NG::Portal::Main::Issuer
@ -7,7 +7,7 @@ use XML::Simple;
use Lemonldap::NG::Common::UserAgent;
# PROPERTIES
@ -6,7 +6,7 @@ use strict;
use Mouse;
extends 'Lemonldap::NG::Common::Module';
@ -6,7 +6,7 @@ use XML::LibXML;
use XML::LibXSLT;
use POSIX qw(strftime);
# Lemonldap::NG::Portal::Main::Plugin provides addAuthRoute() and
# addUnauthRoute() methods in addition of Lemonldap::NG::Common::Module.
@ -23,7 +23,7 @@ use Mouse;
use Lemonldap::NG::Portal::Main::Constants qw(PE_OK PE_REDIRECT);
# OpenID Connect standard claims
use constant PROFILE => [
@ -21,7 +21,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_SAML_SLO_ERROR
@ -3,7 +3,7 @@ package Lemonldap::NG::Portal::Main::Auth;
@ -4,7 +4,7 @@ package Lemonldap::NG::Portal::Main::Constants;
use constant HANDLER => 'Lemonldap::NG::Handler::PSGI::Main';
use constant URIRE =>
@ -8,7 +8,7 @@
# of lemonldap-ng.ini) and underlying handler configuration
package Lemonldap::NG::Portal::Main::Init;
package Lemonldap::NG::Portal::Main;
@ -7,7 +7,7 @@ use strict;
use Lemonldap::NG::Portal::Main::Constants ':all';
our $VERSION = '2.0.8';
extends 'Lemonldap::NG::Common::PSGI::Request';
Lemonldap::NG::Portal::Main::Plugin
@ -14,7 +14,7 @@ extends qw(
Lemonldap::NG::Portal::Password::Base
sub init {
my ($self) = @_;
@ -13,7 +13,7 @@ extends qw(
@ -31,7 +31,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_MAILCONFIRMATION_ALREADY_SENT
Lemonldap::NG::Portal::Lib::SMTP
@ -32,7 +32,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_PP_INSUFFICIENT_PASSWORD_QUALITY
@ -66,7 +66,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
URIRE
@ -22,7 +22,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
our $VERSION = '2.0.13';
@ -15,7 +15,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
# Sample accounts from Doctor Who characters
our %demoAccounts = (
@ -9,7 +9,7 @@ use Lemonldap::NG::Portal::Main::Constants qw(
PE_OK
Lemonldap::NG::Common::Module