[Bast-commits] r9572 - ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet

[idn at dev.catalyst.perl.org]

Author: idn
Date: 2010-06-03 11:18:47 +0100 (Thu, 03 Jun 2010)
New Revision: 9572

Modified:
   ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm
Log:
Adding some shotgun debugging.  Need to change this to Log::Contextual

Modified: ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm
===================================================================
--- ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-06-03 10:16:40 UTC (rev 9571)
+++ ironman/branches/mk-ii/Perlanet-IronMan/lib/Perlanet/IronMan.pm	2010-06-03 10:18:47 UTC (rev 9572)
@@ -130,23 +130,26 @@
               $xml_entry->modified($xml_entry->issued);
             }
 
-            #print(Dumper($xml_entry));
-
             # Always set category to something
             unless(defined($xml_entry->category)) {
                 $xml_entry->category('');
             }
 
+            #print(Dumper($xml_entry->tags));
+            #print(Dumper($xml_entry->category));
+
             # Filter on keywords.  This fails for HTML encoded languages.
             # See http://onperl.ru/onperl/atom.xml for examples
             # specifically http://onperl.ru/onperl/2010/02/post.html
             # FIXME
             unless($self->_filter_entry_on_keywords($xml_entry)) {
+                #print("Skipping due to no keyword match for '" . $xml_entry->link . "'\n");
                 next;
             }
 
             # De-duplicate
             unless($self->_filter_entry_for_duplicate($xml_entry)) {
+                #print("Skipping due to duplicate match for '" . $xml_entry->link . "'\n");
                 next;
             }