Lines 40-57
use C4::Context;
Link Here
|
40 |
BEGIN { |
40 |
BEGIN { |
41 |
Log::Log4perl->wrapper_register(__PACKAGE__); |
41 |
Log::Log4perl->wrapper_register(__PACKAGE__); |
42 |
|
42 |
|
43 |
my $conf; |
|
|
44 |
if ( exists $ENV{"LOG4PERL_CONF"} and $ENV{'LOG4PERL_CONF'} and -s $ENV{"LOG4PERL_CONF"} ) { |
43 |
if ( exists $ENV{"LOG4PERL_CONF"} and $ENV{'LOG4PERL_CONF'} and -s $ENV{"LOG4PERL_CONF"} ) { |
45 |
|
|
|
46 |
# Check for web server level configuration first |
44 |
# Check for web server level configuration first |
47 |
$conf = $ENV{"LOG4PERL_CONF"}; |
45 |
Log::Log4perl->init_once( $ENV{"LOG4PERL_CONF"} ); |
48 |
} |
46 |
} |
49 |
else { |
47 |
elsif ( C4::Context->config("log4perl_conf") ) { |
50 |
# If no web server level config exists, look in the koha conf file for one |
48 |
# If no web server level config exists, look in the koha conf file for one |
51 |
$conf = C4::Context->config("log4perl_conf"); |
49 |
Log::Log4perl->init_once( C4::Context->config("log4perl_conf") ); |
|
|
50 |
} else { |
51 |
my $logdir = C4::Context->config("logdir"); |
52 |
my $conf = qq( |
53 |
log4perl.logger.intranet = WARN, INTRANET |
54 |
log4perl.appender.INTRANET=Log::Log4perl::Appender::File |
55 |
log4perl.appender.INTRANET.filename=$logdir/intranet-error.log |
56 |
log4perl.appender.INTRANET.mode=append |
57 |
log4perl.appender.INTRANET.layout=PatternLayout |
58 |
log4perl.appender.INTRANET.layout.ConversionPattern=[%d] [%p] %m %l %n |
59 |
|
60 |
log4perl.logger.opac = WARN, OPAC |
61 |
log4perl.appender.OPAC=Log::Log4perl::Appender::File |
62 |
log4perl.appender.OPAC.filename=$logdir/opac-error.log |
63 |
log4perl.appender.OPAC.mode=append |
64 |
log4perl.appender.OPAC.layout=PatternLayout |
65 |
log4perl.appender.OPAC.layout.ConversionPattern=[%d] [%p] %m %l %n |
66 |
); |
67 |
Log::Log4perl->init_once(\$conf); |
52 |
} |
68 |
} |
53 |
|
|
|
54 |
Log::Log4perl->init_once($conf); |
55 |
} |
69 |
} |
56 |
|
70 |
|
57 |
=head2 get |
71 |
=head2 get |
58 |
- |
|
|