Re: [log4perl-devel] a quick suggestion
On Thu, 4 Dec 2014, Christopher Collins wrote:
I have one small suggestion for the synopsis
Makes perfect sense, I've added it:
https://github.com/mschilli/log4perl/commit/953797d4bf330f34ca2628a7c24629c330d2f5b6
Thanks for your suggestion!
--
-- Mike
Mike Schilli
m...@perlmeister.com
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:391340D9-4168-4ECC-B9D2-999681BA1C55@lan
Chris Collins
Programmer Analyst
Phone: 630-282-0361
Mobile: 630-247-6705
Address: 605 Territorial Dr. Bolingbrook, IL 60440
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=164703151iu=/4140/ostg.clktrk___
log4perl-devel mailing list
log4perl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/log4perl-devel
[log4perl-devel] a quick suggestion
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.comhttp://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=164703151iu=/4140/ostg.clktrk___
log4perl-devel mailing list
log4perl-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/log4perl-devel
