[MovableType ]

輸入版CDも含めてAmazonウィッシュリストをblogに表示する

Amazonのウィッシュリストをblogに表示するのエントリで書いたスクリプトでもやはり輸入版CDの画像は表示されない。そこで輸入版CDでも画像を表示できるAmazonリンク生成スクリプトのエントリと同様の修正を加える。オリジナルのawl.plとの差分は下記の赤いところだ。

sub aws_detail {
    my ($ctx, $e) = @_;
    defined (my $detail = $ctx->stash("Detail")) or return '';
    if (ref $detail->{$e} eq 'ARRAY') {
        #return Jcode->new(join ", ", @{$detail->{$e}}, 'utf8')->utf8;
        return join ", ", @{$detail->{$e}};
    } else {
        if ($e =~ /(ImageUrlSmall|ImageUrlMedium|ImageUrlLarge)/) {
            my $imageUrl = $detail->{$e};
            if (!checkimage($imageUrl)) {
                $imageUrl =~ s/09/01/;
            }
            if (!checkimage($imageUrl)) {
                $imageUrl = "http://images-jp.amazon.com/images/G/09/".
                    "x-locale/detail/thumb-no-image.gif";
            }
            $detail->{$e} = $imageUrl;
        }

        # return $detail->{$e} . Jcode->new($detail->{$e},'utf8')->utf8 || '';
        return $detail->{$e} || '';
    }
}

use Image::Magick;
use LWP::Simple;
sub checkimage {
    my ($url) = @_;
    my $imagedata = get($url);
    my $image = Image::Magick->new;
    $image->BlobToImage($imagedata);
    if ($image->Get('width', 'height') == (1, 1)) {
        return 0;
    }
    return 1;
}

これでウィッシュリストにも輸入版CDが表示されるようになった。

blogにAmazonウィッシュリストを貼るようにしてから一月半ほど立ちますが、これはなかなかいいですよ。Amazonで気になる本やCDを見かけたら、メモする代わりにウィッシュリストに入れればいいんです。自分のblogは毎日目にするわけですから、忘れてしまうことがありません。毎日見るところにメモを書くってのは情報整理の基本のひとつですね。