From 25df3abb22e6f36ed80e8510f1e3b9f2150f1b2c Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 16 Jun 2015 13:32:53 -0400 Subject: [PATCH] Bug 14167: (QA followup) Embed default config into Koha::Logger Signed-off-by: Tomas Cohen Arazi --- Koha/Logger.pm | 28 +++++++++++++++++++++------- 1 file changed, 21 insertions(+), 7 deletions(-) diff --git a/Koha/Logger.pm b/Koha/Logger.pm index 6ba0af8914..a3b58ab9e6 100644 --- a/Koha/Logger.pm +++ b/Koha/Logger.pm @@ -40,18 +40,32 @@ use C4::Context; BEGIN { Log::Log4perl->wrapper_register(__PACKAGE__); - my $conf; if ( exists $ENV{"LOG4PERL_CONF"} and $ENV{'LOG4PERL_CONF'} and -s $ENV{"LOG4PERL_CONF"} ) { - # Check for web server level configuration first - $conf = $ENV{"LOG4PERL_CONF"}; + Log::Log4perl->init_once( $ENV{"LOG4PERL_CONF"} ); } - else { + elsif ( C4::Context->config("log4perl_conf") ) { # If no web server level config exists, look in the koha conf file for one - $conf = C4::Context->config("log4perl_conf"); + Log::Log4perl->init_once( C4::Context->config("log4perl_conf") ); + } else { + my $logdir = C4::Context->config("logdir"); + my $conf = qq( + log4perl.logger.intranet = WARN, INTRANET + log4perl.appender.INTRANET=Log::Log4perl::Appender::File + log4perl.appender.INTRANET.filename=$logdir/intranet-error.log + log4perl.appender.INTRANET.mode=append + log4perl.appender.INTRANET.layout=PatternLayout + log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l %n + + log4perl.logger.opac = WARN, OPAC + log4perl.appender.OPAC=Log::Log4perl::Appender::File + log4perl.appender.OPAC.filename=$logdir/opac-error.log + log4perl.appender.OPAC.mode=append + log4perl.appender.OPAC.layout=PatternLayout + log4perl.appender.OPAC.layout.ConversionPattern=[%d] [%p] %m %l %n + ); + Log::Log4perl->init_once(\$conf); } - - Log::Log4perl->init_once($conf); } =head2 get -- 2.39.5