[Bast-commits] r8833 - ironman/Perlanet-IronMan/bin

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-02-28 21:07:35 +0000 (Sun, 28 Feb 2010)
New Revision: 8833

Modified:
   ironman/Perlanet-IronMan/bin/ironman-collector.pl
Log:
Removed incompatible alteration of the render call now that select_entries does the right thing in returning Perlanet::Entry objects with references to their Perlanet::Feed objects.  Added filtering!

Modified: ironman/Perlanet-IronMan/bin/ironman-collector.pl
===================================================================
--- ironman/Perlanet-IronMan/bin/ironman-collector.pl	2010-02-28 21:06:21 UTC (rev 8832)
+++ ironman/Perlanet-IronMan/bin/ironman-collector.pl	2010-02-28 21:07:35 UTC (rev 8833)
@@ -17,10 +17,13 @@
 $cfg->{agent} = "Perlanet";
 $cfg->{author}->{name} = "Perlanet";
 $cfg->{feed}->{format} = "RSS";
-$cfg->{entries} = 5;
+$cfg->{entries} = 10;
 
+$cfg->{filter}->{keywords} = ["cpan", "ironman", "perl"];
+
 # Database
 $cfg->{db}{dsn} = "dbi:SQLite:/var/www/ironboy.enlightenedperl.org/ironman/subscriptions.db";
+$cfg->{db}{dsn} = "dbi:SQLite:/var/www/ironboy.enlightenedperl.org/ironman/testsubscriptions.db";
 
 # Get me a Perlanet::IronMan thingy using our config from above
 my $p = Perlanet::IronMan->new( cfg => $cfg );
@@ -33,7 +36,7 @@
 $p->update_opml;
 
 # Get the list of feeds from the database
-print("Fetching feeds object\n");
+print("Fetching the Perlanet::Feed objects array\n");
 my $feeds_obj = $p->feeds;
 
 # Sample data:
@@ -52,9 +55,9 @@
 #print("Fetching the feed data\n");
 #my @feeds_data = $p->fetch_feeds( @{ $feeds_obj } );
 
-foreach my $feed ( @{ $feeds_obj } ) {
-    #print("Fetching posts from feed '" . $feed->url . "'\n");
-    my @feed_posts = $p->fetch_feeds( $feed );
+foreach my $feed_obj ( @{ $feeds_obj } ) {
+    #print("Fetching posts from feed '" . $feed_obj->url . "'\n");
+    my @feed_posts = $p->fetch_feeds( $feed_obj );
 
     #print(Dumper(@feed_posts));
     #exit;
@@ -68,7 +71,7 @@
 
     #print("Building a post object\n");
     my $post = $p->build_feed(@feed_posts);
-    $p->render($feed, $post);
+    $p->render($post);
 
 }