The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
log4perl.rootLogger                               = INFO, root
log4perl.appender.root                            = Log::Log4perl::Appender::File
log4perl.appender.root.layout                     = PatternLayout
                                                    # date package category - message in  last 2 components of filename (linenumber) newline
log4perl.appender.root.layout.ConversionPattern   = %d %p %c - %m in %F{2} (%L)%n
log4Perl.appender.root.filename                   = sub { my $outfile = "/var/log/tapper-debug-".(getpwuid($<) || "unknown").".log"; return $outfile; }
log4Perl.appender.root.mode                       = append
log4perl.filter.resetter                          = Log::Log4perl::Filter::StringMatch
log4perl.filter.resetter.StringToMatch            = Tapper.MCP.Net.Reset
log4perl.filter.resetter.AcceptOnMatch            = false
log4perl.appender.root.Filter                     = resetter

log4perl.logger.Tapper.Reports.Receiver = DEBUG, ReportsReceiver
log4perl.appender.ReportsReceiver = Log::Log4perl::Appender::File
log4Perl.appender.ReportsReceiver.filename = sub { my $outfile = "/var/log/tapper_reports_receiver_daemon_".(getpwuid($<) || "unknown").".log";  return $outfile; }
log4perl.appender.ReportsReceiver.layout = PatternLayout
log4perl.appender.ReportsReceiver.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n

log4perl.logger.Tapper.MCP.Net.Reset = ALL, MCP
log4perl.appender.MCP = Log::Log4perl::Appender::File
log4Perl.appender.MCP.filename = sub { my $outfile = "/var/log/tapper_mcp_reset_".(getpwuid($<) || "unknown").".log";  return $outfile; }
log4perl.appender.MCP.layout = PatternLayout
log4perl.appender.MCP.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n


log4perl.logger.Tapper.MCP.MessageReceiver = ALL, MessageReceiver
log4perl.appender.MessageReceiver = Log::Log4perl::Appender::File
log4Perl.appender.MessageReceiver.filename = sub { my $outfile = "/var/log/tapper_message_receiver_daemon_".(getpwuid($<) || "unknown").".log";  return $outfile; }
log4perl.appender.MessageReceiver.layout = PatternLayout
log4perl.appender.MessageReceiver.layout.ConversionPattern = %d %p %c - %m in %F{2} (%L)%n