[log4perl-devel] need some help with using Log::Log4perl

[Ron R. <ron...@gm...>]

All,

I am attempting my first testing of this module to understand how I can use it.

Here is my test Perl program:


use strict;
use warnings;

use Log::Log4perl qw/get_logger :levels/;

use FindBin qw/$Bin/;
use vars qw/$logger/;

BEGIN
{
  Log::Log4perl->init(sprintf("%s/../cfg/oracle_logger.config", $FindBin::Bin));
  $logger = Log::Log4perl->get_logger($0);
  $logger->info("starting");
}

$logger->debug("attempting start");

END
{
  $logger->info("end") if $logger;
}

Here is my config file:

log4perl.logger.test = INFO, test_app
log4perl.logger.test = WARN, test_app
log4perl.logger.test = DEBUG, test_app
log4perl.logger.test = ERROR, test_app
log4perl.logger.test = FATAL, test_app
log4perl.appender.test_app          = Log::Log4perl::Appender::File
log4perl.appender.test_app.mode     = append        
log4perl.appender.test_app.filename = ../logs/test.log
log4perl.appender.test_app.layout   = Log::Log4perl::Layout::PatternLayout
log4perl.appender.test_app.layout.ConversionPattern = %d %p: %F{1}:%L
%c %M - %m%n


What happens here is the log file gets created, but nothing is written
to it.  I have read the "tutorial" from the O'Reilly site, but I
cannot figure this out.

Thanks for your help.
-- 
Ron Reidy
Oracle DBA