diff options
Diffstat (limited to 'feeder.pl')
-rw-r--r-- | feeder.pl | 16 |
1 files changed, 14 insertions, 2 deletions
@@ -3,11 +3,23 @@ use strict; use warnings; use 5.016; use Feed; +use Log::Log4perl; -my $feed_class = Feed->with_traits('FixDateTime','Printer'); +Log::Log4perl::init(\<<'LOG'); +log4perl.rootLogger = TRACE, Screen +log4perl.appender.Screen = Log::Log4perl::Appender::Screen +log4perl.appender.Screen.stderr = 1 +log4perl.appender.Screen.layout = PatternLayout +log4perl.appender.Screen.layout.ConversionPattern = [%d{ISO8601}] (%c) %m{chomp}%n +LOG + +my $feed_class = Feed->with_traits('Printer','FixDateTime','DeDupe'); sub feed { my (%args) = @_; - my $feed = $feed_class->new(%args); + my $feed = $feed_class->new({ + dupe_dsn => 'dbi:SQLite:dbname=dedup.db', + %args, + }); $feed->process; } |