Plagger野良プラグイン作成

Plagger::Plugin::Filter::ImageResizeなるものを作った。
利用用途としては携帯のパケット量が気になる方や
androidなどの端末でリサイズする時に時間が気になる方向け。



私は画像入りfeedなどをgmailのようにメールで読む時
大きなサイズの画像などはリサイズ処理がかかるが
この処理時間がちとイライラしていたので
なんとかならないかといろいろサイトを見ていた。

昔にだれか公開していたと思うのだが
いくら探してもなかなか出てこないため作ってみた。

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

use Image::Magick;

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

sub init {
    my $self = shift;
    $self->SUPER::init(@_);

    $self->conf->{width} or Plagger->context->error("config 'width' is not set.");
}

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

    my $conf_width = $self->conf->{width};

    for my $enclosure ($args->{entry}->enclosures) {
        my $image = Image::Magick->new;
        my $local_path = $enclosure->local_path;
        unless ($local_path) {
            $context->log(warn => "\$enclosure->local_path is not set. You need to load Filter::FetchEnclosure to use this plugin.");
            return;
        }
        $context->log(debug => "Load Image $local_path...");
        $image->Read($local_path);
        my $org_local_image_size = $image->Get('width') ;
        $context->log(debug => "Image Size $org_local_image_size");
        $context->log(debug => "Resize Size $conf_width");
        if ($org_local_image_size > $conf_width){
            $context->log(debug => "Image Width Bigger...");
            $image->Scale(geometry=>$conf_width);
            $image->Write($local_path);
        }
        undef $image;
    }
}

1;

でyaml的にはこんな感じ。

  - module: Filter::ImageResize
    config:
      width: 280

とりあえず適当なPluginをパクッてます。

基本的に"見る向き"の横幅を基本にするため
そこしか設定する箇所がありません。

ソース読んで頂ければわかると思うけど
ImageMagickとImageMagick-perlが必要。

LogLevelをdebugにすると詳細な動きが出てきます。

他にも"画質を落とす"などもできると思いますが
取り合えず自分的には満足したので
必要な方はご自身で追加してみてください。

久々に組んでみたら結構時間がかかってしまった。
もう年かなぁ。