root/plagger/trunk/my-plugins/Filter-HatenaMobileGateway/HatenaMobileGateway.pm

package Plagger::Plugin::Filter::HatenaMobileGateway;
use warnings;
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) = @_;
    my $entry = $args->{entry};

    my $u = URI->new("http://mgw.hatena.ne.jp/?" . $entry->link);
    unless ($u) {
        $context->log(warn => "Can't generate new URI");
        return;
    }

    $entry->link($u);
    $context->log(info => "Modification of link of Entry succeeded on $u");
}

1;