Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Maxime Besson
lemonldap-ng
Commits
9b0c8ef9
Commit
9b0c8ef9
authored
Feb 05, 2010
by
Clément OUDOT
Browse files
SAML: use serviceToXML
parent
6f46631f
Changes
3
Hide whitespace changes
Inline
Side-by-side
modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/_Struct.pm
View file @
9b0c8ef9
...
...
@@ -732,7 +732,7 @@ sub defaultConf {
'
urn:oasis:names:tc:SAML:2.0:bindings:HTTP-Redirect;
'
.
'
http://auth.example.com/saml/singleSignOn;
',
samlIDPSSODescriptorSingleSignOnServiceSOAP
=>
'
urn:oasis:names:tc:SAML:2.0:bindings:
HTTP-
SOAP;
'
'
urn:oasis:names:tc:SAML:2.0:bindings:SOAP;
'
.
'
http://auth.example.com/saml/singleSignOnSOAP;
',
samlIDPSSODescriptorSingleLogoutServiceHTTP
=>
'
urn:oasis:names:tc:SAML:2.0:bindings:HTTP-Redirect;
'
...
...
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSAML.pm
View file @
9b0c8ef9
...
...
@@ -24,33 +24,21 @@ sub authInit {
# Activate SOAP
$self
->
{
Soap
}
=
1
;
# Check presence of service metadata and private key in configuration
unless
(
$self
->
{
samlServiceMetaData
}
and
$self
->
{
samlServicePrivateKey
}
)
{
$self
->
lmLog
(
"
SAML service metadata or private key not found in configuration
",
'
error
'
);
# Check presence of private key in configuration
unless
(
$self
->
{
samlServicePrivateKey
}
)
{
$self
->
lmLog
(
"
SAML private key not found in configuration
",
'
error
'
);
return
PE_ERROR
;
}
# Get metadata from configuration
$self
->
lmLog
(
"
Get Metadata for this service
",
'
debug
'
);
my
$service_metadata
=
Lemonldap::NG::Common::Conf::SAML::
Metadata
->
new
();
unless
(
$service_metadata
->
initializeFromConfHash
(
$self
->
{
samlServiceMetaData
}
)
)
{
$self
->
lmLog
(
"
Fail to read Service Metadata from configuration
",
'
error
'
);
return
PE_ERROR
;
}
# Create Lasso server with service metadata
my
$server
=
$self
->
createServer
(
$service_metadata
->
toXML
(),
$service_metadata
->
serviceToXML
(
$ENV
{
DOCUMENT_ROOT
}
.
"
/skins/common/saml2-metadata.tpl
",
$self
),
$self
->
{
samlServicePrivateKey
},
);
...
...
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SAML.pm
View file @
9b0c8ef9
...
...
@@ -117,7 +117,7 @@ sub createServer {
$private_key_password
,
$certificate
);
};
$self
->
checkLassoError
(
$@
);
return
unless
$self
->
checkLassoError
(
$@
);
return
$server
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment