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
843e18c6
Commit
843e18c6
authored
Dec 17, 2018
by
Yadd
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Initialize user() in $req (#1591)
parent
5aad03fd
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
7 additions
and
4 deletions
+7
-4
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm
+2
-2
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Request.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Request.pm
+4
-1
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm
+1
-1
No files found.
lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI/Request.pm
View file @
843e18c6
...
...
@@ -45,8 +45,8 @@ sub uri { $_[0]->{uri} }
sub
userData
{
my
(
$self
,
$v
)
=
@_
;
return
$
_
[
0
]
->
{
userData
}
=
$v
if
(
$v
);
return
$
_
[
0
]
->
{
userData
}
||
{
_whatToTrace
=>
$
_
[
0
]
->
user
,
};
return
$
self
->
{
userData
}
=
$v
if
(
$v
);
return
$
self
->
{
userData
}
||
{
_whatToTrace
=>
$
self
->
{
user
}
,
};
}
sub
respHeaders
{
...
...
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Request.pm
View file @
843e18c6
...
...
@@ -115,9 +115,12 @@ sub error_type {
}
sub
init
{
my
(
$self
)
=
@_
;
my
(
$self
,
$conf
)
=
@_
;
$self
->
{
$_
}
=
{}
foreach
(
qw(data customParameters sessionInfo pdata)
);
$self
->
{
$_
}
=
[]
foreach
(
qw(respCookies)
);
if
(
my
$tmp
=
$self
->
userData
->
{
$conf
->
{
whatToTrace
}
}
)
{
$self
->
user
(
$tmp
);
}
}
sub
errorString
{
...
...
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm
View file @
843e18c6
...
...
@@ -38,7 +38,7 @@ sub handler {
my
(
$self
,
$req
)
=
@_
;
bless
$req
,
'
Lemonldap::NG::Portal::Main::Request
';
$req
->
init
();
$req
->
init
(
$self
->
conf
);
my
$sp
=
0
;
# Restore pdata
...
...
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