de-duping

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;
 }