今回殆ど他人様が作ったコードを利用させていただきましたが、既に利用して来た
場合はなんとか頑張ってできるものですが( もう期限はこえましたし )、今後使おう
と言う人にとって、どうなんでしょう。
で、あまり手を入れないで済む方法を使いましたので紹介しておきます。
【PHP用】Amazon アソシエイト Web サービスの名称変更および署名認証の期限が近づいて来たので
【Perl用】Amazon 署名認証をPerlでやる必要のある人向けの簡単なサンプルと配置方法
my %pkv;
$pkv{'Service'} = 'AWSECommerceService';
$pkv{'SubscriptionId'} = $SubscriptionId;
$pkv{'Operation'} = 'ItemLookup';
$pkv{'ResponseGroup'} = 'Large';
$pkv{'ItemId'} = $_POST{'ISBN'};
$pkv{"Timestamp"} = strftime("%Y-%m-%dT%H:%M:%SZ", gmtime);
my $pstr = join('&', map {"$_=".uri_escape($pkv{$_})} (sort keys %pkv));
my $data = "GET\nwebservices.amazon.co.jp\n/onca/xml\n$pstr";
my $key = "秘密のキー";
my $signature = hmac_sha256_base64($data, $key);
$signature .= '=' while length($signature) % 4;
$signature = URI::Escape::uri_escape($signature);
my $aurl = qq(http://webservices.amazon.co.jp/onca/xml?)
.qq($pstr&Signature=$signature);
関連する記事
Amazon の署名認証ってのがありまして・・・
|
|
