@@ -, +, @@ --- debian/templates/log4perl-site.conf.in | 7 +++++++ debian/templates/plack.psgi | 12 +++++------- etc/log4perl.conf | 12 ++++++------ misc/plack/koha.psgi | 14 +++++++------- 4 files changed, 25 insertions(+), 20 deletions(-) --- a/debian/templates/log4perl-site.conf.in +++ a/debian/templates/log4perl-site.conf.in @@ -11,3 +11,10 @@ log4perl.appender.OPAC.filename=__LOG_DIR__/opac-error.log log4perl.appender.OPAC.mode=append log4perl.appender.OPAC.layout=PatternLayout log4perl.appender.OPAC.layout.ConversionPattern=[%d] [%p] %m %l %n + +log4perl.logger.plack = WARN, PLACK +log4perl.appender.PLACK=Log::Log4perl::Appender::File +log4perl.appender.PLACK.filename=__LOG_DIR__/plack-error.log +log4perl.appender.PLACK.mode=append +log4perl.appender.PLACK.layout=PatternLayout +log4perl.appender.PLACK.layout.ConversionPattern=[%d] [%p] %m --- a/debian/templates/plack.psgi +++ a/debian/templates/plack.psgi @@ -36,14 +36,8 @@ use Koha::Caches; use Koha::Cache::Memory::Lite; use Koha::Database; use Koha::DateUtils; - -#BZ 16357, add timestamps to warnings use Koha::Logger; -my $logger = Koha::Logger->get({ interface => 'plack-error' }); -$SIG{__WARN__} = sub { $logger->warn(shift); }; -$SIG{__DIE__} = sub { $logger->fatal(shift); }; - use CGI qw(-utf8 ); # we will loose -utf8 under plack, otherwise { no warnings 'redefine'; @@ -72,14 +66,18 @@ my $apiv1 = builder { $server->to_psgi_app; }; +Koha::Logger->get; + builder { enable "ReverseProxy"; enable "Plack::Middleware::Static"; + enable "Log4perl", category => "plack"; + enable "LogErrors"; + enable "LogWarn"; # + is required so Plack doesn't try to prefix Plack::Middleware:: enable "+Koha::Middleware::SetEnv"; mount '/opac' => $opac; mount '/intranet' => $intranet; mount '/api/v1/app.pl' => $apiv1; - }; --- a/etc/log4perl.conf +++ a/etc/log4perl.conf @@ -12,9 +12,9 @@ log4perl.appender.OPAC.mode=append log4perl.appender.OPAC.layout=PatternLayout log4perl.appender.OPAC.layout.ConversionPattern=[%d] [%p] %m %l %n -log4perl.logger.plack-error = WARN, PLACK-ERROR -log4perl.appender.PLACK-ERROR=Log::Log4perl::Appender::File -log4perl.appender.PLACK-ERROR.filename=__LOG_DIR__/plack-error.log -log4perl.appender.PLACK-ERROR.mode=append -log4perl.appender.PLACK-ERROR.layout=PatternLayout -log4perl.appender.PLACK-ERROR.layout.ConversionPattern=[%d] [%p] %m +log4perl.logger.plack = WARN, PLACK +log4perl.appender.PLACK=Log::Log4perl::Appender::File +log4perl.appender.PLACK.filename=__LOG_DIR__/plack-error.log +log4perl.appender.PLACK.mode=append +log4perl.appender.PLACK.layout=PatternLayout +log4perl.appender.PLACK.layout.ConversionPattern=[%d] [%p] %m --- a/misc/plack/koha.psgi +++ a/misc/plack/koha.psgi @@ -5,13 +5,6 @@ use lib qw( ./lib ); use Plack::Middleware::Debug; use Plack::App::Directory; -#BZ 16357, add timestamps to warnings -use Koha::Logger; - -my $logger = Koha::Logger->get({ interface => 'plack-error' }); -$SIG{__WARN__} = sub { $logger->warn(shift); }; -$SIG{__DIE__} = sub { $logger->fatal(shift); }; - use CGI qw(-utf8 ); # we will lose -utf8 under plack { no warnings 'redefine'; @@ -54,6 +47,7 @@ use Koha::DateUtils; use Koha::Caches; use Koha::Cache::Memory::Lite; use Koha::Patron::Categories; +use Koha::Logger; =for preload use C4::Tags; # FIXME @@ -79,6 +73,8 @@ my $home = sub { return [ 302, [ Location => '/cgi-bin/koha/' . ( $ENV{INTRANET} ? 'mainpage.pl' : 'opac-main.pl' ) ] ]; }; +Koha::Logger->get; + builder { # please don't use plugins which are under enable_if $ENV{PLACK_DEBUG} in production! @@ -102,6 +98,10 @@ builder { path => qr{^/(intranet|opac)-tmpl/}, root => "$ENV{INTRANETDIR}/koha-tmpl/"; + enable "Log4perl", category => "plack"; + enable "LogErrors"; + enable "LogWarn"; + # + is required so Plack doesn't try to prefix Plack::Middleware:: enable "+Koha::Middleware::SetEnv"; --