#!/usr/bin/perl -w
use strict;
use LWP::Simple;
use XML::Simple;
use lib qw(./mdllib);
use Encode;

my $keyid = "[Access Key ID]";
my $associateid = "[アソシエイトID]";

my $asinid = shift @ARGV or die "Usage:perl amazonecs.pl <ASIN>";

my $responsegroup = "Small,Images,ItemAttributes,Tracks";
my $url ="http://webservices.amazon.co.jp/onca/xml?Service=AWSECommerceService&Operation=ItemLookup&Version=2005-03-23";
$url .= "&AWSAccessKeyId=$keyid";
$url .= "&ItemId=$asinid";
$url .= "&ResponseGroup=$responsegroup";
$url .= "&AssociateTag=$associateid";

my $content = get($url);
die "Could not retrieve $url" unless $content;

my $xmlsimple = XML::Simple->new();
my $response = $xmlsimple->XMLin($content);

my $group = $response->{Items}->{Item}->{ItemAttributes}->{ProductGroup};

my $atag = "<a href=\"";
$atag .= $response->{Items}->{Item}->{DetailPageURL};
$atag .= "\">";
my $img = $atag . "<img src=\"" . $response->{Items}->{Item}->{MediumImage}->{URL} . "\" border=\"0\">" . "</a>";
my $outline = $atag;
$outline .= $response->{Items}->{Item}->{ItemAttributes}->{Title};
$outline .= "</a><br>";
if ($group eq "Book") {
  $outline .= $response->{Items}->{Item}->{ItemAttributes}->{Author};
}
if ($group eq "Music") {
  $outline .= $response->{Items}->{Item}->{ItemAttributes}->{Artist};
}
if ($group eq "DVD") {
  if ($response->{Items}->{Item}->{ItemAttributes}->{Actor}) {
    $outline .= $response->{Items}->{Item}->{ItemAttributes}->{Actor};
  }
  else {
    $outline .= $response->{Items}->{Item}->{ItemAttributes}->{Artist};
  }
}
if ($response->{Items}->{Item}->{ItemAttributes}->{Manufacturer}) {
  $outline .= "<br>";
  $outline .= $response->{Items}->{Item}->{ItemAttributes}->{Manufacturer};
}
my $rslt = <<"End_of_Temp" ;
<table border="0" width="100%" cellpadding="3" cellspacing="0"><tr><td width="150" valign="top" align="left">$img</td><td valign="top" align="left">$outline</td><tr></table>
End_of_Temp

my $sjis = encode("shiftjis", $rslt);

print $sjis;