6月 15

aws.pl

Tag: MovableType — TOSHI @ 14:50:11

とりあえずtDiaryでやってたお買い物リスト用に、simple amazon log: aws.pl – MT plugin for Amazon webservicesを導入することは、MTを入れる当初から考えてたので、早速実行。

amazonのデベロッパーズトークンを取得(返事メールがspam逝きになったのはともかく)の後、スクリプトにready for the blue: Amazon Web Servicesに変更ありとperl5.8用にのまのしわざ: MT plug-in開発の勉強（aws.plの修正）での修正を加えてこんな感じ。

— aws.pl.orig Sat Aug 16 01:25:08 2003
+++ aws.pl Tue Jun 15 14:36:38 2004
@@ -13,8 +13,8 @@
 
 
 my %config;
-$config{"dev-t"} = '';
-$config{associate_id} = 'dh0dc-22';
+$config{"dev-t"} = '(デベロパーズトークンID)';
+$config{associate_id} = '(アソシエイトID)';
 $config{locale} = 'jp';
 
 my @aws_tags = (
@@ -90,7 +90,7 @@
     } else {
  return $ctx->error("No search method and/or query");
     }
-    my $url = 'http://xml.amazon.com/onca/xml3?';
+    my $url = 'http://xml.amazon.co.jp/onca/xml3?';
 
     my @query;
 
@@ -145,13 +145,13 @@
         
         defined(my $out = $builder->build($ctx, $tokens))
      or return $ctx->error($ctx->errstr);
-        $res .= sprintf($out);
+        $res .= $out;
         if ($q{lastn}>0) { $q{lastn}–; }
         last if ($q{lastn} == 0);
     }
-    if ($charset ne 'utf8') { $res = Jcode->new($res, 'utf8')->$charset(); }
+    $res = Jcode->new($res, 'utf8')->$charset();
 
-    sprintf($res);
+    return $res;
 }
 
 sub utf2entity {

で、後はbodyでaws.plのタグをエントリーできるように、Process Tags plugin :: Kalsey Consulting Groupを導入。実際は、Webに書いてあるとおりに展開されたファイルを置いて、各テンプレートの<$MTEntryBody$>を<$MTEntryBody process_tags=”1″$>に。

（さらに追記)
ここまでやっといてなんだけど、XSLTでやる方法にしたのでこのあたりの設定は全部消去(笑)
aws.plの設定の参考にはなると想うのでエントリーはこのまま残しますが。

コメントをどうぞ