Changeset 400
- Timestamp:
- 03/14/06 20:38:10
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/plagger/lib/Plagger/Plugin/Filter/FeedBurnerPermalink.pm
r399 r400 8 8 $self, 9 9 'aggregator.entry.fixup' => \&fixup, 10 'update.entry.fixup' => \&filter, 10 11 ); 11 12 } … … 18 19 $args->{entry}->permalink($orig_link); 19 20 $context->log(info => "Permalink rewritten to $orig_link"); 21 } 22 } 23 24 sub filter { 25 my($self, $context, $args) = @_; 26 27 # RSS 2.0 SmartFeed 28 my $entry = $args->{entry}; 29 if ($entry->permalink =~ m!^http://feeds\.feedburner\.(com|jp)/!) { 30 $entry->permalink( $entry->id . "" ); # stringify guid 31 $context->log(info => "Permalink rewritten to " . $entry->permalink); 20 32 } 21 33 }
