#!/usr/bin/perl

use Unicode::Japanese;
$s = new Unicode::Japanese;

#〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
#〓
#〓		楽天API版　アフィリエイトプログラムPerl Ver1.0.0
#〓
#〓		Copyright (C) 2006-2007 るびねっと All Rights Reserved.
#〓
#〓
#〓		■必要ファイル
#〓		index.cgi(755)
#〓   |-- data(755)
#〓       |-- 000〜999.dat(644)  ENCODE:EUC
#〓   |-- init.dat(666)
#〓
#〓
#〓〓〓〓〓〓〓初期設定01 [START] 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
$engnurl    = "http://r4.41item.com" ;								# サイトURL -- 最後のスラッシュは含めないで下さい
$sitename   =  "人気激安商品を検索出来ます。41item！" ;			#	サイトタイトル
$desc_kk = "$sitename 人気のインターネットでの検索ワードを参考に人気商品を紹介してます。" ;			#サイトTOPのdesc
$h1_title = "$desc_kk";
$raku_ad = qq{

<a href="http://hb.afl.rakuten.co.jp/hsc/0666b352.6da376a4.0632b074.83f14896/" target="_blank"><img src="http://hbb.afl.rakuten.co.jp/hsb/0666b352.6da376a4.0632b074.83f14896/" border="0"></a>

};			#ランキングは動画でチェック
$tabele_title01 = qq{ 人気ワード };
$tabele_title02 = qq{ ランキング};
$tabele_title03 = qq{人気ページ};

$sub_desc ="${mykeyword}関連紹介「$sitename」";			#サブページのDescription
$sub_td_atama =qq{$h1_title};
$donna_keyword = "キーワード";



$kensaku_mado =qq{
	
	
<form method=get action="http://pt.afl.rakuten.co.jp/c/0632b076.efeaffa8/"><input type=hidden name=sv value=2><input type=hidden name=p value=0><table width=150 border=0 cellspacing=0 cellpadding=1 bgcolor=#bf0000><tr><td align=center><table cellspacing=0 cellpadding=3 border=0 width=100% bgcolor=#FFFFFF><tr><td bgcolor=#bf0000 align=center><b><font size=2 color=#FFFFFF>楽天で探す</font></b></td></tr><tr bgcolor=#fffcdd><td nowrap align=center><input type=text size=14 name=sitem value=></td></tr><tr bgcolor=#fffcdd><td align=center><input type=submit value=商品検索 name=submit></td></tr><tr><td nowrap align=center><img src=https://image.rakuten.co.jp/com/img/logo/base/w080.gif width=80 height=36 border=0 alt=楽天市場></td></tr></table></td></tr></table></form>



};




#〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

#━━━━━━━━━━━━━━━━━━━━━━━ 初期設定02 [START] ━━━━━━━━━━━━━━━━━━━━━━━━
#	初期設定は必ずこちらで変更を行って下さい
#

$name1      =  "shop" ;																				#	アドレスの第一階層の名前を指定して下さい
$name2      =  "num" ;																				#	アドレスの第二階層の名前を指定して下さい
$name3      =  "index" ;																			#	アドレスの第三階層の名前を指定して下さい
$hitnum     =  "10" ;																					# 1ページあたりの取得件数( 1-30までの整数 )
$maxdat     =  "100" ;																					# datファイルの最高 -- ○○○.datの最高数字(頭の０は含まない)
$mykeynum   =  "2"  ;																					# titleを取得する番号 1なら一番上の検索結果がtitleとなる( 1-$hitnum+1までの整数 )
$encode     =  "EUC-JP" ;																			# 標準文字コード -- 必要がなければ変更しないで下さい
$user_id    =  "06126766.a40a1c1a" ;													# ランキング使用時の旧楽天ID
$form_id    =  "0632b076.efeaffa8" ;													# 検索フォーム時のID
$affileID   =  "05027546.972ca7af.05027547.553fd4f6" ;				# ウェブサービス用アフィリエイトID -- このIDにポイントが付加されます
$developID1 =  "7301132604a14e366f51422392aefcfd" ;						# ウェブサービス用デベロップID1 -- 重複を防ぐためユニークなIDを使用して下さい
$developID2 =  "d51cf61a5b401109214c9d7f8f22f36e" ;						# ウェブサービス用デベロップID2 -- 重複を防ぐためユニークなIDを使用して下さい
$list_text  =  "ランキング" ;									# TOPページリンク文字
$randflag   =  "1" ;																					# SUBページのメニュー表示 0:ランダム表示なし 1:ランダム表示あり
$etcurl     = "" ;																						# imageファイルやCSSなどを別場所に設置している場合にはそのURLを指定して下さい
																															#	( 同じ場所に設置している場合には空のままにしておいて下さい ）

if( $etcurl eq "" ){ $etcurl = $engnurl ; }
$js         =  $etcurl. "/style/std.js" ;											# jsファイルへのパスを指定して下さい
$css        =  $etcurl. "/style/base.css" ;										# cssファイルへのパスを指定して下さい
$no_gif     =  $etcurl. "/images/no.gif" ;										# no_image画像へのパスを指定して下さい
$prev				=  $etcurl. "/images/prev.gif" ;									# prev画像へのパスを指定して下さい
$next				=  $etcurl. "/images/next.gif" ;									# next画像へのパスを指定して下さい
$footnikakuyo = qq{

<hr class="hr1" />
	<div class="small1">
		このサイトにつきまして・・・$sitenameは、$donna_keywordを元に日本最大級　楽天市場の商品を紹介するページです。データの取得に楽天ウェブサービスを利用しております。ご安心してサイト閲覧をお楽しみ下さい。
	</div>
<hr class="hr1" /><br />
<div class="copy" align ="center">

<address>
    <abbr title="Copyright">&copy;</abbr>2007 <a href=".">$sitename</a> All Rights Reserved.
    </address><br />
<!-- Rakuten Web Services Attribution Snippet FROM HERE -->
<a href="http://webservice.rakuten.co.jp/" target="_blank">Supported by 楽天ウェブサービス</a>
<!-- Rakuten Web Services Attribution Snippet TO HERE -->


</div>

};

#━━━━━━━━━━━━━━━━━━━━━━━━ 初期設定 [END] ━━━━━━━━━━━━━━━━━━━━━━━━

#〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓


#━━━━━━━━━━━━━━━━━━━━━━━━  Main[START] ━━━━━━━━━━━━━━━━━━━━━━━━━

#********************************************************
#問い合わせオブジェク作成

use CGI;
use LWP::Simple;

my $q = new CGI;

#********************************************************
#POSTデータ取得

$catenum  = $q->param('catenum');
$cateidx  = $q->param('cateidx');
$pagenum  = $q->param('pagenum');


#********************************************************
#不正なアドレスはエラー表示

if ($catenum eq ""){ &ERROR ; exit ; }


#********************************************************
#developIDの連続使用を回避

open FH, "+<init.dat" ;
flock( FH , 2 );
$lastdevID = <FH> ;
if( $lastdevID eq $developID1 ){ $developID = $developID2 ; } else { $developID = $developID1 ; }
truncate( FH , 0 ) ;
seek( FH , 0, 0);
print FH "$developID" ;
close FH ;


#********************************************************
#HTML 出力開始

if ($catenum eq "top" ){ &toppage ;
} else { &subpage ; }

exit;


#〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#━━━━━━━━━━━━━━━━━━━━━━━    SKIN   ━━━━━━━━━━━━━━━━━━━━━━━━━━━
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
sub PrintSkin{

$item_body .= <<ItemSkin;

			<div class="item">
				<h2><a href="$link">$product</h2></a>
				<p class="shopname">販売･･･$shopnm</p>
			<p class="text">
				<a href="$link"><img src="$imagel" alt="$product" /></a>
				<strong><font color="#FF0000">$price</font>円 </strong><br>
	( $tax $post )
					$itemdetail
			</p>
				<br clear="left" />

			</div>


ItemSkin

}

#〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#━━━━━━━━━━━━━━━━━━━━━━━  TOPPAGE  ━━━━━━━━━━━━━━━━━━━━━━━━━━━
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

sub toppage{

#********************************************************
# index.ctgファイル読み込み

$rancate = int(rand($maxdat-1)) + 1 ;
if( length($rancate) == 1 ){
	$rancate = "00" .$rancate ;
} elsif( length($rancate) == 2 ){
	$rancate = "0" .$rancate ;
}

my $index_ctg   =  "./data/${rancate}.dat" ;

my $index_idx = 0 ;
my $rancount = 0 ;
my @index_data = ();

open( IN, $index_ctg ) or &ERROR ;

while(<IN>){
	$line = $_;
	chop($line);
	$index_idx = $index_idx + 1;
	$randnum = int(rand(4)) ;
	if( $randnum == 0 ){
		$cate_menu .= "<li><a href=\"${engnurl}/${name1}${rancate}/${name2}${index_idx}/${name3}1\.html\">" .$line. "</a></li>\n" ;
		$rancount += 1 ;
	}
}
if( $rancount == 0 ){
		$cate_menu  = "<li><a href=\"${engnurl}/${name1}${rancate}/${name2}${index_idx}/${name3}1\.html\">" .$line. "</a></li>\n" ;
}
close(IN);


for( $z=1; $z<=$maxdat; $z++ ){
	if( length($z) == 1 ){
		$datnum = "00" .$z ;
	} elsif( length($z) == 2 ){
		$datnum = "0" .$z ;
	} else {
		$datnum = $z ;
	}

	$list_menu .= "<li><a href=\"$engnurl/${name1}${datnum}/\">${list_text}${datnum}位</a></li>" ;
}

#********************************************************
# タイトルタグ　セット

$title = $sitename ;
$desc = "$desc_kk" ;
$keyw = "" ;

&PrintRanking ;

#********************************************************
#TOPPAGE HTML出力開始

print "Content-type: text/html\n";
print "Charset: " .$encode. "\n\n";

print <<TOPHTMLBody;
<?xml version="1.0" encoding="${encode}" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=${encode}" />
	<meta http-equiv="Content-Language" content="ja" />
	<meta http-equiv="Content-Script-Type" content="text/javascript" />
	<meta http-equiv="Content-Style-Type" content="text/css" />
	<meta name="keywords" content="$keyw" />
	<meta name="Description" content="$desc" />
	<meta name="robots" content="index,follow" />
	<link rel="stylesheet" href="$css" />
	<script type="text/javascript" src="$js"></script>
<title>$title</title>
    <link href="../style/std.css" rel="stylesheet" type="text/css" />
</head>
<body>


<div class="container">
	<!-- start header -->
	<h1>$sitename</h1>
	<p class="head">$h1_title</p>
<div id="menu">
  <div align="center">$raku_ad
  </div>
  <ul>
		<li class="current_page_item"><a href="http://r4.41item.com/">Home</a></li>
		<li><a href="http://b2.41item.com/">biddersお勧め</a></li>
		<li><a href="http://a1.41item.com/">amazonお勧め</a></li>
		<li><a href="http://www.hoshii-shop.com/">yahooshoppingお勧め</a></li>
		<li><a href="http://i3.41item.com/">携帯1</a></li>
		<li><a href="http://a1.41item.com/i/">携帯2</a></li>
	</ul>
</div>

	<!-- end header -->
		
	<!-- start contents -->
	  <div class="content keyword">
			<h2>$tabele_title03</h2>
			$list_menu
	</div>
		<div class="content ranking">
			<h2>$tabele_title01</h2>
			$cate_menu
	</div>
			
			
		<div class="content ads">
			
		$Ranking_TOPpage</div>
	
	<!-- end footer -->
</div><br clear="all" />




TOPHTMLBody
&Footer;

print "</body>\n" ;
print "</html>\n" ;
exit;

}

#〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#━━━━━━━━━━━━━━━━━━━━━━━  SUBPAGE  ━━━━━━━━━━━━━━━━━━━━━━━━━━━
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

sub subpage{

$linkpage1  = "${engnurl}/${name1}${catenum}/${name2}" ;
$linkpage2  = "${engnurl}/${name1}${catenum}/${name2}${cateidx}/${name3}" ;


&PrintRanking ;

#********************************************************
# index.ctgファイル読み込み

my $index_ctg   =  "./data/${catenum}.dat" ;

my $rancount = 0;
my $index_idx = 0;
my @index_data = ();

open( IN, $index_ctg ) or &ERROR ;

while(<IN>){
	$line = $_;
	chop($line);
	$index_idx = $index_idx + 1;
	if( $index_idx == $cateidx ){ $key = $line; }

	if( $randflag eq "1" ){ $randnum = int(rand(2)) ; } else { $randnum = 0 ; }
	if( $randnum == 0 ){
		$menulist .= "<li><a href=\"${linkpage1}${index_idx}/${name3}1\.html\">" .$line. "</a></li>\n" ;
		$rancount += 1 ;
	}
}
if( $rancount == 0 ){
		$menulist .= "<li><a href=\"${linkpage1}${index_idx}/${name3}1\.html\">" .$line. "</a></li>\n" ;
}
close(IN);

if( $key eq "" ){ &ERROR; exit; }


#********************************************************
# APIに接続

$kword = $key ;
		$kword = Unicode::Japanese->new($kword, 'euc' )->utf8;

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



$url = "http://api.rakuten.co.jp/rws/1.7/rest"
	."?developerId=".$developID
	."&affiliateId=".$affileID
	."&operation=ItemSearch"
	."&version=2007-04-11"
	."&keyword=".$kword
	."&sort=-updateTimestamp"
	."&hits=".$hitnum
	."&page=".$pagenum
		."&orFlag=0" ;

	$data = get($url) ;
	$_ = $data ;

	( $count ) = m/<count>(.*?)<\/count>/o ;
	( $page ) = m/<page>(.*?)<\/page>/o ;
	( $first ) = m/<first>(.*?)<\/first>/o ;
	( $last ) = m/<last>(.*?)<\/last>/o ;
	( $pagecount ) = m/<pageCount>(.*?)<\/pageCount>/o ;

	push(@items , $data =~ m/<Item>(.*?)<\/Item>/smg ) ;


#********************************************************
# PageLink

$mycount     = 1 ;
$linknum   = 10 ;
$prevpage  = $pagenum - 1 ;
$nextpage  = $pagenum + 1 ;

if( $prevpage < 1 ){ $prev_text = "　　　　　" ; } else {
	$prev_text = "<a href=\"${linkpage2}${prevpage}.html\" style=\"color:#666666;font-size:9pt;\"><img src=\"$prev\" border=\"0\" alt=\"前\" />&nbsp;&nbsp;前へ</a>";
}
if( $nextpage > $pagecount ){ $next_text = "　　　　　" ; } else {
	$next_text = "<a href=\"${linkpage2}${nextpage}.html\" style=\"color:#666666;font-size:9pt;\">次へ&nbsp;&nbsp;<img src=\"$next\" border=\"0\"  alt=\"次\" /></a>";
}

if( $pagenum-$linknum < 1 ){ $startpage = 1 ; } else { $startpage = $pagenum-$linknum; }


for( $i=$startpage; $i<($pagenum+$linknum) ; $i++ ){
	if( $i == $pagenum ){
		$pagelink .= "&nbsp;&nbsp;<span style=\"font-size:14pt;color:#ff0000;\">" .$i. "</span>&nbsp;&nbsp;" ;
	} else {
		$pagelink .= "&nbsp;&nbsp;<a href=\"${linkpage2}${i}.html\" style=\"font-size:11pt;text-decoration:underline;\">" .$i. "</a>&nbsp;&nbsp;" ;
	}
	$mycount += 1 ;
	if( $mycount > 15 || $i >= $pagecount ){ last ; }
}



$pagelink = $prev_text. "　" .$pagelink. "　" .$next_text ;


#検索結果が0件の場合は検索フォームを表示
if( $count < 1 || $page > $pagecount ){
	$item_body = "<div style=\"font-size:10pt;text-align:center;color:#666666;\">※　残念ですが、該当商品がございません。<br /><br />お手数ですが違うカテゴリをお選び頂くか、検索窓から商品を再度ご指定下さい。</div>" ;
	$item_body .= '<div style="text-align:center;"><form method=get action="http://pt.afl.rakuten.co.jp/c/' .${form_id}. '/"><input type=hidden name=sv value=2><input type=hidden name=p value=0><table width=150 border=0 cellspacing=0 cellpadding=1 bgcolor=#bf0000><tr><td align=center><table cellspacing=0 cellpadding=3 border=0 width=100% bgcolor=#FFFFFF><tr><td bgcolor=#bf0000 align=center><b><font size=2 color=#FFFFFF>楽天で探す</font></b></td></tr><tr bgcolor=#fffcdd><td nowrap align=center><input type=text size=14 name=sitem value=></td></tr><tr bgcolor=#fffcdd><td align=center><input type=submit value=商品検索 name=submit></td></tr><tr><td nowrap align=center><img src=https://image.rakuten.co.jp/com/img/logo/base/w080.gif width=80 height=36 border=0 alt=楽天市場></td></tr></table></td></tr></table></form></div>' ;

} else {

	$item_body  = "全　<span style=\"font-size:15pt;color:#2020ff;\">" .$count. "</span>　点　　" ;
	$item_body .= "<span style=\"font-size:13pt;\">" .$first. " 〜 " .$last. "</span>　件表示中　　" ;
	$item_body .= "<span style=\"font-size:13pt;\">" .$page. " / " .$pagecount. "</span><br /><br />" ;
	if( $pagecount > 1 ){ $item_body .= $pagelink. "<br /><br />" ; }

	$itemcount = 0 ;
	foreach my $value ( @items ){

		%item = $value =~ m/<(.*?)>(.*?)<\/\1>/g ;

		$product   =  $item{'itemName'} ;
		$product = Unicode::Japanese->new($product, 'utf8' )->euc;

		$price     =  $item{'itemPrice'} ;
		$imagel    =  $item{'mediumImageUrl'} ;
		$imageflag =  $item{'imageFlag'} ;
		$tax       =  $item{'taxFlag'} ;
		$post      =  $item{'postageFlag'} ;
		$shopnm    =  $item{'shopName'} ;
		$shopnm = Unicode::Japanese->new($shopnm, 'utf8' )->euc;

		$shopurl   =  $item{'shopUrl'} ;

		$itemdetail =  $item{'itemCaption'} ;
		$itemdetail = Unicode::Japanese->new($itemdetail, 'utf8' )->euc;

		$itemdetail =~ s/　/ /g ;
		$itemdetail =  substr( $itemdetail , 0 , 500 ). "......." ;
		$link       =  $item{'affiliateUrl'} ;

		1 while $price =~ s/(.*\d)(\d\d\d)/$1,$2/;

		if( $imagel eq "" || $imageflag == "0" ){ $imagel = $no_gif ; }
		if( $tax == "0" ){ $tax = "<span style=\"color:#0000ff;font-weight:bold;\">税込</span>" ; } elsif( $tax == "1" ){ $tax = "<span style=\"color:#ff0000;font-weight:bold;\">税別</span>" ; } else { $tax = "" ; }
		if( $post == "0" ){ $post = "<span style=\"color:#0000ff;font-weight:bold;\">送料込</span>" ; } elsif( $post == "1" ){ $post = "<span style=\"color:#ff0000;font-weight:bold;\">送料別</span>" ; } else { $post = "" ; }

		if( $itemcount < $mykeynum ){ $mykeyword = $product ; }
		&PrintSkin ;
		$itemcount = $itemcount + 1;
	}

if( $pagecount > 1 ){ $item_body .= "<br />" .$pagelink. "<br /><br />" ; }

}


#********************************************************
# タイトルタグ　セット

$title = "｜" .$key. "｜" .$mykeyword. "[ " .$sitename. " ]" ;
$desc = $sub_desc ;
$keyw = $mykeyword ;

#********************************************************
#  SUBPAGE   HTML出力開始

print "Content-type: text/html\n";
print "Charset: " .$encode. "\n\n";

print <<SUBHTML;
<?xml version="1.0" encoding="${encode}" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja" lang="ja">
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=${encode}" />
	<meta http-equiv="Content-Language" content="ja" />
	<meta http-equiv="Content-Script-Type" content="text/javascript" />
	<meta http-equiv="Content-Style-Type" content="text/css" />
	<meta name="keywords" content="" />
	<meta name="Description" content="$title 「$sitename」" />
	<meta name="robots" content="index,follow" />
	<link rel="stylesheet" href="$css" />
	<script type="text/javascript" src="$js"></script>
<title>$title</title>
</head>
<body>


<div class="container">
	<h1>[ $key ] $mykeyword</h1>
	<p class="head" style="text-align:right">$sub_td_atama</p>
	 <div align="right">
		<li class="current_page_item"><a href="http://r4.41item.com/">Home</a></li>
		<li><a href="http://b2.41item.com/">biddersお勧め</a></li>
		<li><a href="http://a1.41item.com/">amazonお勧め</a></li>
		<li><a href="http://www.hoshii-shop.com/">yahooshoppingお勧め</a></li>
		<li><a href="http://i3.41item.com/">携帯1</a></li>
		<li><a href="http://a1.41item.com/i/">携帯2</a></li>



</div>
		<!-- start content keyw -->
		<div class="content main">
      <div align="left">$raku_ad </div>
      <em>$key関連商品の検索結果</em><br />
		
			$item_body
		
		
		 
		</div>
		<!-- end content keyw -->
	
		<!-- start content ads -->
		<div class="content ads">
	$kensaku_mado
	<br />
	<em>お勧め</em>
	$Ranking_SUBpage<br />
			<em>その他お勧めキーワード</em>
		<ul>
								<li>
								<div align="left"><a href="$engnurl/">[ TOP ]</a></div>
								</li>
	  					</ul>
							<div align="left">
							  <ul class="osusume">
							    <strong>$menulist</strong>
						    </ul>
							</div>
		</div>
		<!-- end content  ads -->
		<hr />
	
		<!-- start footer -->
	
</div>


  
  
  
    
SUBHTML

&Footer ;

print "</body>\n" ;
print "</html>\n" ;

exit;

}


# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
#━━━━━━━━━━━━━━━━━━━━━━━  FOOTER   ━━━━━━━━━━━━━━━━━━━━━━━━━━━
# ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

sub Footer{
print <<Copyright;
$footnikakuyo

Copyright
}

#━━━━━━━━━━━━━━━━━━━━━━━ 楽天ランキング ランダム表示 ━━━━━━━━━━━━━━━━━━

sub PrintRanking{

my @rakuten_cate = ("fashion","fashiongoods","accessories","gourmet","drink","wine","computer","electronics","sports","interior","daily","health","beauty","baby","flower","pet","hobby","media","auto","golf");

my $raku_link1 = @rakuten_cate[int(rand(20))] ;

	$Ranking_TOPpage = '<script type="text/javascript" src="http://xml.affiliate.rakuten.co.jp/?type=js&service=ichiba&hash=' .$user_id. '&genre=' .$raku_link1. '&num=10&p=1_FFCF00_666666_FFFFFF_006380"></script>' ;

	$Ranking_SUBpage = '<script type="text/javascript" src="http://xml.affiliate.rakuten.co.jp/?type=js&service=ichiba&hash=' .$user_id. '&genre=' .$raku_link1. '&num=10&p=1_FFCF00_666666_FFFFFF_006380"></script>' ;

}

#━━━━━━━━━━━━━━━━━━━━━━━  エラー表示 ━━━━━━━━━━━━━━━━━━━━━━━━━━

sub ERROR{

print "Content-type: text/html\n";
print "Charset: " .$encode.  "\n\n";
print "<?xml version=\"1.0\" encoding=\"${encode}\" ?>\n";
print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\"> \n";
print "<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"ja\" lang=\"ja\">\n";
print "<head>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=${encode}\" />\n";
print "<meta http-equiv=\"Content-Language\" content=\"ja\" />\n";
print "<meta http-equiv=\"Content-Script-Type\" content=\"text/javascript\" />\n";
print "<meta http-equiv=\"Content-Style-Type\" content=\"text/css\" />\n" ;
print "<title>ERROR</title>\n";
print "</head>\n";
print "<body><br /><div style=\"color:#666666;font-size:10pt;\">無効なアドレスが入力されました。お手数ですが、再度URLをご確認下さい。</div></body>\n" ;
print "</html>\n" ;

exit ;
}