summaryrefslogtreecommitdiff
path: root/feeder.pl
diff options
context:
space:
mode:
Diffstat (limited to 'feeder.pl')
-rw-r--r--feeder.pl16
1 files changed, 14 insertions, 2 deletions
diff --git a/feeder.pl b/feeder.pl
index 0b4dd72..5664d4c 100644
--- a/feeder.pl
+++ b/feeder.pl
@@ -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;
}