#!/usr/bin/perl
#
#-----------------------------------------------------------------------
#《　単一列スキン用　》
#自動更新型　大・中規模アフィリエイトサイト作成エンジン（楽天版）
#　中山正男
#　作成：２００６年０４月２０日
##------------------------------------------------------------------------
use LWP::Simple;
use Unicode::Japanese;
$s = new Unicode::Japanese;

use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
$CGI::POST_MAX=1024 * 100;  # max 100K posts
$CGI::DISABLE_UPLOADS = 1;  # no uploads
use LWP::UserAgent; 
use HTTP::Request; 

#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
my @w_html = ();
my $work1 = "";
my $work2 = "";
my $work5 = "";
my @w_html1 = ();
my @w_html2 = ();
my $image = "";
my $link  = "";
my $product = "";
my $price = "";
my $shop = "";
my $shopnm = "";
my $totalpage = "";
my $totaln = "";
my $tax    = "";
my $subdomeinurl = "http://bonsai.forestshop.net";
my $dir = "bonsai.forestshop.net";
my $l = "";
my $ll = "";
#-------------------------------------------------------------------------------
# 初期設定ファイル読み込み

my $init_idx = 0;
my @init_data = ();
open (IN, "./../init.env");

while(<IN>){
	my $line = $_;
	chop($line);
	$init_data [$init_idx] = $line;
	$init_idx = $init_idx + 1;
}
my %init = ($init_data[0], $init_data[1], $init_data[2], $init_data[3], $init_data[4], $init_data[5], $init_data[6], $init_data[7], $init_data[8], $init_data[9], $init_data[10], $init_data[11], $init_data[12], $init_data[13], $init_data[14], $init_data[15], $init_data[16], $init_data[17], $init_data[18], $init_data[19], $init_data[20], $init_data[21], $init_data[22], $init_data[23], $init_data[24], $init_data[25], $init_data[26], $init_data[27], $init_data[28], $init_data[29], $init_data[30], $init_data[31], $init_data[32], $init_data[33]);
close(IN);

my $user_id    = $init{"＊user_id"};#A8商品リンクID
my $user_id2   = $init{"＊user_id2"};#A8画像リンクID
my $rakuten    = $init{"＊rakuten"};
my $sitename   = $init{"＊sitename"};
my $koukoku    = $init{"＊koukoku"};
my $maxcate    = $init{"＊maxcate"};
my $catemn     = $init{"＊catemn"};
my $catetn     = $init{"＊catetn"};
my $cssname    = $init{"＊cssname"};
my $csskbn     = $init{"＊csskbn"};
my $engnurl    = $init{"＊engnurl"};
my $skinocr    = $init{"＊skinocr"};
my $minkakaku  = $init{"＊minkakaku"};
my $maxkakaku  = $init{"＊maxkakaku"};
my $sitepolicy = $init{"＊sitepolicy"};
my $kword      = $init{"＊skey"};
my $jword      = $init{"＊jkey"};

$sword = $kword;
$sword =~ s/([^\w ])/"%" . unpack("H2", $1)/eg;
$sword =~ tr/ /+/;

$jjword = $jword;
$jjword =~ s/([^\w ])/"%" . unpack("H2", $1)/eg;
$jjword =~ tr/ /+/;
$jjjword = $jjword;
$jjjword =~ tr/a-z/A-Z/;

#--------------------------------------------------------
#問い合わせオブジェク作成
my $q = new CGI;

#--------------------------------------------------------
#ＰＯＳＴデータ取得
my $page  = $q->param('page');
my $cateban  = $q->param('cate');
my $value =  $q->param('value');
my $catebanurl = $cateban;
my $rankquery = $cateban;

#-------------------------------------------------------------------------------
my @html_temp = ();
my $page_link = "";
my $html_data = "";
my $taisyogai = "0";
my $ctg_file  = "";
my $ctg_idx   = 0;
my @ctg_hd    = ();
my @ctg_bd    = ();
my $data      = "";
my $color_flg = "";
my $itemerror = "この商品の詳しい説明は、詳細ページをご覧下さい。";
my @html_temp = ();

#-------------------------------------------------------------------------------
#　クエリURLのセット
$url = "http://ecustom.listing.rakuten.co.jp/rms/sd/ecustom/mall"
	."?aid=".$user_id
	."&g=".$cateban
	."&v=2"
	."&s=".$value
	."&sub=1"
	."&min=".$minkakaku
	."&max=".$maxkakaku
	."&f=A"
	."&sw=".$sword
	."&nw=".$jjword
	."&p=".$page;

#?cl=
#&nm=
#&bk=
#&hd=
#&aid=楽天ID
#&sg=
#&g=カテゴリ番号
#&v=写真付き一覧2 | 写真なし一覧1 | ウィンドウショッピング3
#&p=ページ数
#&s=価格が安い2 | 価格が高い1 | 新着順5
#&sub=すべて0 | 買い物可能1 | 共同購入2 | スーパーオークション3
#&min=価格指定
#&max=
#&f=Aをすべて含む Oのいずれかを含む
#&sf=1商品名、商品番号で探す
#&sw=検索文字
#&nw=除外文字

#--------------------------------------------------------
#クエリ送信・データ取得
my $content = get $url;

#--------------------------------------------------------
# 大きく分割
	@w_html = split(/<\!--ページ送り-->/,$content);

#--------------------------------------------------------
# 総件数以降を疎開
	$work = $w_html[1];
	@w_html1 = ();
	@w_html1 = split(/<font size=\"-1\">/,$work);
	@w_html1 = split(/ \(全/,$w_html1[1]);
	$firstpage = $w_html1[0];

#--------------------------------------------------------
# 全件数取得その１
	$work = $w_html[1];
	@w_html = ();
	@w_html = split(/\(全 /,$work);

#--------------------------------------------------------
# 全件数取得その２
	$work = $w_html[1];
	@w_html = ();
	@w_html = split(/件\) /,$work);
	$totaln = "";
	$totaln = $w_html[0];

#--------------------------------------------------------
# ページ数算出

	$totaln    =~ s/,//g;
if ($totaln == 30){
	$totalpage = 1;
}
elsif ($totaln == 0)
{
	$totaln = 0;
	$totalpage = 0;
}
elsif ($totaln % 30 == 0)
{
	$totalpage = int($totaln / 30);
}

else
{
	$totalpage = int($totaln / 30 + 1);
}

#--------------------------------------------------------
# 大きく分割
@html = split(/<\!-- begin -->/,$content);
@html = split(/<\!-- end -->/,$html[1]);

#--------------------------------------------------------
# カテゴリ番号へ分割
@html1 = split(/=&g=/,$html[0]);

#@html1 = ();
#--------------------------------------------------------
# カテゴリ名へ分割
@html2 = split(/nw=$jjjword\">/,$html[0]);

#--------------------------------------------------------
# 件数へ分割
@html5 = split(/<\/a>/,$html[0]);

#--------------------------------------------------------
# カテゴリタイトルへ分割
@html7 = split(/down.gif/,$html[0]);
@html7 = split(/\">/,$html7[1]);
@html7 = split(/<\/font>/,$html7[3]);
my $catetitle = $html7[0];

my $values = "";
my $narabi = "";
$values .= "<div class=\"total\">";
if ($value eq "2") {
$values .= "<span class=\"bold\">価格が安い</span> | ";
$narabi = "価格が安い順";
}else {
$values .= "<a href=\"$subdomeinurl/kt$catebanurl/value2/index1.html\">価格が安い</a> | ";
}#$subdomeinurl/kt$catebanurl/value2/index1.html  $engnurl/$dir/index.cgi?cate=$catebanurl&value=2&page=1
if ($value eq "1") {
$values .= "<span class=\"bold\">価格が高い</span> | ";
$narabi = "価格が高い順";
}else {
$values .= "<a href=\"$subdomeinurl/kt$catebanurl/value1/index1.html\">価格が高い</a> | ";
}#$subdomeinurl/kt$catebanurl/value1/index1.html  $engnurl/$dir/index.cgi?cate=$catebanurl&value=1&page=1
if ($value eq "5") {
$values .= "<span class=\"bold\">新着順</span>";
$narabi = "新着順";
}else {
$values .= "<a href=\"$subdomeinurl/kt$catebanurl/value5/index1.html\">新着順</a>";
}#$subdomeinurl/kt$catebanurl/value5/index1.html  $engnurl/$dir/index.cgi?cate=$catebanurl&value=5&page=1
$values .= "</div>";

&category;

# ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
# ＨＴＭＬテンプレートファイル読み込み

$html_data = "";
open (IN, "./../html.dat");

while(<IN>){
	my $line = $_;
#	chop($line);
	$html_data .= $line;
}
close(IN);


#--------------------------------------------------------
sub category {
$cate_bd .= "<ul>";
if ($cateban == "0") {
$i = 1;
}else {
$i = 2;
}
for ($j = $i ; $j <  $#html1 + 1 ; $j++ ){
&cate_ban;
#if ($catename =~ /その他/) {
#	next;
#}
if ($kensuu =~ /⇒/) {
	next;
}
$cate_bd .= "<li><a href=\"$subdomeinurl/kt$cateban/value$value/index1.html\">$catename</a><span class=\"fontsize11\">$kensuu</span></li>";
}#$engnurl/$dir/index.cgi?cate=$cateban&value=$value&page=1  $subdomeinurl/kt$cateban/value$value/index1.html
$cate_bd .= "</ul>";

if ($#html1 == "1") {
$cate_bd = "";
}
}
#--------------------------------------------------------
# ナビゲーションセット
$j = 1;
&cate_ban;
$navi .= "&nbsp;&nbsp;<span class=\"yazirusi\">▲</span><a href=\"$engnurl/\">FOREST SHOPトップへ</a><br>";
if ($catename eq "花・ガーデン・DIY") {
$navi .= "&nbsp;&nbsp;<span class=\"yazirusi\">▲</span><a href=\"$subdomeinurl/\">植木・盆栽・果樹トップへ</a><br>";
}else {
$navi .= "&nbsp;&nbsp;<span class=\"yazirusi\">▲</span><a href=\"$subdomeinurl/\">植木・盆栽・果樹トップへ</a><br>&nbsp;&nbsp;<span class=\"yazirusi\">▲</span><a href=\"$subdomeinurl/kt$cateban/value$value/index1.html\">$catename</a>";
}#$subdomeinurl/kt$cateban/value$value/index1.html  $engnurl/$dir/index.cgi?cate=$cateban&value=$value&page=1

if ($catetitle eq "花・ガーデン・DIY") {
$form = <<"EOL";
<form method="get" action="$engnurl/search.cgi">
<div class="left">
<input type="text" name="word" size=39 value="$word">
<input type="hidden" name="genre" value="$catebanurl">
<input type="hidden" name="value" value="$value">
&nbsp;価格&nbsp;<input type="text" name="min" value="$minkakaku" size="10">&nbsp;円〜&nbsp;<input type="text" name="max" value="$maxkakaku" size="10">&nbsp;円
<input type="hidden" name="page" value="1">
</div>
<img src="$engnurl/img/spacer.gif" alt="" width="200" height="3">
<div class="right"><input type=image name=submit src="$engnurl/img/search.gif" width="97" height="22" alt="商品検索"></div>
</form>
EOL
}else {
&search;
}

#--------------------------------------------------------
$html_data =~ s/＠PTITLE/$catename $catetitle/g;
$html_data =~ s/＠KTITLE/$kword $catename $catetitle/g;
$html_data =~ s/＠SUBTITLE/$catetitle/g;

#--------------------------------------------------------
# スキンデータ読み込み
my $g_skin="";
open (IN, "./../skin/skin.dat");

while(<IN>){
	my $line = $_;
	chop($line);
	$g_skin .= $line;
}
close(IN);

#--------------------------------------------------------
#ページリンク用キーワードエンコード（検索ワード）
my $strk = $env{"＊skey"};
$strk =~ s/([^\w ])/"%" . unpack("H2", $1)/eg;
$strk =~ tr/ /+/;

#--------------------------------------------------------
#ページリンク用キーワードエンコード（除外ワード）
my $strj = $env{"＊jkey"};
$strj =~ s/([^\w ])/"%" . unpack("H2", $1)/eg;
$strj =~ tr/ /+/;

#--------------------------------------------------------
#　除外ワード分割
my @w_jword = split(/,/,$env{"＊jkey"});

#-----------------------------------------------------------------------------
#明細行分割ー＞配列へストア
@w_html = split(/<!--start-->/,$content);
$work = $w_html[1];
@w_html = ();
@w_html = split(/<!--end-->/,$work);

#-----------------------------------------------------------------------------
#検索結果　３０件／１ページ表示
my $l_skin_all = "";
for ($j = 0 ; $j <  $#w_html ; $j++ ){
#明細毎に個別データ取得
	&pmeisai;

	$imagel  = $image;
	$imagel  =~ s/img64/img128/g;
	$imagel  =~ s/ex=64x64/ex=128x128/g;
	my $l_skin = $g_skin;
#＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
# スキン編集
	if($imagel =~ /item_none.gif/) {
		$image = "$engnurl/img/no-image2.gif";
		$imagel = "$engnurl/img/no.gif";
	}
		
#A8商品IDリンク
#	$refurl = $rakuten
#		.$user_id
#		."&a8ejpredirect="
#		.$link;

#A8画像IDリンク
#	$refurl2 = $rakuten
#		.$user_id2
#		."&a8ejpredirect="
#		.$link;
	$refurl = $link;

	$tenpol   = $rakuten
		.$user_id
		."/?url="
		.$shop;

#$i = int ( rand ( 20 ) + 10);

	$l_skin =~ s/＠ImageUrlSmall＠/$image/g;
	$l_skin =~ s/＠ImageUrlLarge＠/$imagel/g;
	$l_skin =~ s/＠Price＠/$price/g;
	$l_skin =~ s/＠ProductName＠/$product/g;
	$l_skin =~ s/＠tenpo＠/$shopnm/g;
	$l_skin =~ s/＠tenpol＠/$tenpol/g;
	$l_skin =~ s/＠refurl＠/$refurl/g;
#	$l_skin =~ s/＠refurl2＠/$refurl2/g;
	$l_skin =~ s/＠tax＠/$tax/g;
	$l_skin =~ s/＠ItemDetail＠/$itemdetail/g;
#	$l_skin =~ s/＠subdomain＠/$i/g;
	$l_skin =~ s/＠plink＠/$link/g;
	$l_skin =~ s/＠souryou＠/$souryou/g;
	$l_skin =~ s/＠card＠/$card/g;
	$l_skin =~ s/＠topurl＠/$engnurl/g;

	$l_skin_all .= $l_skin;
}

if ($totaln == 0){
	$l_skin_all = "<ul><b>$kword<br>$catetitle<br>の商品は、ありませんでした。</b></ul>";
}

#######検索結果　３０件／１ページ表示　ＥＮＤ ################

#--------------------------------------------------------
#全商品数／ページリンク作成・表示

my $pvar = 5;
my $pvarw = 0;
if ($page <= $pvar){ 
	$pvarw = $pvar - $page + 1;
}
#$page_link .= "&nbsp;&nbsp;<a href=\"index1.html\">[Top\]</a>";
if (($page >= 11) || ($page >= 7)) {
		$page_link .= "・・・";
}
for ($a = $page - $pvar; ($a <= $page + $pvar + $pvarw)  &&  ($a <= $totalpage); $a++) {
	if ($a < 1){
		next;
	}

	elsif ($a == $page) {
		$page_link .= "<span class=\"redbold\">";
		$page_link .= "&nbsp;".$a." ";
		$page_link .= "</span>";

	} else {
		$page_link .= "&nbsp;<a href=\"index$a.html\">".$a."</a> ";
	}#index.cgi?cate=$catebanurl&value=$value&page=$a
}
if ((($page + $pvar) < $totalpage) && (9 < $totalpage)) {
		$a = $a - $pvarw - $pvar;
		$page_link .= "・・・&nbsp;[ <a href=\"index$a.html\">次へ</a> ]";
}
if ($page > 1) {
		$a = $page - 1;
		$page_link = "&nbsp;[ <a href=\"index1.html\">PageTop\</a> ]&nbsp;[ <a href=\"index$a.html\">前へ</a> ]&nbsp;".$page_link;
}
#$page_link .= "&nbsp;&nbsp;&nbsp;<a href=\"index$a.html\">[Next\]</a> ";

#＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
# ランキングクエリURLのセット
if ($rankquery eq "100005") {
$url2 = "http://event.rakuten.co.jp/ranking/flower/"
}else {
$url2 = "http://event.rakuten.co.jp/ranking/flower/"
	.$rankquery.".html";
}

my $rankcontent = get $url2;

#--------------------------------------------------------
# 大きく分割
@rank_html = split(/weekly -->/,$rankcontent);
@rank_html = split(/\/weekly -->/,$rank_html[1]);

#--------------------------------------------------------
# 商品・画像リンクへ分割
@rank_html1 = split(/alt=\"\" width=\"138\" height=\"1\">/,$rank_html[0]);

#--------------------------------------------------------
# 店舗へ分割
@rank_html2 = split(/ショップ：<a href=\"/,$rank_html[0]);

#--------------------------------------------------------
# 商品の感想文へ分割
@rank_html3 = split(/height=\"3\"><br><a href=\"http:\/\/rd.rakuten.co.jp\/cow\/\?R2=/,$rank_html[0]);

#--------------------------------------------------------
# デジカメ説明へ分割
@rank_html5 = split(/<\/b><\/a><\/font><br>/,$rank_html[0]);

#--------------------------------------------------------
# 更新日へ分割
@rank_html6 = split(/ttl_30items_w.gif/,$rank_html[0]);
@rank_html6 = split(/<b>/,$rank_html6[1]);
@rank_html6 = split(/<\/b>/,$rank_html6[1]);
my $kousinbi = $rank_html6[0];

#--------------------------------------------------------
# ランキングマークへ分割
@rank_html7 = split(/bottom\" bgcolor=\"\#339900\">/,$rank_html[0]);

#＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
# ランキングカテゴリ大きく分割
@rankcate = split(/ttl_menu_electronics.gif/,$content);
@rankcate = split(/menu_line.gif/,$rankcate[1]);

#--------------------------------------------------------
# ランキングカテゴリ番号へ分割
@rankcate1 = split(/size=\"-1\"><a href=\"/,$rankcate[0]);

#--------------------------------------------------------
# カテゴリ名へ分割
@rankcate2 = split(/html\">/,$rankcate[0]);

#--------------------------------------------------------
# カテゴリタイトルへ分割
@rankcate3 = split(/<font size=\"-1\"><b>/,$rankcate[0]);
@rankcate3 = split(/<\/b>/,$rankcate3[1]);
my $ranktitle = $rankcate3[0];

#--------------------------------------------------------
#ランキング　10件表示
my $rank_all = "";
$rank_all .= "<div class=\"line\"><img src=\"$engnurl/img/spacer.gif\" alt=\"\" width=\"1\" height=\"1\"></div><div class=\"tenpo-zyanru\"><img src=\"$engnurl/img/spacer.gif\" alt=\"\" width=\"1\" height=\"10\"><br>&nbsp;&nbsp;&nbsp;&nbsp;ジャンルランキング</div><table width=\"210\" border=\"0\" cellspacing=\"1\" cellpadding=\"5\" class=\"cateranking\"><tr><td align=\"center\" colspan=\"2\" id=\"ranktitle\">$catetitle</td></tr>\n";
for ($j = 1 ; $j <= 20 ; $j++ ){
&rankmeisai;

	$image  = $imagel;
	$image  =~ s/img128/img64/g;
	$image  =~ s/ex=128x128/ex=64x64/g;
	$image  =~ s/_128/_64/g;
#＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
# スキン編集
	if($imagel =~ /item_none.gif/) {
		$image = "$engnurl/img/no-image2.gif";
		$imagel = "$engnurl/img/no2.gif";
	}
		
#A8商品IDリンク
#	$refurl = $rakuten
#		.$user_id
#		."&a8ejpredirect="
#		.$link;

#A8画像IDリンク
#	$refurl2 = $rakuten
#		.$user_id2
#		."&a8ejpredirect="
#		.$link;

	$tenpourl = $rakuten
		.$user_id
		."/?url="
		.$tenpo;

	$reviewl = $rakuten
		.$user_id
		."/?url="
		.$review;

#$i = int ( rand ( 20 ) + 10);

if ($j <= 10) {

if ($j % 2 == 0) {
$rank_all .= <<"EOM";
<tr bgcolor="#FDFDEA">
EOM
}else {
$rank_all .= <<"EOM";
<tr bgcolor="#ffffff">
EOM
}

if ($j < 4) {
$rank_all .= <<"EOM";
<td valign="top" align="center">
<br><img src="$engnurl/img/rankmark${j}.gif" alt="${j}位" width="25" height="39"><br><br>${rankmark}
</td>
EOM
}else {
$rank_all .= <<"EOM";
<td valign="top" align="center" class="bold">
<img src="$engnurl/img/spacer.gif" alt="" width="30" height="10"><br>
${j}位<br><br>$rankmark
</td>
EOM
}

$rank_all .= <<"EOM";
<td valign="top" align="center">
<div class="rankwaku">
<div class="rank-gazou">
<img src="$engnurl/img/spacer.gif" alt="" width="1" height="138">
<!-- 画像開始 --><a href="$refurl" target="_blank"><img border="0" alt="" src="$imagel"></a><!-- 画像終了 -->
</div>
<!-- 品名開始 --><div class="rankleft"><a href="$refurl" target="_blank">$product</a><!-- 品名終了 --></div>
<div class="ranktenpo"><a href="$reviewl" target="_blank">商品の感想文</a><br>販売店：<a href="$tenpourl" target="_blank">$tenponame</a></div>
</div>
</td>
</tr>
EOM

}else {#１０位ここまで
if ($j % 2 == 0) {
$rank_all .= <<"EOM";
<tr bgcolor="#FDFDEA">
EOM
}else {
$rank_all .= <<"EOM";
<tr bgcolor="#ffffff">
EOM
}
$rank_all .= <<"EOM";
<td valign="top" align="center">
<img src="$engnurl/img/spacer.gif" alt="" width="30" height="10"><br>
${j}位<br><br>$rankmark
</td>
<td valign="top" align="center">
<div class="rankwaku">
<div class="top-gazou2">
<img src="${engnurl}/img/spacer.gif" alt="" width="74" height="5"><br>
<!-- 画像開始 --><a href="$refurl" target="_blank"><img border="0" alt="" src="$image"></a><!-- 画像終了 -->
</div>
<!-- 品名開始 --><div class="rankleft"><a href="$refurl" target="_blank">$product</a><!-- 品名終了 --></div>
<div class="ranktenpo"><a href="$reviewl" target="_blank">商品の感想文</a><br>販売店：<a href="$tenpourl" target="_blank">$tenponame</a></div>
</div>
</td>
</tr>
EOM

}

}
$rank_all .= "</table>\n";

if ($link !~ "rakuten") {
$rank_all = "";
}

my $nakamacate = <<"EOL";
<div class="tenpo-zyanru"><img src="http://www.forestshop.net/img/spacer.gif" alt="" width="1" height="10"><br>&nbsp;&nbsp;&nbsp;&nbsp;その他のジャンル</div>
<div id="top-submenu">
<div class="top-left">
<img src="$engnurl/img/point.jpg" alt="" width="20" height="21" class="middle"><a href="http://flower.forestshop.net/">フラワー・造花トップ</a>
</div>
<ul>
<li><a href="http://flower.forestshop.net/kt113084/value2/index1.html">フラワー</a></li>
<li><a href="http://flower.forestshop.net/kt110042/value2/index1.html">造花</a></li>
</ul>

<div class="line"></div>

<div class="top-left">
<img src="$engnurl/img/point.jpg" alt="" width="20" height="21" class="middle"><a href="http://houseplant.forestshop.net/">観葉植物・グッズトップ</a>
</div>
<ul>
<li><a href="http://houseplant.forestshop.net/kt202513/value2/index1.html">観葉植物</a></li>
<li><a href="http://houseplant.forestshop.net/kt215181/value2/index1.html">ミニ観葉植物</a></li>
<li><a href="http://houseplant.forestshop.net/kt409549/value2/index1.html">観葉植物用グッズ</a></li>
</ul>

<div class="line"></div>

<div class="top-left">
<img src="$engnurl/img/point.jpg" alt="" width="20" height="21" class="middle"><a href="http://gardening.forestshop.net/">ガーデニングトップ</a>
</div>
<ul>
<li><a href="http://gardening.forestshop.net/kt100012/value2/index1.html">ガーデニング</a></li>
</ul>

<div class="line"></div>

<div class="top-left">
<img src="$engnurl/img/point.jpg" alt="" width="20" height="21" class="middle"><a href="http://exterior.forestshop.net/">エクステリアトップ</a>
</div>
<ul>
<li><a href="http://exterior.forestshop.net/kt100880/value2/index1.html">エクステリア</a></li>
</ul>

<div class="line"></div>

<div class="top-left">
<img src="$engnurl/img/point.jpg" alt="" width="20" height="21" class="middle"><a href="http://diy.forestshop.net/">DIYトップ</a>
</div>
<ul>
<li><a href="http://diy.forestshop.net/kt100890/value2/index1.html">日曜大工・作業用品</a></li>
<li><a href="http://diy.forestshop.net/kt100893/value2/index1.html">住宅建材</a></li>
</ul>

<div class="line"></div>

<div class="top-left">
<img src="$engnurl/img/point.jpg" alt="" width="20" height="21" class="middle"><a href="http://others.forestshop.net/">その他トップ</a>
</div>
<ul>
<li><a href="http://others.forestshop.net/kt101737/value2/index1.html">その他</a></li>
</ul>
</div>
EOL

#--------------------------------------------------------
# 数値にカンマを挿入
$totaln = &put_comma($totaln);
$totalpage = &put_comma($totalpage);

#--------------------------------------------------------
# 総件数　セット
$html_data =~ s/＠TOTALCOUNT/$totaln/g;

#--------------------------------------------------------
# 総ページ　セット
$html_data =~ s/＠TOTALPAGE/$totalpage/g;

#--------------------------------------------------------
# 総ページ　セット
$html_data =~ s/＠FIRSTPAGE/$firstpage/g;

#--------------------------------------------------------
# ページリンク　セット
$html_data =~ s/＠PAGELINK/$page_link/g;

#--------------------------------------------------------
# フォーム　セット
$html_data =~ s/＠FORM/$form/g;

#--------------------------------------------------------
# ショップ名称　セット
$html_data =~ s/＠TENPO/$shopnm/g;

#--------------------------------------------------------
# ショップリンク　セット
$html_data =~ s/＠SHOPL/$shopl/g;

#--------------------------------------------------------
# ショップリンク２　セット
$html_data =~ s/＠HNBITEN/$hanbaiten/g;

#--------------------------------------------------------
# サブドメイン　セット
$html_data =~ s/＠SUBDOMAIN/$i/g;

#--------------------------------------------------------
# サイドバー（カテゴリー名称　セット
$html_data =~ s/＠CATE_HD/$cate_hd/g;

#--------------------------------------------------------
# サイドバー（アイテム名称　セット
$html_data =~ s/＠CATE_BD/$cate_bd/g;

#--------------------------------------------------------
# サイドバー（アイテム名称（＜ｌｉ＞タグ対応）　セット
$html_data =~ s/＠CATE_LIBD/$cate_libd/g;

#--------------------------------------------------------
# 商品検索結果一覧 挿入
$html_data =~ s/＠SYOHIN/$l_skin_all/g;

#--------------------------------------------------------
# 独自コンテンツ　挿入
$html_data =~ s/＠KOUKOKU/$koukoku/g;

#--------------------------------------------------------
# トップURL セット
$html_data =~ s/＠TOPURL/$engnurl/g;

#--------------------------------------------------------
# ナビゲーション セット
$html_data =~ s/＠NAVI/$navi/g;

#--------------------------------------------------------
# カテゴリタイトル セット
$html_data =~ s/＠CATETITLE/$catetitle/g;

#--------------------------------------------------------
# 価格 セット
$html_data =~ s/＠VALUE/$values/g;

#--------------------------------------------------------
# 価格並び順 セット
$html_data =~ s/＠NARABI/$narabi/g;

#--------------------------------------------------------
# ランキング セット
$html_data =~ s/＠RANKING/$rank_all/g;

#--------------------------------------------------------
# アクセス解析タグへページＩＤ　挿入
my $pid = "c".$cateban."p".$page;
$html_data =~ s/＠PID/$pid/g;

#--------------------------------------------------------
# サイト名称　セット
$html_data =~ s/＠SITENAME/$sitename/g;

#--------------------------------------------------------
# 仲間カテゴリ　セット
$html_data =~ s/＠NAKAMA/$nakamacate/g;

#--------------------------------------------------------
# サイト概要　セット
$html_data =~ s/＠SITEEXP/$siteexp/g;

#--------------------------------------------------------
# サイトポリシー　セット
$html_data =~ s/＠SITEPOLICY/$sitepolicy/g;

#--------------------------------------------------------
# HTMLヘッダ出力
print "Content-type: text/html\n";
print "Charset: EUC-JP\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
print "<html lang=\"ja\">\n";
print "<head>\n";
print "<title>$kword $catename $catetitle $product Page.$page</title>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=euc-jp\">\n";
print "<meta name=\"keywords\" content=\"$keyw\">\n";
print "<meta name=\"Description\" content=\"$desc\">\n";
print "<meta name=\"robots\" content=\"index,follow\">\n";
print "<link rel=\"stylesheet\" href=\"$cssname\">\n";
print "<script language=\"JavaScript\" src=\"$engnurl/randam/randam_top.js\"></script>\n";
print "<script language=\"JavaScript\" src=\"$engnurl/randam/furothing.js\"></script>\n";
print "<script language=\"JavaScript\" src=\"$engnurl/randam/copy.js\"></script>\n";
print "<script language=\"JavaScript\" src=\"$engnurl/randam/smoothscroll.js\"></script>\n";
print "</head>\n";
#--------------------------------------------------------
# 編集済みＨＴＭＬ（ｏｒ　ＭＡＰ）テンプレート画面出力。
print $html_data;

print "</html>\n";
close output;
exit;

#＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
#　明細情報取得
#　　総件数、総ページ数
#	$image		画像リンク
#	$link		商品リンク
#	$product	商品名称
#	$tax		消費税・送料
#	$price		商品価格
#	$shop		ショップリンク
#	$shopnm		ショップ名称
#	$itemdetail	商品説明
#＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
sub pmeisai{
# 商品リンク
	$work    = $w_html[$j];
	@w_html1 = split(/href=\"/,$work);
	@w_html2 = split(/\"/,$w_html1[1]);
	$word    = $w_html2[0];
#substr($word, 0, 58) = "";
	$link    = $word;

# 画像リンク
	$work     = $w_html[$j];
	@w_html1  = split(/src=\"/,$work);
	@w_html2  = split(/\"/,$w_html1[1]);
	$image    = $w_html2[0];
	$imagel   = $image;
	$imagel   =~ s/img64/img128/g;
	$imagel   =~ s/ex=64x64/ex=128x128/g;

# 商品名称
	$work    = $w_html[$j];
	@w_html1 = split(/<font size=\"-1\">/,$work);
	@w_html2 = split(/<\/font>/,$w_html1[1]);
	$product = $w_html2[0];

# 商品価格
	$work    = $w_html[$j];
	@w_html1 = split(/<font size=\"-1\">/,$work);
	@w_html2 = split(/ 円/,$w_html1[2]);
	$price = $w_html2[0];

# 消費税・送料
	$work    = $w_html[$j];
	@w_html1 = split(/color=\"\#636363\">/,$work);
	@w_html2 = split(/<\/font>/,$w_html1[1]);
	$tax = $w_html2[0];
# 送料無料
if ($tax =~ /送料込/) {
	$souryou  = "<img src=\"$engnurl/img/souryou-free.gif\" alt=\"送料無料\" width=\"68\" height=\"17\" class=\"middle\">";
}else {
	$souryou  = "";
}
	$tax =~ s/税込、/(税込) /g;

# ショップリンク
	$work    = $w_html[$j];
	@w_html1 = split(/href=\"/,$work);
	@w_html2 = split(/\"/,$w_html1[4]);
	$shop = $w_html2[0];

# ショップ名称
	$work    = $w_html[$j];
	@w_html1 = split(/color=\"\#636363\">/,$work);
	@w_html2 = split(/<\/font>/,$w_html1[2]);
	$shopnm  = $w_html2[0];

# 商品説明
	$work        = $w_html[$j];
	@w_html1     = split(/color=\"\#636363\">/,$work);
	@w_html2     = split(/<\/font>/,$w_html1[3]);
	$itemdetail  = $w_html2[0];
if ($itemdetail =~ /[a-zA-Z0-9\/]{84}/) {
$itemdetail =~ s/.{70}/$&<BR>\n/g;
}
if ($itemdetail =~ /\*{84}/) {
$itemdetail =~ s/.{70}/$&<BR>\n/g;
}

# カードOK
	$work    = $w_html[$j];
if ($work =~ /カードOK/) {
	$card    = "<img src=\"$engnurl/img/card.gif\" alt=\"カードOK\" width=\"68\" height=\"17\" class=\"middle\">";
}else {
	$card    = "";
}
}

sub cate_ban {
# カテゴリ番号
	$work = $html1[$j];
	@html4 = split(/&v=/,$work);
	$cateban = $html4[0];

# カテゴリ名
	$work1 = $html2[$j];
	@html3 = split(/<\/a>/,$work1);
	$catename = $html3[0];
	$catename =~ s/\r//g;
	$catename =~ s/\n//g;

# 件数
	$work2 = $html5[$j];
	@html6 = split(/<\/font>/,$work2);
	$kensuu = $html6[0];
	$kensuu =~ s/\r//g;
	$kensuu =~ s/\n//g;
}

sub search {
$form = <<"EOL";
<form method="get" action="$engnurl/search.cgi">
<div class="left">
<input type="text" name="word" size=39 value="$word"><br>
<input type="radio" value="$catebanurl" name="genre" checked>$catetitle内で<br>
<input type="radio" value="100005" name="genre">花・ガーデン・DIY全体で<br>
<input type="hidden" name="value" value="$value">
&nbsp;価格&nbsp;<input type="text" name="min" value="$minkakaku" size="10">&nbsp;円〜&nbsp;<input type="text" name="max" value="$maxkakaku" size="10">&nbsp;円
<input type="hidden" name="page" value="1">
</div>
<img src="$engnurl/img/spacer.gif" alt="" width="200" height="3">
<div class="right"><input type=image name=submit src="$engnurl/img/search.gif" width="97" height="22" alt="商品検索"></div>
</form>
EOL
}

# 受け取った数値にカンマを挿入して返すサブルーチン
sub put_comma {
  my $num = $_[0];
  $num = reverse $num;
  $num =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
  $num = reverse $num;
  return $num
}

sub rankmeisai {
# 商品リンク
	$work = $rank_html1[$j];
	@rankhtml = split(/<a href=\"/,$work);
	@rankhtml1 = split(/\" border=\"0\"><\/a><\/td>/,$rankhtml[1]);
	@rankhtml2 = split(/\"><img src=\"/,$rankhtml1[0]);
	@rankhtml3 = split(/R2=/,$rankhtml2[0]);
	@rankhtml11 = split(/&/,$rankhtml3[1]);
	$link = $rankhtml11[0];

# 画像リンク
	@rankhtml4 = split(/\" alt=\"/,$rankhtml2[1]);
	$imagel = $rankhtml4[0];

# 商品名称
	$product = $rankhtml4[1];

# 店舗URL
	$work1 = $rank_html2[$j];
	@rankhtml5 = split(/\/&/,$work1);
	@rankhtml6 = split(/R2=/,$rankhtml5[0]);
	$tenpo = $rankhtml6[1];

# 店舗名称
	@rankhtml7 = split(/\">/,$work1);
	@rankhtml8 = split(/<\/a>/,$rankhtml7[1]);
	$tenponame = $rankhtml8[0];

# 商品の感想文リンク
	$work2 = $rank_html3[$j];
	@rankhtml9 = split(/&/,$work2);
	$review = $rankhtml9[0];

# ランキングマーク
	$work7 = $rank_html7[$j];
	@rankhtml10 = split(/\" alt=/,$work7);
	$rankmark = $rankhtml10[0];
if ($rankmark =~ /icn_up.gif/) {
	$rankmark = "<img src=\"$engnurl/img/up.gif\" alt=\"UP!\" width=\"25\" height=\"25\">";
}elsif ($rankmark =~ /icn_down.gif/) {
	$rankmark = "<img src=\"$engnurl/img/down.gif\" alt=\"DOWN!\" width=\"25\" height=\"25\">";
}elsif ($rankmark =~ /icn_new.gif/) {
	$rankmark = "<img src=\"$engnurl/img/new.gif\" alt=\"NEW!\" width=\"25\" height=\"10\">";
}else {
	$rankmark = "<img src=\"$engnurl/img/stay.gif\" alt=\"SAME!\" width=\"25\" height=\"25\">";
}

# デジカメ商品リンク
	$work = $rank_html1[$j];
	@rankhtml = split(/<a href=\"/,$work);
	@rankhtml12 = split(/\" width=128 border=\"0\"><\/a><\/td>/,$rankhtml[1]);
	@rankhtml13 = split(/\"><img src=\"/,$rankhtml12[0]);
	@rankhtml14 = split(/R2=/,$rankhtml13[0]);
	@rankhtml15 = split(/&/,$rankhtml14[1]);
	$dezilink = $rankhtml15[0];

# デジカメ商品名称
	@rankhtml16 = split(/\" alt=\"/,$rankhtml13[1]);
	$deziproduct = $rankhtml16[1];


# デジカメ商品説明
	$work3 = $rank_html5[$j];
	@rankhtml17 = split(/<\/td>/,$work3);
	$dezidetail = $rankhtml17[0];
	$dezidetail =~ s/<br>//g;
}

sub rankcateban {
# クエリURL
	$rankwork = $rankcate1[$j];
	@rank = split(/.html\">/,$rankwork);
	@rank = split(/electronics\//,$rank[0]);
	$rankquery = $rank[1];

# カテゴリ名
	$rankwork1 = $rankcate2[$j];
	@rank1 = split(/<\/a>/,$rankwork1);
	$rankname = $rank1[0];
}