#!/usr/local/bin/perl
#----------------------------------------------------------------------------------
#	rakuten itemsearch sample
#----------------------------------------------------------------------------------

use LWP::Simple;
use XML::Simple;
use CGI;
use Encode qw/from_to/;

$q = new CGI;
my $keyword = $q->param('keyword');

#----------------------------------------------------------------------------------

$cginame="./itemsearch.cgi";
$TITLE	= "楽天商品検索APIサンプル";

# 楽天ウェブサービス
my $base_url	= "http://api.rakuten.co.jp/rws/1.7/rest";
my $developerId = '7998c49bf287e10a22bb44f3b3a3b0b2';
my $operation	= 'ItemSearch';
my $affiliateId	= '055e513c.82654366.055e513d.27abd89d';
my $version		= '2007-04-11';
my $hits		= 30;


if(!$keyword){
	$keyword = '肉';
}

my $req_url = "$base_url?developerId=$developerId&operation=$operation&affiliateId=$affiliateId&version=$version&hits=$hits&keyword=$keyword";

#----------------------------------------------------------------------------------


#get xml
my $response = get($req_url);
my $xmlsimple = XML::Simple->new();
my $xml = $xmlsimple->XMLin($response, 	ForceArray=>['Item']);

my $out='';

#総検索数
my $totalresult = $xml->{Body}->{'itemSearch:ItemSearch'}->{count};

#何件目から
my $firstResultPosition = $xml->{Body}{'itemSearch:ItemSearch'}{first};
#何件目まで
my $last_ResultPosition = $xml->{Body}{'itemSearch:ItemSearch'}{last};

#ページ
my $cur_page = $xml->{Body}{'itemSearch:ItemSearch'}{page};
#1度に返却する商品数
my $cur_hits = $xml->{Body}{'itemSearch:ItemSearch'}{hits};

my $result = "検索結果 : $totalresult 件中 $firstResultPosition - $last_ResultPosition 件<br><br>\n";

$out .=<<"EOF";
<table border="1">
<th>商品コード<br>商品名</th>
<th>商品価格</th>
EOF

#<th>商品説明文</th>

$out .=<<"EOF";
<th>商品URL<br>/<br>アフィリエイトURL</th>
<th>商品画像有無フラグ</th>
<th>商品画像 64x64URL<br>商品画像 128x128URL</th>
<th>販売可能フラグ</th>
<th>消費税フラグ</th>
<th>送料フラグ</th>
<th>クレジットカード利用可能フラグ</th>
<th>ショップオブザイヤーフラグ</th>
<th>アフィリエイト利用利率</th>
<th>店舗名<br>レビュー件数<br>レビュー平均<br>タイムセール<br>販売開始時刻<br>販売終了時刻<br>店舗コード<br>ジャンルID</th>
EOF

foreach my $result (@{$xml->{Body}{'itemSearch:ItemSearch'}{Items}{Item}}) {
	$result_count++;
	my $itemName			= $result->{itemName};
	my $itemCode			= $result->{itemCode};
	my $itemPrice			= $result->{itemPrice};
	my $itemCaption			= $result->{itemCaption};
	my $itemUrl				= $result->{itemUrl};
	my $affiliateUrl		= $result->{affiliateUrl};
	my $imageFlag			= $result->{imageFlag};
	my $smallImageUrl		= $result->{smallImageUrl};
	my $mediumImageUrl		= $result->{mediumImageUrl};
	my $availability		= $result->{availability};
	my $taxFlag				= $result->{taxFlag};
	my $postageFlag			= $result->{postageFlag};
	my $creditCardFlag		= $result->{creditCardFlag};
	my $shopOfTheYearFlag	= $result->{shopOfTheYearFlag};
	my $affiliateRate		= $result->{affiliateRate};
	my $startTime			= (ref $result->{startTime}) ? '' : $result->{startTime};
	my $endTime				= (ref $result->{endTime}) ? '' : $result->{endTime};
	my $reviewCount			= $result->{reviewCount};
	my $reviewAverage		= $result->{reviewAverage};
	my $shopName			= $result->{shopName};
	my $shopCode			= $result->{shopCode};
	my $shopUrl				= $result->{shopUrl};
	my $genreId				= $result->{genreId};

	#utf8フラグ外し
	utf8::encode($itemName			);
	utf8::encode($itemCode			);
	utf8::encode($itemPrice			);
	utf8::encode($itemCaption		);
	utf8::encode($itemUrl			);
	utf8::encode($affiliateUrl		);
	utf8::encode($imageFlag			);
	utf8::encode($smallImageUrl		);
	utf8::encode($mediumImageUrl	);
	utf8::encode($availability		);
	utf8::encode($taxFlag			);
	utf8::encode($postageFlag		);
	utf8::encode($creditCardFlag	);
	utf8::encode($shopOfTheYearFlag	);
	utf8::encode($affiliateRate		);
	utf8::encode($startTime			);
	utf8::encode($endTime			);
	utf8::encode($reviewCount		);
	utf8::encode($reviewAverage		);
	utf8::encode($shopName			);
	utf8::encode($shopCode			);
	utf8::encode($shopUrl			);
	utf8::encode($genreId			);


$out .=<<"EOF";
<tr>
<td >$itemCode<br><a href="$affiliateUrl">$itemName</a></td>
<td nowrap>$itemPrice</td>
EOF

#<td>$itemCaption</td>

$out .=<<"EOF";
<td nowrap align=center><a href="$itemUrl">商品URL</a><br>/<br><a href="$affiliateUrl">アフィURL</a></td>
<td nowrap>$imageFlag</td>
<td nowrap><a href=$affiliateUrl><img src="$smallImageUrl"><br><br><img src="$mediumImageUrl"></a></td>
<td nowrap>$availability</td>
<td nowrap>$taxFlag</td>
<td nowrap>$postageFlag</td-
<td nowrap>$creditCardFlag</td>
<td nowrap>$shopOfTheYearFlag</td>
<td nowrap>$affiliateRate</td>
<td nowrap><a href=$shopUrl target=_blank>$shopName</a><br>$reviewCount<br>$reviewAverage<br>$startTime<br>～<br>$endTime<br>$shopCode<br>$genreId</td>
</tr>
EOF
}

$out .=<<"EOF";
	</table>
</div>
EOF


print <<"EOF";
Content-Type: text/html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content=\"text/html; charset=utf-8" />
<meta name="robots" content="noarchive">
<title>$query - $TITLE</title>
</head>
<body>
楽天商品検索APIサンプル
<form method=get action="$cginame">
キーワード：<input type=text name=keyword size="40" maxlength="256" value="$keyword"><input type=submit value="商品検索" >
</form>
<hr size=1>
$result
$out
</body>
</html>
EOF