#!/usr/bin/perl -w

use strict;
use utf8;
use CGI;
use LWP::Simple;
use XML::Simple;

my $subid = "0FKHS4T7G9C54Z60PCG2";

my $cgi = CGI->new();

my $asinid = $cgi->param('asinid');
my $associateid = $cgi->param('associateid');
my $imgsize = $cgi->param('imgsize');
if ($imgsize eq '') {
  $imgsize = 2;
}

my $small = '';
my $medium = '';
my $large = '';
if ($imgsize == 1) {
  $small = 'checked';
}
elsif ($imgsize == 3) {
  $large = 'checked';
}
else {
  $medium = 'checked';
}

my $output = '';

if ($asinid ne '' && $associateid ne '') {
  my $responsegroup = "Small,Images,ItemAttributes,Reviews,Tracks,OfferFull";
  my $url = "http://webservices.amazon.co.jp/onca/xml?Service=AWSECommerceService&Operation=ItemLookup&Version=2005-03-23";
  $url .= "&SubscriptionId=$subid";
  $url .= "&ItemId=$asinid";
  $url .= "&ResponseGroup=$responsegroup";
  $url .= "&AssociateTag=$associateid";

  my $content = get($url);

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

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

  my $item = $response->{Items}->{Item};

  my $atag = "<a href=\"";
  $atag .= $item->{DetailPageURL};
  $atag .= "\">";

  if ($imgsize == 2) {
    $img = $atag . "<img src=\"" . $item->{MediumImage}->{URL} . "\" border=\"0\">" . "</a>";
    $imgwidth = $item->{MediumImage}->{Width}->{content};
  }
  elsif ($imgsize == 3) {
    $img = $atag . "<img src=\"" . $item->{LargeImage}->{URL} . "\" border=\"0\">" . "</a>";
    $imgwidth = $item->{LargeImage}->{Width}->{content};
  }
  else {
    $img = $atag . "<img src=\"" . $item->{SmallImage}->{URL} . "\" border=\"0\">" . "</a>";
    $imgwidth = $item->{SmallImage}->{Width}->{content};
  }
  $imgwidth += 10;

  my $outline = $atag;
  $outline .= $item->{ItemAttributes}->{Title};
  $outline .= "</a><br>";
  if ($group eq "Book") {
    if ($item->{ItemAttributes}->{Author}) {
      my $itemlist = '';
      if (ref($item->{ItemAttributes}->{Author}) eq 'ARRAY') {
        $itemlist = getitemlist(@{$item->{ItemAttributes}->{Author}});
      }
      else {
        $itemlist = $item->{ItemAttributes}->{Author};
      }
      if ($itemlist ne '') {
        $outline .= "著者：";
        $outline .= $itemlist;
        $outline .= "<br>";
      }
    }
  }
  if ($group eq "Music") {
    if ($item->{ItemAttributes}->{Artist}) {
      my $itemlist = '';
      if (ref($item->{ItemAttributes}->{Artist}) eq 'ARRAY') {
        $itemlist = getitemlist(@{$item->{ItemAttributes}->{Artist}});
      }
      else {
        $itemlist = $item->{ItemAttributes}->{Artist};
      }
      if ($itemlist ne '') {
        $outline .= "アーチスト：";
        $outline .= $itemlist;
        $outline .= "<br>";
      }
    }
  }
  if ($group eq "DVD") {
    if ($item->{ItemAttributes}->{Actor}) {
      my $itemlist = '';
      if (ref($item->{ItemAttributes}->{Actor}) eq 'ARRAY') {
        $itemlist = getitemlist(@{$item->{ItemAttributes}->{Actor}});
      }
      else {
        $itemlist = $item->{ItemAttributes}->{Actor};
      }
      if ($itemlist ne '') {
        $outline .= "出演：";
        $outline .= $itemlist;
        $outline .= "<br>";
      }
    }
    elsif ($item->{ItemAttributes}->{Artist}) {
      my $itemlist = '';
      if (ref($item->{ItemAttributes}->{Artist}) eq 'ARRAY') {
        $itemlist = getitemlist(@{$item->{ItemAttributes}->{Artist}});
      }
      else {
        $itemlist = $item->{ItemAttributes}->{Artist};
      }
      if ($itemlist ne '') {
        $outline .= "アーチスト：";
        $outline .= $itemlist;
        $outline .= "<br>";
      }
    }
    elsif ($item->{ItemAttributes}->{Creator}) {
      my @creators = @{$item->{ItemAttributes}->{Creator}};
      my $itemlist = '';
      foreach my $creator (@creators) {
        if ($itemlist ne '') {
          $itemlist .= ',';
        }
        $itemlist .= "$creator->{content}";
      }
      if ($itemlist ne '') {
        $outline .= "制作：";
        $outline .= $itemlist;
        $outline .= "<br>";
      }
    }
  }

  # 最新価格
  if ($item->{OfferSummary}->{LowestNewPrice}->{FormattedPrice}) {
    $outline .= "価格：";
    $outline .= $item->{OfferSummary}->{LowestNewPrice}->{FormattedPrice};
    $outline .= "<br>";
  }

  # 製造業者
  if ($item->{ItemAttributes}->{Manufacturer}) {
    $outline .= $item->{ItemAttributes}->{Manufacturer};
    $outline .= "<br>";
  }

  my $linkcode = <<"End_of_Temp";
<table border="0"><tr><td width="$imgwidth" valign="top" align="left">$img</td><td valign="top" align="left">$outline<br><a href="http://59bbs.org/amalink/amalink.cgi" target="_blank">by AmaLink</a></td></tr></table>
End_of_Temp

  $output = <<"End_of_Temp";
<b>プレビュー：</b><br>
$linkcode
<br>
<form name="linkform" action="#" onsubmit="return linksel()">
<b>商品リンク：</b><br>
<textarea name="linkcode" cols="60" rows="10" onfocus="this.select()">$linkcode</textarea><br>
<input type="submit" value="リンクの選択">
</form>
End_of_Temp
}

open(TEMPLATE, "<:utf8", "amalink.htmlt");
local($/) = undef;
my $template = <TEMPLATE>;
close(TEMPLATE);

$template =~ s/\$ASINID\$/$asinid/g;
$template =~ s/\$ASSOCIATEID\$/$associateid/g;
$template =~ s/\$SMALL\$/$small/g;
$template =~ s/\$MEDIUM\$/$medium/g;
$template =~ s/\$LARGE\$/$large/g;
$template =~ s/\$OUTPUT\$/$output/g;

my $temphtml =  <<"End_of_Temp";
Content-Type: text/html

$template
End_of_Temp

print $temphtml;

exit;

sub getitemlist {
	my @items = @_;
	my $itemlist = '';

    foreach my $item (@items) {
      if ($itemlist ne '') {
        $itemlist .= ',';
      }
      $itemlist .= $item;
    }

	return $itemlist;
}