Plagger::Plugin::Filter::AtomLinkRelated - Use link rel="related" as entry link

Plagger documentation Contained in the Plagger distribution.

Index

Code Index:

NAME

Top

Plagger::Plugin::Filter::AtomLinkRelated - Use link rel="related" as entry link

SYNOPSIS

Top

  - module: Filter::AtomLinkRelated

DESCRIPTION

Top

This plugin looks for Atom link elements with rel="related" relationship set. This way you can use original link defined in Social Bookmark atom feeds like http://b.hatena.ne.jp/miyagawa/atomfeed.

Note that this plugin only works with Plagger's own aggregator like Aggregator::Simple plugin, since Bloglines API doesn't return related links in its response data.

AUTHOR

Top

Tatsuhiko Miyagawa

SEE ALSO

Top

Plagger

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

use List::Util qw(first);

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

# Note: Bloglines doesn't return link rel="related" value in its API and we're doomed

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

    # Use Atom's link rel="related"
    if (my $orig_link = $args->{orig_feed}->format eq 'Atom') {
        my $rel = first { $_->rel eq 'related' } $args->{orig_entry}->{entry}->link; # XXX uses XML::Feed internal
        if ($rel) {
            $args->{entry}->link($rel->href);
            $context->log(info => "Link rewritten to " . $rel->href);
        }
    }
}

1;

__END__