dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Set pdata cookie only if needed (#1461)

Browse Source
This commit is contained in:
Xavier Guimard 2018-07-04 17:23:17 +02:00
parent 8de024ddb6
commit 854cf7be77
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Main/Run.pm
View File

@ -34,9 +34,11 @@ sub handler {
bless $req, 'Lemonldap::NG::Portal::Main::Request';
$req->init();
my $sp = 0;
# Restore pdata
if ( my $v = $req->cookies->{ $self->conf->{cookieName} . 'pdata' } ) {
$sp = 1;
eval { $req->pdata( JSON::from_json($v) ); };
if ($@) {
$self->logger->error("Bad JSON content in cookie pdata");
@ -46,15 +48,17 @@ sub handler {
my $res = $self->Lemonldap::NG::Common::PSGI::Router::handler($req);
# Save pdata
my %v = (
name => $self->conf->{cookieName} . 'pdata',
(
%{ $req->pdata }
? ( value => JSON::to_json( $req->pdata ) )
: ( value => '', expires => 'Wed, 21 Oct 2015 00:00:00 GMT' )
)
);
push @{ $res->[1] }, 'Set-Cookie', $self->cookie(%v);
if ( $sp or %{ $req->pdata } ) {
my %v = (
name => $self->conf->{cookieName} . 'pdata',
(
%{ $req->pdata }
? ( value => JSON::to_json( $req->pdata ) )
: ( value => '', expires => 'Wed, 21 Oct 2015 00:00:00 GMT' )
)
);
push @{ $res->[1] }, 'Set-Cookie', $self->cookie(%v);
}
return $res;
}