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
9a865598
Commit
9a865598
authored
Dec 27, 2019
by
Christophe Maudoux
🐛
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Typo (#2055)
parent
884e86f7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
11 deletions
+8
-11
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
+8
-11
No files found.
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
View file @
9a865598
...
...
@@ -437,15 +437,16 @@ sub goToError {
# @return Value of the cookie if found, 0 else
sub
fetchId
{
my
(
$class
,
$req
)
=
@_
;
my
$t
=
$req
->
{
env
}
->
{
HTTP_COOKIE
}
or
return
0
;
my
$vhost
=
$class
->
resolveAlias
(
$req
);
my
$t
=
$req
->
{
env
}
->
{
HTTP_COOKIE
}
or
return
0
;
my
$vhost
=
$class
->
resolveAlias
(
$req
);
$class
->
logger
->
debug
("
VH
$vhost
is HTTPS
")
if
$class
->
_isHttps
(
$req
,
$vhost
);
my
$lookForHttpCookie
=
(
$class
->
tsv
->
{
securedCookie
}
=~
/^(2|3)$/
and
not
$class
->
_isHttps
(
$req
,
$vhost
)
);
my
$cn
=
$class
->
tsv
->
{
cookieName
};
my
$value
=
$lookForHttpCookie
?
(
$t
=~
/${cn}http=([^,; ]+)/o
?
$
1
:
0
)
:
(
$t
=~
/$cn=([^,; ]+)/o
?
$
1
:
0
);
:
(
$t
=~
/$cn=([^,; ]+)/o
?
$
1
:
0
);
if
(
$value
&&
$lookForHttpCookie
&&
$class
->
tsv
->
{
securedCookie
}
==
3
)
{
$value
=
$class
->
tsv
->
{
cipher
}
->
decryptHex
(
$value
,
"
http
"
);
...
...
@@ -573,11 +574,8 @@ sub retrieveSession {
# Returns the port on which this vhost is accessed
# @param $s VHost name
# @return PORT
sub
_getPort
{
my
(
$class
,
$req
,
$vhost
)
=
@_
;
if
(
defined
$class
->
tsv
->
{
port
}
->
{
$vhost
}
and
(
$class
->
tsv
->
{
port
}
->
{
$vhost
}
>
0
)
)
{
...
...
@@ -594,15 +592,14 @@ sub _getPort {
}
}
}
## @cmethod private boot _isHttps(string s)
# Returns whether this VHost should he accessed
## @cmethod private bool _isHttps(string s)
# Returns whether this VHost should be accessed
# via HTTPS
# @param $s VHost name
# @return RUE if the vhost should be accessed over HTTPS
# @return
T
RUE if the vhost should be accessed over HTTPS
sub
_isHttps
{
my
(
$class
,
$req
,
$vhost
)
=
@_
;
if
(
defined
$class
->
tsv
->
{
https
}
->
{
$vhost
}
and
(
$class
->
tsv
->
{
https
}
->
{
$vhost
}
>
-
1
)
)
{
...
...
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