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

Add cache to avoid parsing and compiling JSON files at each request (#1595)

Browse Source
This commit is contained in:
Xavier 2019-03-26 06:49:39 +01:00
parent 81c88216b0
commit 774707ad65
1 changed files with 19 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,6 +17,8 @@ use strict;
use URI::Escape;
use JSON;
has trOverCache => ( is => 'rw', default => sub { {} } );
# List constants
sub authProcess { qw(extractFormInfo getUser authenticate) }
@ -749,6 +751,7 @@ sub sendHtml {
# Override messages
my $trOverMessages = JSON::from_json( $self->trOver );
unless ( $self->trOverCache->{$templateDir} ) {
opendir( DIR, $templateDir );
my @langfiles = grep( /\.json$/, readdir(DIR) );
close(DIR);
@ -765,7 +768,9 @@ sub sendHtml {
}
}
$args{params}->{TROVER} = JSON::to_json($trOverMessages);
$self->trOverCache->{$templateDir} = JSON::to_json($trOverMessages);
}
$args{params}->{TROVER} = $self->trOverCache->{$templateDir};
my $res = $self->SUPER::sendHtml( $req, $template, %args );
push @{ $res->[1] },