skip damaged posts

[engit/Iron-Munger.git] / lib / IronMunger / PlaggerLoader.pm

diff --git a/lib/IronMunger/PlaggerLoader.pm b/lib/IronMunger/PlaggerLoader.pm
index db50215..33db915 100644 (file)
--- a/lib/IronMunger/PlaggerLoader.pm
+++ b/lib/IronMunger/PlaggerLoader.pm
@@ -11,6 +11,7 @@ class IronMunger::PlaggerLoader {
   use IronMunger::CSVUtils qw(:all);
 
   use aliased 'IronMunger::Post';
+  use aliased 'IronMunger::Monger';
 
   use IO::All;
   use Text::CSV_XS;
@@ -45,13 +46,14 @@ class IronMunger::PlaggerLoader {
     while (my $post_raw = $csv->getline($io)) {
       my %post_spec;
       @post_spec{qw{url at}} = @{$post_raw}[@col_order{qw{url at}}];
+      next unless $post_spec{url} && $post_spec{at};
       push(@post_specs, \%post_spec);
     }
     return \@post_specs;
   }
 
   method _expand_monger (IO::All::File $file) {
-    my ($name, $nick) = name_and_nick_from_filename($file->name);
+    my ($name, $nick) = filename_to_name_and_nick(($file->splitpath)[-1]);
     Monger->new(
       (defined $name ? (name => $name) : ()),
       (defined $nick ? (nick => $nick) : ()),