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

Add Dispatch logger (fixes: #1419)

Browse Source
This commit is contained in:
Xavier Guimard 2018-05-11 14:43:41 +02:00
parent c806743390
commit 7af003bf3d
2 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lemonldap-ng-common/MANIFEST
View File

@ -37,6 +37,7 @@ lib/Lemonldap/NG/Common/Crypto.pm
lib/Lemonldap/NG/Common/FormEncode.pm
lib/Lemonldap/NG/Common/IPv6.pm
lib/Lemonldap/NG/Common/Logger/Apache2.pm
lib/Lemonldap/NG/Common/Logger/Dispatch.pm
lib/Lemonldap/NG/Common/Logger/Log4perl.pm
lib/Lemonldap/NG/Common/Logger/Null.pm
lib/Lemonldap/NG/Common/Logger/Sentry.pm

41
lemonldap-ng-common/lib/Lemonldap/NG/Common/Logger/Dispatch.pm Normal file
View File

@ -0,0 +1,41 @@
package Lemonldap::NG::Common::Logger::Dispatch;
use strict;
our $VERSION = '2.0.0';
sub new {
no warnings 'redefine';
my $self = bless {}, shift;
my ($conf) = @_;
my %bck;
my $last;
my $show = 1;
unless ( $conf->{logDispatchError} ) {
die 'At least, logDispatchError must be defined in conf';
}
foreach my $l (qw(error warn notice info debug)) {
if ($show) {
$last = $conf->{ "logDispatch" . ucfirst($l) } || $last;
unless ( $bck{$last} ) {
eval "require $last";
die $@ if ($@);
$bck{$last} = $last->new(@_);
}
my $obj = $bck{$last};
eval "sub $l {
shift;
return \$obj->$l(\@_);
}";
}
else {
eval qq'sub $l {1}';
}
$show = 0 if ( $conf->{logLevel} eq $l );
}
die "unknown level $conf->{logLevel}" if ($show);
return $self;
}
1;