diff options
Diffstat (limited to 'feeder.pl')
-rw-r--r-- | feeder.pl | 24 |
1 files changed, 19 insertions, 5 deletions
@@ -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', +); |