maildir publisher

1 files changed, 19 insertions, 5 deletions

diff --git a/feeder.pl b/feeder.pl
index 8a96805..e0bd7ba 100644
--- a/feeder.pl
+++ b/feeder.pl
@@ -14,7 +14,7 @@ log4perl.appender.Screen.layout.ConversionPattern = [%d{ISO8601}] (%c) %m{chomp}
 LOG
 
 my $feed_class = Feed->with_traits(
-    'Printer',
+    'MailDir',
     'FixDateTime',
     'DeDupe',
     'AuthorName',
@@ -24,12 +24,26 @@ sub feed {
     my (%args) = @_;
     my $feed = $feed_class->new({
         dupe_dsn => 'dbi:SQLite:dbname=dedup.db',
+        maildir_base => 'maildir',
         %args,
     });
     $feed->process;
 }
 
-feed(uri=>'http://www.gentoo.org/rdf/en/gentoo-news.rdf');
-feed(uri=>'http://feeds2.feedburner.com/sydneypadua/yBZX');
-feed(uri=>'http://oglaf.com/feeds/rss/');
-feed(uri=>'http://feeds.gawker.com/io9/full');
+feed(
+    uri=>'http://www.gentoo.org/rdf/en/gentoo-news.rdf',
+    mail_folders => 'Gentoo',
+);
+feed(
+    uri=>'http://feeds2.feedburner.com/sydneypadua/yBZX',
+    mail_folders => 'Fun',
+);
+feed(
+    uri=>'http://oglaf.com/feeds/rss/',
+    title=>'Oglaf',
+    mail_folders => 'Fun',
+);
+feed(
+    uri=>'http://feeds.gawker.com/io9/full',
+    mail_folders => 'Weblogs',
+);