[dw-free] Add more logging to the comment importer.

[mark]

[commit: http://hg.dwscoalition.org/dw-free/rev/771de5b62ea0]

Add more logging to the comment importer.

Patch by mark.

Files modified:

• cgi-bin/DW/Worker/ContentImporter/LiveJournal/Comments.pm

--------------------------------------------------------------------------------
diff -r a494ebe898f7 -r 771de5b62ea0 cgi-bin/DW/Worker/ContentImporter/LiveJournal/Comments.pm
--- a/cgi-bin/DW/Worker/ContentImporter/LiveJournal/Comments.pm	Sun May 17 17:33:33 2009 +0000
+++ b/cgi-bin/DW/Worker/ContentImporter/LiveJournal/Comments.pm	Sun May 17 17:44:18 2009 +0000
@@ -101,10 +101,12 @@ sub try_work {
 
     # now backfill into jitemid_map
     my $jitemid_map = {};
+    $log->( 'Filtering parameters: hostname=[%s], username=[%s].', $data->{hostname}, $data->{username} );
     foreach my $url ( keys %$entry_map ) {
         # this works, see the Entries importer for more information
         my $turl = $url;
         $turl =~ s/-/_/g; # makes \b work below
+        $log->( 'Filtering entry URL: %s', $turl );
         next unless $turl =~ /\Q$data->{hostname}\E/ &&
                     $turl =~ /\b$data->{username}\b/;
 
@@ -123,6 +125,7 @@ sub try_work {
         # this works, see the Entries importer for more information
         my $turl = $url;
         $turl =~ s/-/_/g; # makes \b work below
+        $log->( 'Filtering comment URL: %s', $turl );
         next unless $turl =~ /\Q$data->{hostname}\E/ &&
                     $turl =~ /\b$data->{username}\b/;
 
--------------------------------------------------------------------------------