diff options
| author | dakkar <dakkar@thenautilus.net> | 2012-12-09 14:08:58 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2012-12-09 14:08:58 +0000 |
| commit | bf238eb4266f4c61291b1816cafb4b322d9103e8 (patch) | |
| tree | 3238252b9041675cf61ab3a083e98b6d505cbdae /feeder.pl | |
| parent | de-duping (diff) | |
| download | feeder-bf238eb4266f4c61291b1816cafb4b322d9103e8.tar.gz feeder-bf238eb4266f4c61291b1816cafb4b322d9103e8.tar.bz2 feeder-bf238eb4266f4c61291b1816cafb4b322d9103e8.zip | |
extract author name for email address
Diffstat (limited to 'feeder.pl')
| -rw-r--r-- | feeder.pl | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -13,7 +13,13 @@ 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'); +my $feed_class = Feed->with_traits( + 'Printer', + 'FixDateTime', + 'DeDupe', + 'AuthorName', +); + sub feed { my (%args) = @_; my $feed = $feed_class->new({ @@ -25,3 +31,5 @@ sub feed { 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'); |