log4perl.logger = DEBUG, FD, S
log4perl.logger = INFO,  FI
log4perl.logger = ERROR, FE


log4perl.appender.S         = Log::Log4perl::Appender::Screen
log4perl.appender.S.stderr  = 0
log4perl.appender.S.layout = Log::Log4perl::Layout::SimpleLayout

log4perl.appender.FD=Log::Log4perl::Appender::File
log4perl.appender.FD.filename=/home/perl_logs/debug.log
log4perl.appender.FD.mode=append
log4perl.appender.FD.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.FD.layout.ConversionPattern = %d %p:  %m  %F{1}(%L) %n

log4perl.appender.FI=Log::Log4perl::Appender::File
log4perl.appender.FI.filename=
log4perl.appender.File.filename = \
	sub {my $p = $0; $p =~ s{(\w+)\.\w+$}{/home/perl_logs/$1.txt}; return $p;}
log4perl.appender.FI.mode=append
log4perl.appender.FI.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.FW.layout.ConversionPattern = %d %p --  %m %n


log4perl.appender.FE=Log::Log4perl::Appender::File
log4perl.appender.FE.filename=/home/perl_logs/fatal.log
log4perl.appender.FE.mode=append
log4perl.appender.FE.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.FE.layout.ConversionPattern = %d %p:  %m  %F{1}(%L) %n