log4perl.rootLogger=DEBUG,CONSOLE,ViewableLog,DebugLog,ErrorLog
###################################################################################
# console - what to watch
log4perl.appender.CONSOLE=Log::Log4perl::Appender::Screen
log4perl.appender.CONSOLE.layout=PatternLayout
log4perl.appender.CONSOLE.layout.ConversionPattern=[%d] [%p %c] - %m%n
log4perl.appender.CONSOLE.Filter = ViewableFilter
log4perl.filter.ViewableFilter = sub { \
my %p = @_; \
$p{log4p_level} eq "FATAL" or \
$p{log4p_level} eq "ERROR" or \
$p{log4p_level} eq "INFO" or \
$p{log4p_level} eq "WARN" \
}
###################################################################################
# Viewable log - record of CONSOLE
log4perl.appender.ViewableLog=Log::Log4perl::Appender::File
log4perl.appender.ViewableLog.layout=PatternLayout
log4perl.appender.ViewableLog.layout.ConversionPattern=[%d] [%p %c] - %m%n
log4perl.appender.ViewableLog.filename = logs/output.log
log4perl.appender.ViewableLog.Filter = ViewableFilter
###################################################################################
# Error log - warnings and errors
log4perl.appender.ErrorLog=Log::Log4perl::Appender::File
log4perl.appender.ErrorLog.layout=PatternLayout
log4perl.appender.ErrorLog.layout.ConversionPattern=[%d] [%p %c] - %m%n
log4perl.appender.ErrorLog.filename = logs/error.log
log4perl.appender.ErrorLog.Filter = ErrorFilter
log4perl.filter.ErrorFilter = sub { \
my %p = @_; \
$p{log4p_level} eq "FATAL" or \
$p{log4p_level} eq "ERROR" or \
$p{log4p_level} eq "WARN" \
}
###################################################################################
# Debug Log - everything
log4perl.appender.DebugLog = Log::Log4perl::Appender::File
log4perl.appender.DebugLog.layout=PatternLayout
log4perl.appender.DebugLog.layout.ConversionPattern=[%d] [%p %c] - %m%n
log4perl.appender.DebugLog.filename = logs/debug.log
log4perl.appender.DebugLog.Filter = AllFilter
log4perl.filter.AllFilter = sub { \
my %p = @_; \
$p{log4p_level} eq "FATAL" or \
$p{log4p_level} eq "ERROR" or \
$p{log4p_level} eq "WARN" or \
$p{log4p_level} eq "INFO" or \
$p{log4p_level} eq "DEBUG" or \
$p{log4p_level} eq "TRACE" \
}
###################################################################################
# To enable DEBUG-level logging for a particular module (and any modules that subclass it),
# un-comment the following and change e.g. 'TempTopicsAdminTools.ModuleManager' to the your own module.
##log4perl.logger.TempTopicsAdminTools.ModuleManager=DEBUG
#log4perl.logger.TempTopicsAdminTools.PageManager=WARN
#log4perl.logger.TempTopicsAdminTools.CategoryManager=WARN
A piggy bank of commands, fixes, succinct reviews, some mini articles and technical opinions from a (mostly) Perl developer.