[log4perl-devel] a quick suggestion

[Christopher C. <Chr...@mu...>]

Mike , Kevin

I really like your Log::Log4perl::Appender::DBI  !

I have one small suggestion for the synopsis


Add
  Log::Log4perl::init ( \$config ) ;

  my $logger = Log::Log4perl->get_logger () ;

above

$logger->warn ($custid, 'big problem!!', $ip_addr);

It tripped me up


#!/usr/bin/env perl
use strict ;
use warnings ;

use Log::Log4perl;
use Log::Log4perl::Appender::DBI;

    my $config = q{
     log4j.category = WARN, DBAppndr, SCREEN
     log4j.appender.DBAppndr             = Log::Log4perl::Appender::DBI
     log4j.appender.DBAppndr.datasource  = DBI:mysql:APPLOG
     log4j.appender.DBAppndr.username    = logger
     log4j.appender.DBAppndr.password    = ready
     log4j.appender.DBAppndr.sql         = \
        insert into LOG           \
        (level, script, message) \
        values (?,?,?)
     log4j.appender.DBAppndr.params.1 = %p
     log4j.appender.DBAppndr.usePreparedStmt = 1
     #just pass through the array of message items in the log statement
     log4j.appender.DBAppndr.layout    = Log::Log4perl::Layout::NoopLayout
     log4j.appender.DBAppndr.warp_message = 0
     #driver attributes support
     log4j.appender.DBAppndr.attrs.f_encoding = utf8
     log4perl.appender.SCREEN           = Log::Log4perl::Appender::Screen
     log4perl.appender.SCREEN.stderr    = 0
     log4perl.appender.SCREEN.layout    = Log::Log4perl::Layout::PatternLayout
     log4perl.appender.SCREEN.layout.ConversionPattern = %d %p %m %n
    };

    Log::Log4perl::init ( \$config ) ;

    my $log = Log::Log4perl->get_logger () ;

    $log->warn( $0, 'big problem!!' );



[cid:image001.jpg@01D00FC5.B585E790]

Chris Collins
Programmer Analyst
Phone: 630-282-0361
Mobile: 630-247-6705



Address: 605 Territorial Dr. Bolingbrook, IL 60440



www.multipkg.com<http://www.multipkg.com/>