#!/usr/bin/perl

##############メガチャレンジスクリプトの利用条件
#メガチャレンジは株式会社CNMの著作であり商品です。
#スクリプトの一部または全部を無断で転用転載することは認めておりません。
##############

sub itiran {

print "Content-type: text/html; charset=UTF-8\n\n";
print <<"EOF";
<html lang="ja">
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title>$p_title</title>
<meta name="description" content="$p_desc">
<meta name="keywords" content="$p_key">
</head>
<body bgcolor="#ffffff" TEXT="#333333" LINK="#3333cc">
<div align="center">

<TABLE border="0" cellpadding="10" width="800">
<TR><TD bgcolor="#00cc00">
<B><FONT color="#ffffff" size="4">$p_header</FONT></B>
</TD></TR>
<TR><TD>
<!--商品リストページ　検索フォーム-->
<form action="./" method="get">
<input type="hidden" name="mode" value="s">
商品を検索できます。<br>
指定ジャンル：<select name="genreId">
<option value="0"$gen0>すべての商品</option>
<option value="101240"$gen1>CD・DVD・楽器</option>
<option value="100804"$gen2>インテリア・寝具</option>
<option value="101164"$gen3>おもちゃ・ホビー・ゲーム</option>
<option value="100533"$gen4>キッズ・ベビー・マタニティ</option>
<option value="215783"$gen5>キッチン・日用品雑貨・文具</option>
<option value="216129"$gen6>ジュエリー・腕時計</option>
<option value="101070"$gen7>スポーツ・アウトドア</option>
<option value="100938"$gen8>ダイエット・健康・介護</option>
<option value="100316"$gen9>ドリンク・お酒</option>
<option value="100026"$gen10>パソコン・周辺機器</option>
<option value="216131"$gen11>バッグ・小物・ブランド雑貨</option>
<option value="100371"$gen12>ファッション・アパレル・靴</option>
<option value="100005"$gen13>花・園芸・エクステリア</option>
<option value="101213"$gen14>ペット・ペットグッズ</option>
<option value="211742"$gen15>家電・AV・カメラ</option>
<option value="101114"$gen16>車・バイク</option>
<option value="100227"$gen17>食品・スイーツ</option>
<option value="100939"$gen18>美容・コスメ・香水</option>
<option value="200162"$gen19>本・雑誌・コミック</option>
<option value="101381"$gen20>旅行・出張・チケット</option>
<option value="200163"$gen21>不動産・住まい</option>
<option value="101438"$gen22>サービス</option>
<option value="402853"$gen23>デジタルコンテンツ</option>
<option value="503190"$gen24>車用品・バイク用品</option>
</select>　商品キーワード <input type="text" name="keyword" value="$keyword" size="30">　
<input type="submit" value=" 検索 "></form>
<!--検索フォーム-->
EOF

if ($mode eq "s"){&s_pg;}
else {&pg;}


print <<"EOF";

<table width="800" border="0" cellspacing="0" cellpadding="0" style="margin: 5px 0pt 0pt 0px;">
<tr><td bgcolor="#afafaf">
<table width="800" border=0 cellspacing=1 cellpadding=5 style="font-size:12px;">
<tr align="center" style="background-color: #eeeeee;">
<td>写真</td>
<td>商品名</td>
<td>価格/ショップ</td>
</tr>
EOF


    # 変更不可
    foreach my $item ( @items ){
        if($item=~/<itemName>(.+)<\/itemName>/)         {$itemname=$1;}
        if($item=~/<itemPrice>(.+)<\/itemPrice>/)       {$itemprice = $1;}
        if($item=~/<itemCaption>(.+)<\/itemCaption>/)       {$itemcaption = $1;}
        if($item=~/<itemUrl>(.+)<\/itemUrl>/)           {$itemurl = $1;}
        if($item=~/<affiliateUrl>(.+)<\/affiliateUrl>/) {$affiliateurl = $1;}
        if($item=~/<smallImageUrl>(.+)<\/smallImageUrl>/){$smallimageurl = $1;}
        if($item=~/<mediumImageUrl>(.+)<\/mediumImageUrl>/){$mediumImageUrl = $1;}
        if($item=~/<shopName>(.+)<\/shopName>/)         {$shopname =$1;}
        if($item=~/<shopUrl>(.+)<\/shopUrl>/)           {$shopurl =$1;} 
        if($item=~/<itemCode>(.+)<\/itemCode>/)           {$itemCode =$1;} 
    # 変更不可

print <<"EOF";
<tr style="background-color: #ffffff;">
<td  align="center">
<a href="./?itemCode=$itemCode"><img src="$mediumImageUrl" border="0"></a>
</td>
<td align="left"><a href="./?itemCode=$itemCode">$itemname</a></td>
<td align="right">$itemprice 円<br></td>
</tr>
EOF
}

print <<"EOF";
</table>
</td></tr></table>
<BR>
商品名をクリックすると商品詳細ページへ移動します。
<p align="right"><a href="./">TOPへ</a></p>
</TD></TR>
<TR><TD align="center">
$p_footer
</TD></TR>
</TABLE>

<p>
<!-- Rakuten Web Services -->
<a href="http://webservice.rakuten.co.jp/" target="_blank"><img src="http://webservice.rakuten.co.jp/img/credit/200709/credit_4936.gif" border="0" alt="楽天ウェブサービスセンター" title="楽天ウェブサービスセンター" width="49" height="36"/></a>
<!-- Rakuten Web Services -->
</p>

</div>
</body>
</html>
EOF

}




1;

