From 25df3abb22e6f36ed80e8510f1e3b9f2150f1b2c Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
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 <tomascohen@unc.edu.ar>
---
 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