YOUTUBEコマンドができたことが嬉しくて、ついついamazonの個別商品リンクを作るコマンドも作ってしまった。

package HNS::Hnf::Command::ASIN;
use vars qw(@ISA $Template $EndTemplate $NumAttr $IsOneline $AllowCommands
	    $IsBeginSection $CountName $OmittableEnd);
@ISA = qw(HNS::Hnf::Command::Decoration);
$Template = qq(
<div class="amazon">
<iframe src="http://rcm-jp.amazon.co.jp/e/cm?t=kitsune-22&o=9&p=8&l=as1&asins=%1&fc1=000000&IS2=1&lt1=_blank&lc1=0000FF&bc1=000000&bg1=FFFFFF&f=ifr" style="width:120px;height:240px;" scrolling="no" marginwidth="0" marginheight="0" frameborder="0"></iframe>
</div>
);
$NumAttr = 1;

中身はほとんどおんなじ。kitsune-22んとこは自分のアフィリエイトIDに書き換えてね(といっても今時HNS使ってる人なんてなかなかいないだろうけど……)。

(@574)