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/>
------------------------------------------------------------------------------
Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
from Actuate! Instantly Supercharge Your Business Reports and Dashboards
with Interactivity, Sharing, Native Excel Exports, App Integration & more
Get technology previously reserved for billion-dollar corporations, FREE
http://pubads.g.doubleclick.net/gampad/clk?id=164703151&iu=/4140/ostg.clktrk
_______________________________________________
log4perl-devel mailing list
log4perl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/log4perl-devel
