Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
lemonldap-ng
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Xavier Bachelot
lemonldap-ng
Commits
f8144bc1
Commit
f8144bc1
authored
Feb 06, 2019
by
Christophe Maudoux
🐛
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Typo (#1625)
parent
007a5432
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
4 deletions
+6
-4
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
+6
-4
No files found.
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
View file @
f8144bc1
...
@@ -27,18 +27,19 @@ has rule => ( is => 'rw', default => sub { {} } );
...
@@ -27,18 +27,19 @@ has rule => ( is => 'rw', default => sub { {} } );
sub
init
{
sub
init
{
my
(
$self
)
=
@_
;
my
(
$self
)
=
@_
;
my
$hd
=
$self
->
p
->
HANDLER
;
$self
->
logger
->
debug
(
"
CAS Rule ->
"
.
$self
->
conf
->
{
issuerDBCASRule
}
);
# Parse activation rule
my
$hd
=
$self
->
p
->
HANDLER
;
$self
->
logger
->
debug
(
"
CAS rule ->
"
.
$self
->
conf
->
{
issuerDBCASRule
}
);
my
$rule
my
$rule
=
$hd
->
buildSub
(
$hd
->
substitute
(
$self
->
conf
->
{
issuerDBCASRule
}
)
);
=
$hd
->
buildSub
(
$hd
->
substitute
(
$self
->
conf
->
{
issuerDBCASRule
}
)
);
unless
(
$rule
)
{
unless
(
$rule
)
{
$self
->
error
(
"
Bad CAS rule
"
.
$hd
->
tsv
->
{
jail
}
->
error
);
$self
->
error
(
"
Bad CAS rule
->
"
.
$hd
->
tsv
->
{
jail
}
->
error
);
return
0
;
return
0
;
}
}
$self
->
{
rule
}
=
$rule
;
$self
->
{
rule
}
=
$rule
;
# Launch parents initialization subroutines, then launch IdP
en
SP lists
# Launch parents initialization subroutines, then launch IdP
and
SP lists
my
$res
=
$self
->
Lemonldap::NG::Portal::Main::Issuer::
init
();
my
$res
=
$self
->
Lemonldap::NG::Portal::Main::Issuer::
init
();
return
0
unless
(
$self
->
loadApp
);
return
0
unless
(
$self
->
loadApp
);
$self
->
addUnauthRoute
(
$self
->
addUnauthRoute
(
...
@@ -90,6 +91,7 @@ sub storeEnvAndCheckGateway {
...
@@ -90,6 +91,7 @@ sub storeEnvAndCheckGateway {
sub
run
{
sub
run
{
my
(
$self
,
$req
,
$target
)
=
@_
;
my
(
$self
,
$req
,
$target
)
=
@_
;
# Check activation rule
unless
(
$self
->
rule
->
(
$req
,
$req
->
sessionInfo
)
)
{
unless
(
$self
->
rule
->
(
$req
,
$req
->
sessionInfo
)
)
{
$self
->
userLogger
->
error
('
CAS service not authorized
');
$self
->
userLogger
->
error
('
CAS service not authorized
');
return
PE_CAS_SERVICE_NOT_ALLOWED
;
return
PE_CAS_SERVICE_NOT_ALLOWED
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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