diff options
Diffstat (limited to 'Bugzilla')
-rw-r--r-- | Bugzilla/Install/Filesystem.pm | 1 | ||||
-rw-r--r-- | Bugzilla/Logging.pm | 25 |
2 files changed, 26 insertions, 0 deletions
diff --git a/Bugzilla/Install/Filesystem.pm b/Bugzilla/Install/Filesystem.pm index d205a6750..97ab69b9b 100644 --- a/Bugzilla/Install/Filesystem.pm +++ b/Bugzilla/Install/Filesystem.pm @@ -105,6 +105,7 @@ EOT use constant HTTPD_ENV => qw( LOCALCONFIG_ENV BUGZILLA_UNSAFE_AUTH_DELEGATION + LOG4PERL_CONFIG_FILE USE_NYTPROF NYTPROF_DIR ); diff --git a/Bugzilla/Logging.pm b/Bugzilla/Logging.pm new file mode 100644 index 000000000..c10f4c125 --- /dev/null +++ b/Bugzilla/Logging.pm @@ -0,0 +1,25 @@ +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. +# +# This Source Code Form is "Incompatible With Secondary Licenses", as +# defined by the Mozilla Public License, v. 2.0. + +package Bugzilla::Logging; +use 5.10.1; +use strict; +use warnings; + +use Log::Log4perl; +use Log::Log4perl::MDC; +use File::Spec::Functions qw(rel2abs); +use Bugzilla::Constants qw(bz_locations); + +BEGIN { + my $file = $ENV{LOG4PERL_CONFIG_FILE} // "log4perl-syslog.conf"; + Log::Log4perl::Logger::create_custom_level('NOTICE', 'WARN', 5, 2); + Log::Log4perl->init(rel2abs($file, bz_locations->{confdir})); + Log::Log4perl->get_logger(__PACKAGE__)->debug("logging enabled in $0"); +} + +1; |