From f4c31024fc3dd0210ce8821e8b63d9f411828c3f Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 9 Dec 2012 13:45:17 +0000
Subject: de-duping

---
 feeder.pl | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'feeder.pl')

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;
 }
 
-- 
cgit v1.2.3