Patch by mark.
diffs (24 lines):
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/;
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog