Plagger::Plugin::Filter::FeedBurnerPermalink - Fix FeedBurner's permalink

Plagger documentation Contained in the Plagger distribution.

Index

Code Index:

NAME

Top

Plagger::Plugin::Filter::FeedBurnerPermalink - Fix FeedBurner's permalink

SYNOPSIS

Top

  - module: Filter::FeedBurnerPermalink

DESCRIPTION

Top

Entries in FeedBurner feeds contain links to feedburner's URL redirector and that breaks some plugins like social bookmarks integration.

This plugin updates the $entry->permalink with guid value in FeedBurner's feed, so it actually points to the permalink, rather than redirector.

Note that $entry->link will still point to the redirector.

AUTHOR

Top

Masahiro Nagano

Tatsuhiko Miyagawa

SEE ALSO

Top

Plagger, http://www.feedburner.com/

Plagger documentation Contained in the Plagger distribution. 
package Plagger::Plugin::Filter::FeedBurnerPermalink;
use strict;
use base qw( Plagger::Plugin );

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'aggregator.entry.fixup' => \&fixup,
        'update.entry.fixup' => \&filter,
    );
}

sub fixup {
    my($self, $context, $args) = @_;

    my $fbns = 'http://rssnamespace.org/feedburner/ext/1.0';

    # RSS 1.0 & 2.0
    if ($args->{orig_entry}->isa('XML::Feed::Entry::RSS')) {
        if (my $orig_link = $args->{orig_entry}->{entry}->{$fbns}->{origLink}) {
            $args->{entry}->permalink($orig_link);
            $context->log(info => "Permalink rewritten to $orig_link");
        }
    }
    # Atom 1.0
    elsif ($args->{orig_entry}->isa('XML::Feed::Entry::Atom')) {
        my $ns = XML::Atom::Namespace->new(feedburner => $fbns);
        if (my $orig_link = $args->{orig_entry}->{entry}->get($ns, 'origLink')) {
            $args->{entry}->permalink($orig_link);
            $context->log(info => "Permalink rewritten to $orig_link");
        }
    }
}

sub filter {
    my($self, $context, $args) = @_;

    # RSS 2.0 SmartFeed
    my $entry = $args->{entry};
    if ($entry->permalink =~ m!^http://feeds\.feedburner\.(com|jp)/!) {
        $entry->permalink( $entry->id . "" ); # stringify guid
        $context->log(info => "Permalink rewritten to " . $entry->permalink);
    }
}

1;

__END__