SweetPotato::Plagger このページをアンテナに追加 RSSフィード

2007-07-21

[] Filter::AbsolutizeEntryIcon  Filter::AbsolutizeEntryIcon - SweetPotato::Plagger を含むブックマーク はてなブックマーク -  Filter::AbsolutizeEntryIcon - SweetPotato::Plagger  Filter::AbsolutizeEntryIcon - SweetPotato::Plagger のブックマークコメント

Filter::AbsolutizeEntryLinkのアイコン版。エントリのアイコンURLが相対URLならば,それをエントリのURLでもって絶対化する。

Plagger/Plugin/Filter/AbsolutizeEntryIcon.pm

package Plagger::Plugin::Filter::AbsolutizeEntryIcon;
use strict;
use base qw( Plagger::Plugin );

use URI;

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

sub filter {
    my ($self, $context, $args) = @_;
    return unless $args->{entry}->icon
               && $args->{entry}->icon->{url}
               && $args->{entry}->icon->{url} !~ m!^https?://!;
    $args->{entry}->icon({url => URI->new_abs($args->{entry}->icon->{url}, $args->{entry}->link)});
}

1;

関連

トラックバック - http://plagger.g.hatena.ne.jp/SweetPotato/20070721