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

Improve Log4Perl class with %Q and %E flags (#2565)

This commit is contained in:
Maxime Besson 2021-10-08 10:36:57 +02:00
parent 93c9ae427f
commit 8dabd0e02c
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
lemonldap-ng-common/lib/Lemonldap/NG/Common/Logger/Log4perl.pm
View File

@ -2,6 +2,7 @@ package Lemonldap::NG::Common::Logger::Log4perl;
use strict;
use Log::Log4perl;
use Log::Log4perl::MDC;
our $VERSION = '2.0.0';
@ -10,8 +11,41 @@ our $init = 0;
sub new {
my ( $class, $conf, %args ) = @_;
my $self = bless {}, $class;
unless ($init) {
my $file = $conf->{log4perlConfFile} || '/etc/log4perl.conf';
# Fix reporting of code location
Log::Log4perl->wrapper_register(
"Lemonldap::NG::Common::Logger::_Duplicate");
Log::Log4perl->wrapper_register(__PACKAGE__);
# map %E to the stored $req->env
Log::Log4perl::Layout::PatternLayout::add_global_cspec(
'E',
sub {
my $layout = shift;
my $subvar = $layout->{curlies};
my $req = Log::Log4perl::MDC->get("req");
return defined($req) ? $req->env->{$subvar} : undef;
}
);
# map %Q to the stored $req
Log::Log4perl::Layout::PatternLayout::add_global_cspec(
'Q',
sub {
my $layout = shift;
my $subvar = $layout->{curlies};
my $req = Log::Log4perl::MDC->get("req");
if ( ref($req) and $req->can($subvar) ) {
return $req->$subvar;
}
else {
return undef;
}
}
);
Log::Log4perl->init($file);
$init++;
}
@ -23,6 +57,16 @@ sub new {
return $self;
}
sub setRequestObj {
my ($self, $req) = @_;
Log::Log4perl::MDC->put( "req", $req );
}
sub clearRequestObj {
my ($self, $req) = @_;
my $text = Log::Log4perl::MDC->remove();
}
sub AUTOLOAD {
my $self = shift;
no strict;