日記
書影リンク拡張Edit

Amazon.co.jpのアソシエイトプログラムには、書影付きリンクの方法が用意されていることに今さらながらに気がついたので、hnsを強引に拡張して書影付きリンクに対応させてみた。相変わらずhns(というか、PerlっぽいPerlプログラム)がよくわかっていないので、実装方法がかなり強引かもしれない。具体的にどうやったのかというと、

  • theme.phの「package HNS::Hnf::Command::IMG」部に、「$TemplateWithISBN=qw(<a href="http://www.amazon.co.jp/exec/obidos/ASIN/%2/my-associate-id"><img %align src="http://images.amazon.com//wp-content/P/%2.09.MZZZZZZZ.jpg" alt="%content" border="0">)」というのを追加
  • Command.pmの「package HNS::Hnf::Command::IMG」のTemplateに「use vars qw($TemplateNosize $TemplateWithsize $TemplateWithISBN);」を追加。
  • Command.pmの「package HNS::Hnf::Command::IMG」のsub AsHTMLで、Templateを切り変えているif文の冒頭に

    if ($src =~ /^isbn:/i ){
    $Template = $TemplateWithISBN;
    $src=~s/^isbn://i;
    $self->{attr}->[2]=$src;
    }
    elsif ……
    
    を追加

って感じ。これで「IMG n ISBN:4344402146」なんてやると、

Published At2002-04-25 00:00Updated At2002-04-25 00:00