Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
Maxime Besson
lemonldap-ng
Commits
b2620c26
Commit
b2620c26
authored
Jul 05, 2018
by
Yadd
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
s/datas/data
datas => des données data => les données
parent
9402f9ff
Changes
104
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
104 changed files
with
598 additions
and
598 deletions
+598
-598
lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session/REST.pm
...-ng-common/lib/Lemonldap/NG/Common/Apache/Session/REST.pm
+3
-3
lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session/SOAP.pm
...-ng-common/lib/Lemonldap/NG/Common/Apache/Session/SOAP.pm
+3
-3
lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm
...ldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm
+9
-9
lemonldap-ng-common/lib/Lemonldap/NG/Common/Crypto.pm
lemonldap-ng-common/lib/Lemonldap/NG/Common/Crypto.pm
+10
-10
lemonldap-ng-common/lib/Lemonldap/NG/Common/Notifications/JSON.pm
...p-ng-common/lib/Lemonldap/NG/Common/Notifications/JSON.pm
+4
-4
lemonldap-ng-common/lib/Lemonldap/NG/Common/Notifications/XML.pm
...ap-ng-common/lib/Lemonldap/NG/Common/Notifications/XML.pm
+6
-6
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm
+2
-2
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/SOAPService.pm
...dap-ng-common/lib/Lemonldap/NG/Common/PSGI/SOAPService.pm
+2
-2
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Main.pm
...dap-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Main.pm
+1
-1
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Request.pm
...-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Request.pm
+2
-2
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/PSGI.pm
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/PSGI.pm
+1
-1
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/SecureToken.pm
...ap-ng-handler/lib/Lemonldap/NG/Handler/Lib/SecureToken.pm
+1
-1
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/ZimbraPreAuth.pm
...-ng-handler/lib/Lemonldap/NG/Handler/Lib/ZimbraPreAuth.pm
+2
-2
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Reload.pm
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Reload.pm
+2
-2
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
+18
-18
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/SharedVariables.pm
...-handler/lib/Lemonldap/NG/Handler/Main/SharedVariables.pm
+1
-1
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI.pm
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI.pm
+1
-1
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Router.pm
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Router.pm
+1
-1
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Try.pm
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Try.pm
+3
-3
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build.pm
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build.pm
+1
-1
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build/Attributes.pm
...p-ng-manager/lib/Lemonldap/NG/Manager/Build/Attributes.pm
+1
-1
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf.pm
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf.pm
+1
-1
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Parser.pm
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Parser.pm
+1
-1
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Tests.pm
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Tests.pm
+1
-1
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Notifications.pm
...ldap-ng-manager/lib/Lemonldap/NG/Manager/Notifications.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/2F/Engines/Default.pm
...p-ng-portal/lib/Lemonldap/NG/Portal/2F/Engines/Default.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/2F/Register/U2F.pm
...ldap-ng-portal/lib/Lemonldap/NG/Portal/2F/Register/U2F.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/2F/U2F.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/2F/U2F.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/2F/UTOTP.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/2F/UTOTP.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/AD.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/AD.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/CAS.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/CAS.pm
+10
-10
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Choice.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Choice.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Combination.pm
...dap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Combination.pm
+14
-14
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Demo.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Demo.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Facebook.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Facebook.pm
+14
-14
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Kerberos.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Kerberos.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/LDAP.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/LDAP.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/LinkedIn.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/LinkedIn.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/OpenID.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/OpenID.pm
+6
-6
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/OpenIDConnect.pm
...p-ng-portal/lib/Lemonldap/NG/Portal/Auth/OpenIDConnect.pm
+10
-10
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/PAM.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/PAM.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/REST.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/REST.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Radius.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Radius.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Remote.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Remote.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/SAML.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/SAML.pm
+26
-26
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/SSL.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/SSL.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Twitter.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/Twitter.pm
+10
-10
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/WebID.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/WebID.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/_WebForm.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Auth/_WebForm.pm
+11
-11
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenID.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenID.pm
+13
-13
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenIDConnect.pm
...ng-portal/lib/Lemonldap/NG/Portal/Issuer/OpenIDConnect.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/SAML.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/SAML.pm
+13
-13
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/CAS.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/CAS.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Choice.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Choice.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/DBI.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/DBI.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/LDAP.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/LDAP.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Notifications/JSON.pm
...-portal/lib/Lemonldap/NG/Portal/Lib/Notifications/JSON.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Notifications/XML.pm
...g-portal/lib/Lemonldap/NG/Portal/Lib/Notifications/XML.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/OpenID/SREG.pm
...ldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/OpenID/SREG.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/OpenIDConnect.pm
...ap-ng-portal/lib/Lemonldap/NG/Portal/Lib/OpenIDConnect.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/RESTProxy.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/RESTProxy.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Remote.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Remote.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/SAML.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/SAML.pm
+8
-8
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/SOAPProxy.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/SOAPProxy.pm
+7
-7
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Wrapper.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Lib/Wrapper.pm
+7
-7
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Display.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Display.pm
+46
-46
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Init.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Init.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Issuer.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Issuer.pm
+6
-6
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Plugin.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Plugin.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Process.pm
+7
-7
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Request.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Request.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm
+23
-23
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/SecondFactor.pm
...ap-ng-portal/lib/Lemonldap/NG/Portal/Main/SecondFactor.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Password/Base.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Password/Base.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Password/Choice.pm
...ldap-ng-portal/lib/Lemonldap/NG/Portal/Password/Choice.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Password/LDAP.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Password/LDAP.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CDA.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CDA.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CheckState.pm
...p-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CheckState.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/GrantSession.pm
...ng-portal/lib/Lemonldap/NG/Portal/Plugins/GrantSession.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/History.pm
...ldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/History.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/MailReset.pm
...ap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/MailReset.pm
+38
-38
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/Notifications.pm
...g-portal/lib/Lemonldap/NG/Portal/Plugins/Notifications.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/RESTServer.pm
...p-ng-portal/lib/Lemonldap/NG/Portal/Plugins/RESTServer.pm
+6
-6
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/Register.pm
...dap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/Register.pm
+57
-57
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/SOAPServer.pm
...p-ng-portal/lib/Lemonldap/NG/Portal/Plugins/SOAPServer.pm
+8
-8
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/SingleSession.pm
...g-portal/lib/Lemonldap/NG/Portal/Plugins/SingleSession.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/StayConnected.pm
...g-portal/lib/Lemonldap/NG/Portal/Plugins/StayConnected.pm
+4
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/Upgrade.pm
...ldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/Upgrade.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Register/AD.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Register/AD.pm
+8
-8
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Register/Demo.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Register/Demo.pm
+8
-8
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Register/LDAP.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Register/LDAP.pm
+10
-10
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/CAS.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/CAS.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Choice.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Choice.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/DBI.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/DBI.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Facebook.pm
...ldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Facebook.pm
+1
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/LDAP.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/LDAP.pm
+5
-5
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/OpenIDConnect.pm
...ng-portal/lib/Lemonldap/NG/Portal/UserDB/OpenIDConnect.pm
+6
-6
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/REST.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/REST.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Remote.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/Remote.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/SAML.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/SAML.pm
+3
-3
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/WebID.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDB/WebID.pm
+2
-2
lemonldap-ng-portal/t/35-REST-config-backend.t
lemonldap-ng-portal/t/35-REST-config-backend.t
+1
-1
No files found.
lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session/REST.pm
View file @
b2620c26
...
...
@@ -144,7 +144,7 @@ sub base {
## @method hashRef get(string id)
# @param $id Apache::Session session ID.
# @return User data
s
# @return User data
sub
get
{
my
$self
=
shift
;
my
$id
=
shift
;
...
...
@@ -165,7 +165,7 @@ sub get {
## @method hashRef newSession()
# Build a new Apache::Session session.
# @return User data
s
(just the session ID)
# @return User data (just the session ID)
sub
newSession
{
my
$self
=
shift
;
$self
->
generate
unless
(
$self
->
{
data
}
->
{
_session_id
}
);
...
...
@@ -200,7 +200,7 @@ sub newSession {
}
## @method boolean save()
# Save user data
s
if modified.
# Save user data if modified.
sub
save
{
my
$self
=
shift
;
return
unless
(
$self
->
{
modified
}
);
...
...
lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session/SOAP.pm
View file @
b2620c26
...
...
@@ -147,7 +147,7 @@ sub _soapCall {
## @method hashRef get(string id)
# @param $id Apache::Session session ID.
# @return User data
s
# @return User data
sub
get
{
my
$self
=
shift
;
my
$id
=
shift
;
...
...
@@ -169,7 +169,7 @@ sub get {
## @method hashRef newSession()
# Build a new Apache::Session session.
# @return User data
s
(just the session ID)
# @return User data (just the session ID)
sub
newSession
{
my
$self
=
shift
;
$self
->
{
data
}
=
$self
->
_soapCall
("
newSession
");
...
...
@@ -187,7 +187,7 @@ sub newSession {
}
## @method boolean save()
# Save user data
s
if modified.
# Save user data if modified.
sub
save
{
my
$self
=
shift
;
return
unless
(
$self
->
{
modified
}
);
...
...
lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm
View file @
b2620c26
...
...
@@ -100,18 +100,18 @@ sub getConfByNum {
# * openIdIDPList() (old OpenID)
# * applicationList()
# - root:
# root query (/confs/latest for example) is redirected to metadata
s
()
# root query (/confs/latest for example) is redirected to metadata()
# - other requests:
# they are managed by getKey()
# - newRSAKey() returns a new RSA key pair if /confs/newRSAKey is called in a
# POST request
# - prx() load a request and return the content (for SAML/OIDC metadata
s
)
# - prx() load a request and return the content (for SAML/OIDC metadata)
# 31 - Complex subnodes
# ----------------
## @method PSGI-JSON-response complexNodesRoot($req, $query, $tpl)
# Respond to root requests for virtual hosts and SAMLmetadata
s
# Respond to root requests for virtual hosts and SAMLmetadata
#
#@param $req Lemonldap::NG::Common::PSGI::Request
#@param $query Configuration root key
...
...
@@ -686,15 +686,15 @@ sub combModules {
# 33 - Root queries
# -----------
## @method PSGI-JSON-response metadata
s
($req)
# Respond to `/conf/:cfgNum` requests by sending configuration metadata
s
## @method PSGI-JSON-response metadata($req)
# Respond to `/conf/:cfgNum` requests by sending configuration metadata
#
# NB: if `full=1` is set in the query, configuration is returned directly in
# JSON
#
#@param $req Lemonldap::NG::Common::PSGI::Request
#@return PSGI JSON response
sub
metadata
s
{
sub
metadata
{
my
(
$self
,
$req
)
=
@_
;
if
(
$req
->
params
('
full
')
and
$req
->
params
('
full
')
!~
NO
)
{
my
$c
=
$self
->
getConfKey
(
$req
,
'
cfgNum
'
);
...
...
@@ -738,13 +738,13 @@ sub metadatas {
if
(
$self
->
can
('
userId
')
)
{
$self
->
userLogger
->
info
(
'
User
'
.
$self
->
userId
(
$req
)
.
'
ask for configuration metadata
s
(
'
.
'
ask for configuration metadata (
'
.
$res
->
{
cfgNum
}
.
'
)
'
);
}
else
{
$self
->
logger
->
info
(
"
REST request to get configuration metadata
s
(
$res
->{cfgNum})
"
"
REST request to get configuration metadata (
$res
->{cfgNum})
"
);
}
return
$self
->
sendJSONresponse
(
$req
,
$res
);
...
...
@@ -764,7 +764,7 @@ sub metadatas {
sub
getKey
{
my
(
$self
,
$req
,
$key
,
$subkey
)
=
@_
;
unless
(
$key
)
{
return
$self
->
metadata
s
(
$req
);
return
$self
->
metadata
(
$req
);
}
$self
->
userLogger
->
info
(
'
User
'
.
$self
->
userId
(
$req
)
.
"
asks for key
$key
"
);
...
...
lemonldap-ng-common/lib/Lemonldap/NG/Common/Crypto.pm
View file @
b2620c26
...
...
@@ -50,8 +50,8 @@ sub _getCipher {
## @method string encrypt(string data)
# Encrypt $data and return it in Base64 format
# @param data data
s
to encrypt
# @return encrypted data
s
in Base64 format
# @param data data to encrypt
# @return encrypted data in Base64 format
sub
encrypt
{
my
(
$self
,
$data
)
=
@_
;
...
...
@@ -73,8 +73,8 @@ sub encrypt {
## @method string decrypt(string data)
# Decrypt $data and return it
# @param data data
s
to decrypt in Base64 format
# @return decrypted data
s
# @param data data to decrypt in Base64 format
# @return decrypted data
sub
decrypt
{
my
(
$self
,
$data
)
=
@_
;
$data
=~
s/%2B/\+/ig
;
...
...
@@ -100,9 +100,9 @@ sub decrypt {
# Encrypt $data and return it in hexadecimal format
# Data must be hexadecimal and its length must be a multiple of 32
# the encrypted data have same length as the original data
# @param data data
s
to encrypt
# @param data data to encrypt
# @param key optional secondary key
# @return encrypted data
s
in hexadecimal data
# @return encrypted data in hexadecimal data
sub
encryptHex
{
my
(
$self
,
$data
,
$key
)
=
@_
;
return
_cryptHex
(
$self
,
$data
,
$key
,
"
encrypt
"
);
...
...
@@ -112,9 +112,9 @@ sub encryptHex {
# Decrypt $data and return it in hexadecimal format
# Data must be hexadecimal and its length must be a multiple of 32
# the decrypted data have same length as the encrypted data
# @param data data
s
to decrypt
# @param data data to decrypt
# @param key optional secondary key
# @return decrypted data
s
in hexadecimal data
# @return decrypted data in hexadecimal data
sub
decryptHex
{
my
(
$self
,
$data
,
$key
)
=
@_
;
return
_cryptHex
(
$self
,
$data
,
$key
,
"
decrypt
"
);
...
...
@@ -122,10 +122,10 @@ sub decryptHex {
## @method private string _cryptHex (string data, string key, string sub)
# Auxiliary method to share code between encrypt and decrypt
# @param data data
s
to decrypt
# @param data data to decrypt
# @param key secondary key
# @param sub may be "encrypt" or "decrypt"
# @return decrypted data
s
in hexadecimal data
# @return decrypted data in hexadecimal data
sub
_cryptHex
{
my
(
$self
,
$data
,
$key
,
$sub
)
=
@_
;
unless
(
$data
=~
/^([0-9a-fA-F]{2})*$/
)
{
...
...
lemonldap-ng-common/lib/Lemonldap/NG/Common/Notifications/JSON.pm
View file @
b2620c26
...
...
@@ -17,7 +17,7 @@ sub newNotification {
my
@notifs
;
$json
=
[
$json
]
unless
(
ref
(
$json
)
eq
'
ARRAY
'
);
foreach
my
$notif
(
@$json
)
{
my
@data
s
;
my
@data
;
# Mandatory information
foreach
(
qw(date uid reference)
)
{
...
...
@@ -26,10 +26,10 @@ sub newNotification {
$self
->
logger
->
error
("
Attribute
$_
is missing
");
return
0
;
}
push
@data
s
,
$tmp
;
push
@data
,
$tmp
;
}
push
@data
s
,
(
$notif
->
{
condition
}
//
''
);
push
@notifs
,
[
@data
s
,
$jsonString
];
push
@data
,
(
$notif
->
{
condition
}
//
''
);
push
@notifs
,
[
@data
,
$jsonString
];
}
my
$count
;
foreach
(
@notifs
)
{
...
...
lemonldap-ng-common/lib/Lemonldap/NG/Common/Notifications/XML.pm
View file @
b2620c26
...
...
@@ -14,7 +14,7 @@ has parser => (
}
);
# Check XML data
s
and insert new notifications.
# Check XML data and insert new notifications.
# @param $xml XML string containing notification
# @return number of notifications done
sub
newNotification
{
...
...
@@ -29,7 +29,7 @@ sub newNotification {
foreach
my
$notif
(
$xml
->
documentElement
->
getElementsByTagName
('
notification
')
)
{
my
@data
s
=
();
my
@data
=
();
# Mandatory information
foreach
(
qw(date uid reference)
)
{
...
...
@@ -38,16 +38,16 @@ sub newNotification {
$self
->
logger
->
error
("
Attribute
$_
is missing
");
return
0
;
}
push
@data
s
,
$tmp
;
push
@data
,
$tmp
;
}
# Other information
foreach
(
qw(condition)
)
{
my
$tmp
;
if
(
$tmp
=
$notif
->
getAttribute
(
$_
)
)
{
push
@data
s
,
$tmp
;
push
@data
,
$tmp
;
}
else
{
push
@data
s
,
"";
}
else
{
push
@data
,
"";
}
}
my
$result
=
XML::LibXML::
Document
->
new
(
$version
,
$encoding
);
...
...
@@ -56,7 +56,7 @@ sub newNotification {
$result
->
setDocumentElement
(
$root
);
$result
=
$result
->
serialize
;
utf8::
encode
(
$result
);
push
@notifs
,
[
@data
s
,
$result
];
push
@notifs
,
[
@data
,
$result
];
}
my
$count
;
foreach
(
@notifs
)
{
...
...
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm
View file @
b2620c26
...
...
@@ -33,13 +33,13 @@ sub new {
$self
->
env
->
{
PATH_INFO
}
||=
'
/
';
$self
->
{
uri
}
=
uri_unescape
(
$self
->
env
->
{
REQUEST_URI
}
);
$self
->
{
uri
}
=~
s|^//+|/|g
;
$self
->
{
data
s
}
=
{};
$self
->
{
data
}
=
{};
$self
->
{
error
}
=
0
;
$self
->
{
respHeaders
}
=
[]
;
return
bless
(
$self
,
$_
[
0
]
);
}
sub
data
s
{
$_
[
0
]
->
{
data
s
}
}
sub
data
{
$_
[
0
]
->
{
data
}
}
sub
uri
{
$_
[
0
]
->
{
uri
}
}
...
...
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/SOAPService.pm
View file @
b2620c26
...
...
@@ -20,12 +20,12 @@ sub new {
return
bless
{
obj
=>
$obj
,
func
=>
\
@func
,
req
=>
$req
},
$class
;
}
## @method data
s
AUTOLOAD()
## @method data AUTOLOAD()
# Call the wanted function with the object given to the constructor.
# AUTOLOAD() is a magic method called by Perl interpreter fon non existent
# functions. Here, we use it to call the wanted function (given by $AUTOLOAD)
# if it is authorizated
# @return data
s
provided by the exported function
# @return data provided by the exported function
sub
AUTOLOAD
{
my
$self
=
shift
;
$AUTOLOAD
=~
s/.*:://
;
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Main.pm
View file @
b2620c26
...
...
@@ -162,7 +162,7 @@ sub redirectFilter {
while
(
$f
->
read
(
my
$buffer
,
1024
)
)
{
}
$class
->
updateStatus
(
$f
->
r
,
'
$class->REDIRECT
',
$class
->
data
s
->
{
$class
->
tsv
->
{
whatToTrace
}
},
'
filter
'
);
$class
->
data
->
{
$class
->
tsv
->
{
whatToTrace
}
},
'
filter
'
);
return
$class
->
OK
;
}
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/ApacheMP2/Request.pm
View file @
b2620c26
...
...
@@ -62,9 +62,9 @@ sub new {
return
$self
;
}
sub
data
s
{
sub
data
{
my
(
$self
)
=
@_
;
return
$self
->
{
data
s
}
||=
{};
return
$self
->
{
data
}
||=
{};
}
1
;
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/PSGI.pm
View file @
b2620c26
...
...
@@ -169,7 +169,7 @@ sub _authAndTrace {
}
## @method hashRef user()
# @return hash of user data
s
# @return hash of user data
sub
user
{
my
(
$self
,
$req
)
=
@_
;
return
$req
->
userData
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/SecureToken.pm
View file @
b2620c26
...
...
@@ -94,7 +94,7 @@ sub run {
unless
$class
->
_isAlive
();
# Value to store
my
$value
=
$class
->
data
s
->
{
$secureTokenAttribute
};
my
$value
=
$class
->
data
->
{
$secureTokenAttribute
};
# Set token
my
$key
=
$class
->
_setToken
(
$value
,
$secureTokenExpiration
);
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Lib/ZimbraPreAuth.pm
View file @
b2620c26
...
...
@@ -53,7 +53,7 @@ sub run {
# Build URL
my
$zimbra_url
=
$class
->
_buildZimbraPreAuthUrl
(
$req
,
$zimbraPreAuthKey
,
$zimbraUrl
,
$class
->
data
s
->
{
$zimbraAccountKey
},
$class
->
data
->
{
$zimbraAccountKey
},
$zimbraBy
,
$timeout
);
# Header location
...
...
@@ -76,7 +76,7 @@ sub _buildZimbraPreAuthUrl {
# Expiration time is calculated with _utime and timeout
my
$expires
=
$timeout
?
(
$class
->
data
s
->
{
_utime
}
+
$timeout
)
*
1000
:
$timeout
;
$timeout
?
(
$class
->
data
->
{
_utime
}
+
$timeout
)
*
1000
:
$timeout
;
# Timestamp
my
$timestamp
=
time
()
*
1000
;
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Reload.pm
View file @
b2620c26
...
...
@@ -406,7 +406,7 @@ sub postUrlInit {
{
$class
->
tsv
->
{
maintenance
}
->
{
$vhost
}
=
1
;
$class
->
logger
->
error
(
"
$class
: Unable to build post data
s
:
"
"
$class
: Unable to build post data:
"
.
$class
->
tsv
->
{
jail
}
->
error
);
}
...
...
@@ -552,7 +552,7 @@ sub substitute {
$expr
=~
s/\$vhost\b/\$ENV{HTTP_HOST}/sg
;
$expr
=~
s/\$ip\b/\$ENV{REMOTE_ADDR}/sg
;
# substitute vars with session data
s
, excepts special vars $_ and $\d+
# substitute vars with session data, excepts special vars $_ and $\d+
$expr
=~
s/\$(?!ENV)([_a-zA-Z]\w*)/\$s->{$1}/sg
;
$expr
=~
s/\$ENV\{/\$r->{env}->\{/g
;
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
View file @
b2620c26
...
...
@@ -160,7 +160,7 @@ sub run {
# Store local macros
if
(
keys
%$session
>
$kc
)
{
$class
->
logger
->
debug
("
Update local cache
");
$req
->
data
s
->
{
session
}
->
update
(
$session
,
{
updateCache
=>
2
}
);
$req
->
data
->
{
session
}
->
update
(
$session
,
{
updateCache
=>
2
}
);
}
# Hide Lemonldap::NG cookie
...
...
@@ -435,16 +435,16 @@ sub retrieveSession {
# persistent connection).
# NB: timout is here the same value as current HTTP/1.1 Keep-Alive timeout
# (15 seconds)
if
(
defined
$class
->
data
s
->
{
_session_id
}
and
$id
eq
$class
->
data
s
->
{
_session_id
}
and
(
$now
-
$class
->
data
s
Update
<
15
)
)
if
(
defined
$class
->
data
->
{
_session_id
}
and
$id
eq
$class
->
data
->
{
_session_id
}
and
(
$now
-
$class
->
dataUpdate
<
15
)
)
{
$class
->
logger
->
debug
("
Get session
$id
from Handler internal cache
");
return
$class
->
data
s
;
return
$class
->
data
;
}
# 2. Get the session from cache or backend
my
$session
=
$req
->
data
s
->
{
session
}
=
(
my
$session
=
$req
->
data
->
{
session
}
=
(
Lemonldap::NG::Common::
Session
->
new
(
{
storageModule
=>
$class
->
tsv
->
{
sessionStorageModule
},
...
...
@@ -459,7 +459,7 @@ sub retrieveSession {
unless
(
$session
->
error
)
{
$class
->
data
s
(
$session
->
data
);
$class
->
data
(
$session
->
data
);
$class
->
logger
->
debug
("
Get session
$id
");
...
...
@@ -470,12 +470,12 @@ sub retrieveSession {
$class
->
tsv
->
{
timeoutActivityInterval
}
)
)
{
$req
->
data
s
->
{
session
}
->
update
(
{
'
_lastSeen
'
=>
$now
}
);
$class
->
data
s
(
$session
->
data
);
$req
->
data
->
{
session
}
->
update
(
{
'
_lastSeen
'
=>
$now
}
);
$class
->
data
(
$session
->
data
);
if
(
$session
->
error
)
{
$class
->
logger
->
error
("
Cannot update session
$id
");
$class
->
logger
->
error
(
$req
->
data
s
->
{
session
}
->
error
);
$class
->
logger
->
error
(
$req
->
data
->
{
session
}
->
error
);
}
else
{
$class
->
logger
->
debug
("
Update _lastSeen with
$now
");
...
...
@@ -497,11 +497,11 @@ sub retrieveSession {
$class
->
logger
->
info
("
Session
$id
expired
");
# Clean cached data
$class
->
data
s
(
{}
);
$class
->
data
(
{}
);
return
0
;
}
$class
->
data
s
Update
(
$now
);
$class
->
dataUpdate
(
$now
);
return
$session
->
data
;
}
else
{
...
...
@@ -644,13 +644,13 @@ sub localUnlog {
$class
->
logger
->
debug
('
Local handler logout
');
if
(
$id
//
=
$class
->
fetchId
(
$req
)
)
{
# Delete thread data
s
if
(
$class
->
data
s
->
{
_session_id
}
and
$id
eq
$class
->
data
s
->
{
_session_id
}
)
# Delete thread data
if
(
$class
->
data
->
{
_session_id
}
and
$id
eq
$class
->
data
->
{
_session_id
}
)
{
$class
->
data
s
(
{}
);
$class
->
data
(
{}
);
}
delete
$req
->
data
s
->
{
session
};
delete
$req
->
data
->
{
session
};
# Delete local cache
if
(
$class
->
tsv
->
{
refLocalStorage
}
...
...
@@ -681,7 +681,7 @@ sub postOutputFilter {
}
## @rmethod protected postInputFilter(string uri)
# Replace request body with form data
s
defined in configuration
# Replace request body with form data defined in configuration
# @param uri URI to catch
sub
postInputFilter
{
my
(
$class
,
$req
,
$session
,
$uri
)
=
@_
;
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/SharedVariables.pm
View file @
b2620c26
...
...
@@ -24,7 +24,7 @@ BEGIN {
};
# Current sessions properties
our
$_v
=
{
data
s
=>
{},
data
s
Update
=>
{},
};
our
$_v
=
{
data
=>
{},
dataUpdate
=>
{},
};
# Thread shared accessors
foreach
(
keys
%$_tshv
)
{
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI.pm
View file @
b2620c26
...
...
@@ -92,7 +92,7 @@ Level of protection. It can be one of:
=head3 user
Returns user session data
s
. If empty (no protection), returns:
Returns user session data. If empty (no protection), returns:
{ _whatToTrace => 'anonymous' }
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Router.pm
View file @
b2620c26
...
...
@@ -99,7 +99,7 @@ Level of protection. It can be one of:
=head3 user
Returns user session data
s
. If empty (no protection), returns:
Returns user session data. If empty (no protection), returns:
{ _whatToTrace => 'anonymous' }
...
...
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/PSGI/Try.pm
View file @
b2620c26
...
...
@@ -58,7 +58,7 @@ sub _run {
my
$res
=
$self
->
_authAndTrace
(
$req
,
1
);
if
(
$res
->
[
0
]
<
300
)
{
$self
->
routes
(
$self
->
authRoutes
);
$req
->
userData
(
$self
->
api
->
data
s
);
$req
->
userData
(
$self
->
api
->
data
);
}
else
{
# Unset headers (handler adds a Location header)
...
...
@@ -148,12 +148,12 @@ L<Lemonldap::NG::Common::PSGI::Router>) except that:
=back
Note also that user session data
s
are available in $req parameter (first argument
Note also that user session data are available in $req parameter (first argument
received by REST methods):
=over
=item $req->userData() returns a hash reference containing user session data
s
=item $req->userData() returns a hash reference containing user session data
=back
...
...
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build.pm
View file @
b2620c26
...
...
@@ -105,7 +105,7 @@ sub run {
return
$tmp
;
";
# Second step, Manager/Constants.pm file will contain data
s
issued from
# Second step, Manager/Constants.pm file will contain data issued from
# this scan
my
$ra
=
Regexp::
Assemble
->
new
;
...
...
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build/Attributes.pm
View file @
b2620c26
...
...
@@ -1468,7 +1468,7 @@ sub attributes {
test
=>
sub
{
1
},
keyTest
=>
qr/^(?:\*\.)?$Regexp::Common::URI::RFC2396::hostname$/
,
keyMsgFail
=>
'
__badHostname__
',
documentation
=>
'
Virtualhost urls/Data
s
to post
',
documentation
=>
'
Virtualhost urls/Data to post
',
},
vhostOptions
=>
{
...
...
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf.pm
View file @
b2620c26
...
...
@@ -74,7 +74,7 @@ sub addRoutes {
##@method public PSGI-JSON-response newRSAKey($req)
# Return a hashref containing private and public keys
# The posted data
s
must contain a JSON object containing
# The posted data must contain a JSON object containing
# {"password":"newpassword"}
#
#@param $req Lemonldap::NG::Common::PSGI::Request object
...
...
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Parser.pm
View file @
b2620c26
...
...
@@ -121,7 +121,7 @@ sub scanTree {
$self
->
_scanNodes
(
$self
->
tree
)
or
return
0
;
# Set cfgNum to ref cfgNum (will be changed when saving), set other
# metadata
s
and set a value to the key if empty
# metadata and set a value to the key if empty
$self
->
newConf
->
{
cfgNum
}
=
$self
->
req
->
params
('
cfgNum
');
$self
->
newConf
->
{
cfgAuthor
}
=
$self
->
req
->
userData
->
{
$
Lemonldap::NG::Handler::Main::
tsv
->
{
whatToTrace
}
...
...
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Tests.pm
View file @
b2620c26
...
...
@@ -226,7 +226,7 @@ sub tests {
backend
=>
$conf
->
{
globalStorage
}
};
};
return
(
-
1
,
"
Unable to insert data
s
($@)
"
)
if
(
$@
);
return
(
-
1
,
"
Unable to insert data ($@)
"
)
if
(
$@
);