$log->info("Data directory: %s", $options->{'dir'});
####
my $spr = sub { my $fmt = shift; return sprintf $fmt, @_; };
##
##
my $conf = qq!
log4perl.rootLogger = TRACE, DBAppndr
log4perl.appender.DBAppndr = Log::Log4perl::Appender::DBI
log4perl.appender.DBAppndr.datasource = $dsn
log4perl.appender.DBAppndr.username = $db_user
log4perl.appender.DBAppndr.password = $db_passwd
log4perl.appender.DBAppndr.sql = INSERT INTO log (level, timestamp, method, line, message) VALUES (?,?,?,?,?)
log4perl.appender.DBAppndr.params.1 = %p
log4perl.appender.DBAppndr.params.2 = %d{yyyy-MM-dd HH:mm:ss.SSS}
log4perl.appender.DBAppndr.params.3 = %M
log4perl.appender.DBAppndr.params.4 = %L
log4perl.appender.DBAppndr.usePreparedStmt = 1
log4perl.appender.DBAppndr.layout = Log::Log4perl::Layout::NoopLayout
log4perl.appender.DBAppndr.warp_message = $spr
!;
Log::Log4perl::init( \$conf );