--- orig/item.cgi	Wed May 12 09:21:06 2004
+++ item.cgi	Mon May 17 15:15:54 2004
@@ -3,6 +3,7 @@
 ;
 ##############################################
 # ＨＰギア
+# ver1.51(2004/05/11)見かけのURLを動的なものから静的なものへ変更
 # ver1.50(2002/07/10)
 # ver1.40(2002/05/14)商品一覧の最大5列対応
 # ver1.21(2002/04/21)
@@ -12,6 +13,7 @@
 # ※理由の如何を問わず「ショップギア」に連動しなくなるプログラムの改変は一切認めません。
 ##############################################
 require './jcode.pl';			#日本語コード変換ライブラリ
+use File::Basename;
 
 #プロ級仕様の場合、以下の値は変更可（特にディレクトリ等）
 $rec0	= "./data/item.dat";		#商品マスタのファイル名
@@ -19,6 +21,7 @@
 $rec2	= "./data/footer.dat";		#htmlフッタのファイル名
 $rec5	= "./data/cat.dat";		#カテゴリマスタのファイル名
 $rec6	= "./data/shop.dat";		#ショップ設定値のファイル名
+$rec7	= "./data/default.css";		#カスケーディングスタイルシートのファイル名
 
 #以下はshop.datから取得
 $data_shop_id	= "";		#ショップギアのショップギアＩＤ
@@ -40,10 +43,10 @@
 
 
 #■■■　ここから　■■■
-&put_header;	#■ヘッダ作成
 &get_pam;	#■入力値取得
 &de_code;	#■入力値デコード
 &mae;		#■前処理
+&put_header;	#■ヘッダ作成
 &main;		#■メイン処理
 &put_footer;	#■フッタ作成
 exit;
@@ -54,8 +57,57 @@
 	print "Content-type: text/html\n\n";
 	if (open(TXT, "<$rec1")) {
 		@txt_header = <TXT>;
+
+		if ($pam_item ne "") {
+
+			if (open(TXT, "<$rec0")) {
+				@txt = <TXT>;
+				close(TXT);
+			}
+
+			@txt_temp;
+
+			foreach $text (sort @txt) {
+				($i_item,$nichi,$cat,$img,$com,$i_name,$i_tanka,$i_price,$i_zaiko,$i_suumei,$i_suutan,$i_suukai,$i_suuowa,$i_bi1mei,$i_bi1[0],$i_bi1[1],$i_bi1[2],$i_bi1[3],$i_bi1[4],$i_bi1[5],$i_bi1[6],$i_bi1[7],$i_bi1[8],$i_bi1[9],$i_bi1[10],$i_bi1[11],$i_bi1[12],$i_bi1[13],$i_bi1[14],$i_bi1[15],$i_bi1[16],$i_bi1[17],$i_bi1[18],$i_bi1[19],$i_bi2mei,$i_bi2[0],$i_bi2[1],$i_bi2[2],$i_bi2[3],$i_bi2[4],$i_bi2[5],$i_bi2[6],$i_bi2[7],$i_bi2[8],$i_bi2[9],$i_bi2[10],$i_bi2[11],$i_bi2[12],$i_bi2[13],$i_bi2[14],$i_bi2[15],$i_bi2[16],$i_bi2[17],$i_bi2[18],$i_bi2[19],$i_bi3mei,$i_bi3[0],$i_bi3[1],$i_bi3[2],$i_bi3[3],$i_bi3[4],$i_bi3[5],$i_bi3[6],$i_bi3[7],$i_bi3[8],$i_bi3[9],$i_bi3[10],$i_bi3[11],$i_bi3[12],$i_bi3[13],$i_bi3[14],$i_bi3[15],$i_bi3[16],$i_bi3[17],$i_bi3[18],$i_bi3[19],$i_keyword,$hide) = split(/,/, $text);
+				if ($i_item eq $pam_item) {
+					last;
+				}
+			}
+
+			foreach (@txt_header) {
+				if (/__DESCRIPTION__/i) {
+					s|__DESCRIPTION__|$com|io;
+				}
+				if (/__CSS__/i) {
+					s|__CSS__|$script_dir/$rec7|io;
+				}
+				if (/__KEYWORDS__/i) {
+					s|__KEYWORDS__|$i_name|io;
+				}
+				if (/__TITLE__/i) {
+					s|__TITLE__|$i_name|io;
+				}
+				print;
+			}
+
+		} else {
+			foreach (@txt_header) {
+				if (/__DESCRIPTION__/i) {
+					s|__DESCRIPTION__|$data_shop_name|io;
+				}
+				if (/__CSS__/i) {
+					s|__CSS__|$script_dir/$rec7|io;
+				}
+				if (/__KEYWORDS__/i) {
+					s|__KEYWORDS__,||io;
+				}
+				if (/__TITLE__/i) {
+					s|__TITLE__|$data_shop_name|io;
+				}
+				print;
+			}
+		}
 		close(TXT);
-		print "@txt_header";
 	}
 }
 
@@ -67,19 +119,46 @@
 
 #■入力値デコード
 sub de_code {
-	@pairs = split(/&/,$buf2);
-	foreach $pair (@pairs) {
-		($name,$value) = split(/=/,$pair);
-		$value =~ tr/+/ /;
-		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
-		$name =~ tr/+/ /;
-		$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
-		&jcode'convert(*name,'sjis'); &jcode'convert(*value,'sjis');
-		if ($value =~ /\r\n/) { $value =~ s/\r//g; }
-		elsif ($value =~ /\r/) { $value =~ s/\r/\n/g; }
-		if ($name eq "pam_i_page") { $pam_i_page = $value; }		#商品ページ番号
-		if ($name eq "pam_cat")    { $pam_cat = $value; }		#カテゴリ番号
-		if ($name eq "pam_item")   { $pam_item = $value; }		#商品番号
+	$script_name	=  $ENV{'SCRIPT_NAME'};
+	$request_uri	=  $ENV{'REQUEST_URI'};
+	$script_dir	=  dirname($script_name);
+
+	if ($ENV{'QUERY_STRING'} =~ /=/) {
+		@pairs = split(/&/,$buf2);
+		foreach $pair (@pairs) {
+			($name,$value) = split(/=/,$pair);
+			$value =~ tr/+/ /;
+			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+			$name =~ tr/+/ /;
+			$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+			&jcode'convert(*name,'sjis'); &jcode'convert(*value,'sjis');
+			if ($value =~ /\r\n/) { $value =~ s/\r//g; }
+			elsif ($value =~ /\r/) { $value =~ s/\r/\n/g; }
+			if ($name eq "pam_i_page") { $pam_i_page = $value; }		#商品ページ番号
+			if ($name eq "pam_cat")    { $pam_cat = $value; }		#カテゴリ番号
+			if ($name eq "pam_item")   { $pam_item = $value; }		#商品番号
+		}
+	} else {
+		$query_string	=  $ENV{'REQUEST_URI'};
+		$query_string	=~ s|$script_name/||;
+
+		if ($query_string eq $script_name) {
+			$pam_i_page	= 1;
+		} else {
+			(@param)	= split(/\//, $query_string);
+			foreach (@param) {
+				if (/cat/) {
+					($key_cat, $pam_cat) = split(/_/);
+				}
+				if (/page/) {
+					($key_page, $pam_i_page) = split(/_/);
+				}
+				if (/item/) {
+					($key_item, $pam_item) = split(/_/);
+				}
+			}
+			$pam_i_page	= 1  if ($pam_i_page	!~ /^[0-9]+$/);
+		}
 	}
 }
 
@@ -104,6 +183,7 @@
 	chop($data_my_cat = $txt[11]);	#オリジナルのカテゴリ用HPを利用したい場合
 	chop($data_buy_img = $txt[12]);	#購入ボタンを画像にしたい場合
 	chop($data_img_div = $txt[13]);	#商品画像のセンタリング
+	chop($data_shop_name = $txt[14]);	#ショップ名
 }
 
 #■メイン処理
@@ -125,30 +205,30 @@
 		$temp = "（「$c_name」$data_cat内）";
 	}
 	#ガイダンス出力
-	print "<table width=$data_width><tr><td><form action=\"item_search.cgi\" method=\"get\"><tr><td>\n";
-	print "｜<a href=$data_home>home</a>\n";
+	print "<table class=\"guide\" summary=\"Guidance\"><tr><td><form action=\"$script_dir/item_search.cgi\" method=\"GET\">\n";
+	print "｜<a href=\"$script_dir/data/$data_home\">home</a>\n";
 	if ($data_my_cat eq "") {
-		print "｜<a href=cat.cgi>$data_cat一覧</a>\n";	#通常どおり自動作成catへのリンク
+		print "｜<a href=\"$script_dir/cat.cgi\">$data_cat一覧</a>\n";	#通常どおり自動作成catへのリンク
 	} else {
-		print "｜<a href=$data_my_cat>$data_cat一覧</a>\n";
+		print "｜<a href=\"$data_my_cat\">$data_cat一覧</a>\n";
 	}
 
 	if ($pam_cat eq "" && $pam_item eq "") {
-		print "｜<b>$data_item一覧</b>\n";
+		print "｜$data_item一覧\n";
 	} else {
-		print "｜<a href=item.cgi>$data_item一覧</a>\n";
+		print "｜<a href=\"$script_dir/item.cgi\">$data_item一覧</a>\n";
 	}
-	print "｜<input type=\"text\" name=\"pam_keyword\" value=\"\" size=\"12\"><input type=\"submit\" value=\"$data_itemを検索\">\n";
-	print "</td></form>\n";
-	print "<form action=\"http://www.shopgear.ne.jp/cgi-bin/order_item_step1.cgi\" method=\"post\"><td>";
+	print "｜<input type=\"text\" name=\"pam_keyword\" value=\"\"> <input type=\"submit\" value=\"$data_itemを検索\">\n";
+	print "</form></td><td>\n";
+	print "<form action=\"http://www.shopgear.ne.jp/cgi-bin/order_item_step1.cgi\" method=\"POST\">";
 	print "<input type=\"hidden\" name=\"_shop_id\" value=\"$data_shop_id\">";
 	print "<input type=\"hidden\" name=\"ORDSTEP\" value=\"step1\">";
-	print "<input type=\"submit\" value=\"カート内表\示\">\n";
-	print "</td></tr></form></table>\n";
+	print "｜<input type=\"submit\" value=\"カート内表\示\">\n";
+	print "</form></td></tr></table>\n";
 	#商品一覧に文言を表示する（商品詳細HPの時は表示しない）
 	if ($data_txt_i ne "" && $pam_item eq "") {
 		print "<br>\n";
-		print "<table width=$data_width><tr><td>\n";
+		print "<table class=\"list_description\" summary=\"List Description\"><tr><td>\n";
 		print "$data_txt_i<br>\n";
 		print "</td></tr></table><br>\n";
 	}
@@ -225,22 +305,22 @@
 
 #◆サブ処理（ページリンクを出力）
 sub sub_link {
-	print "<table width=$data_width><tr><td>\n";
+	print "<table class=\"page_link\" summary=\"Page Link\"><tr><td>\n";
 	print "Page ";
 	#$iはページ数
 	#「前へ」を表示
 	for ($i = 1; $i * 10 * $retsu - 10 * $retsu < $ctr_num; $i++) {
 		if ($i eq $pam_i_page && $i ne 1) {
 			$i_temp = $i - 1;
-			print "<A HREF=\"item.cgi?pam_cat=$pam_cat&pam_i_page=$i_temp\">前へ</a> ";
+			print "<a href=\"$script_dir/item.cgi/cat_$pam_cat/page_$i_temp\">前へ</a> ";
 		}
 	}
 	#12345を表示
 	for ($i = 1; $i * 10 * $retsu - 10 * $retsu < $ctr_num; $i++) {
 		if ($i eq $pam_i_page) {
-			print "<b>$i</b> ";
+			print "<strong>$i</strong> ";
 		} else {
-			print "<A HREF=\"item.cgi?pam_cat=$pam_cat&pam_i_page=$i\">$i</a> ";
+			print "<a href=\"$script_dir/item.cgi/cat_$pam_cat/page_$i\">$i</a> ";
 		}
 	}
 	#「次へ」を表示
@@ -248,13 +328,13 @@
 	for ($i = 1; $i * 10 * $retsu - 10 * $retsu < $ctr_num; $i++) {
 		if ($i eq $pam_i_page && $i ne $i_last) {
 			$i_temp = $i + 1;
-			print "<A HREF=\"item.cgi?pam_cat=$pam_cat&pam_i_page=$i_temp\">次へ</a> ";
+			print "<a href=\"$script_dir/item.cgi/cat_$pam_cat/page_$i_temp\">次へ</a> ";
 		}
 	}
 	if ($pam_cat eq "") {
-		print "  <small>全<b>$ctr_num</b>$data_item</small><br>\n";
+		print "  <span class=\"page_total\">全<strong>$ctr_num</strong>$data_item</span><br>\n";
 	} else {
-		print "  <small>全<b>$ctr_num</b>$data_item（<b>$c_name</b>$data_cat内）</small><br>\n";
+		print "  <span class=\"page_total\">全<strong>$ctr_num</strong>$data_item（<strong>$c_name</strong>$data_cat内）</span><br>\n";
 	}
 	print "</td></tr></table><br>\n";
 }
@@ -270,32 +350,32 @@
 
 #◆サブ処理（formタグの出力１）
 sub sub_form1 {
-	print "$data_tbl";	#テーブルの形状
+	print '<table class="item_table" summary="Item"><tr class="item_tr"><td class="item_td">';
 	$_ = $i_price; s/\G((?:^-)?\d{1,3})(?=(?:\d\d\d)+(?!\d))/$1,/g; $i_price_format = $_;	#金額桁数の整形
-	print "$i_name";
-	if ($i_tanka ne "") { 	print "（$i_tanka）"; }
-	print "  \\$i_price_format　<small>[$cat-$i_item]</small><br>";
+	print "<h1><span class=\"item_name\">$i_name</span></h1>";
+	if ($i_tanka ne "") { 	print "<span class=\"item_unit\">（$i_tanka）</span>"; }
+	print "  <span class=\"item_price\">\\$i_price_format</span>　<span class=\"item_id\">[$cat-$i_item]</span><br>";
 	#画像（複数可）
 	if ($img ne "") {
 		@imgs = split(/::/,$img);
 		foreach $imgs (@imgs) {
 			if ($data_img_div eq "") {
-				print "<div align=\"center\"><IMG SRC=\"$data_dir/$imgs\"></div><br>";
+				print "<div class=\"item_image\"><img src=\"$script_dir/$data_dir/$imgs\" alt=\"$i_name\"></div><br>";
 			} else {
-				print "<div align=\"$data_img_div\"><IMG SRC=\"$data_dir/$imgs\"></div><br>";
+				print "<div align=\"$data_img_div\"><img src=\"$script_dir/$data_dir/$imgs\" alt=\"$i_name\"></div><br>";
 			}
 		}
 	}
-	print "$com<br>";
+	print "<span class=\"item_comment\">$com</span><br>";
 	#↓ここからformタグ
-	print "<form action=\"http://www.shopgear.ne.jp/cgi-bin/order_item_step1.cgi\" method=\"post\">";
+	print "<form action=\"http://www.shopgear.ne.jp/cgi-bin/order_item_step1.cgi\" method=\"POST\">";
 	print "<input type=\"hidden\" name=\"_shop_id\" value=\"$data_shop_id\">";
 	print "<input type=\"hidden\" name=\"_item\" value=\"$i_name@\\$i_price\">";
 	print "<input type=\"hidden\" name=\"_zaiko\" value=\"$i_zaiko\">";
 	#ここから下は右寄せ
-	print "<DIV ALIGN=\"RIGHT\">";
+	print "<div class=\"item_form\">";
 	#在庫管理番号がある場合のみ数量表示
-	if ($i_zaiko ne "") { print "在庫数 <IMG SRC=\"http://www.shopgear.ne.jp/cgi-bin/stock.cgi?gearid=$data_shop_id&zaikoid=$i_zaiko\"><br>"; }
+	if ($i_zaiko ne "") { print "在庫数 <img src=\"http://www.shopgear.ne.jp/cgi-bin/stock.cgi?gearid=$data_shop_id&zaikoid=$i_zaiko\" alt=\"在庫数\"><br>"; }
 	print "$i_suumei";	#名称（例：購入数）
 	#数量タグ
 	if ($i_suukai eq $i_suuowa || $i_suuowa eq "") {
@@ -353,36 +433,36 @@
 	if ($data_buy_img eq "") {
 		print "<input type=\"submit\" value=\"$data_button\">";
 	} else {
-		print "<input type=\"image\" src=\"$data_dir/$data_buy_img\" name=\"submit\">";
+		print "<input type=\"image\" src=\"$script_dir/$data_dir/$data_buy_img\" name=\"submit\" alt=\"カゴへ\">";
 	}
 	#ここまで右寄せ
-	print "</DIV>";
-	print "</td></tr></form></table><br>\n";
+	print "</div></form>";
+	print "</td></tr></table><br>\n";
 }
 
 #◆サブ処理（formタグの出力２）
 sub sub_form2 {
 	#例えば、5列あった場合、1列目の時のみtableタグを出力
+	$temp_w = int(100 / $retsu);
 	if ($ctr_retsu eq 1) {
-		print "$data_tbl";	#テーブルの形状<table><tr><td>
+		print "<table class=\"list_table\" summary=\"Item List\"><tr class=\"list_tr\"><td width=\"$temp_w%\" class=\"list_td\">";
 	} else {
-		$temp_w = 100 / $retsu;
-		print "<td width=$temp_w%>";
+		print "<td width=\"$temp_w%\" class=\"list_td\">";
 	}
 
-	print "<a href=./item.cgi?pam_item=$i_item>";
+	print "<span class=\"list_name\"><a href=\"$script_dir/item.cgi/item_$i_item\">";
 	$_ = $i_price; s/\G((?:^-)?\d{1,3})(?=(?:\d\d\d)+(?!\d))/$1,/g; $i_price_format = $_;	#金額桁数の整形
-	print "$i_name";
-	if ($i_tanka ne "") { 	print "（$i_tanka）"; }
-	print "  \\$i_price_format</a>　<small>[$cat-$i_item]</small><br>";
+	print "$i_name" . "</a></span>";
+	if ($i_tanka ne "") { 	print "<span class=\"item_unit\">（$i_tanka）</span>"; }
+	print "  <span class=\"item_price\">\\$i_price_format</span>　<span class=\"item_id\">[$cat-$i_item]</span><br>";
 	#画像（複数可）
 	if ($img ne "" && substr($data_detail,5,5) eq "image") {
 		@imgs = split(/::/,$img);
 		foreach $imgs (@imgs) {
 			if ($data_img_div eq "") {
-				print "<div align=\"center\"><a href=./item.cgi?pam_item=$i_item><IMG SRC=\"$data_dir/s_$imgs\" border=0></a></div><br>\n";
+				print "<div class=\"item_image\"><a href=\"$script_dir/item.cgi/item_$i_item\"><img src=\"$script_dir/$data_dir/s_$imgs\" border=\"0\" alt=\"$i_name\"></a></div><br>\n";
 			} else {
-				print "<div align=\"$data_img_div\"><a href=./item.cgi?pam_item=$i_item><IMG SRC=\"$data_dir/s_$imgs\" border=0></a></div><br>\n";
+				print "<div align=\"$data_img_div\"><a href=\"$script_dir/item.cgi/item_$i_item\"><img src=\"$script_dir/$data_dir/s_$imgs\" border=\"0\" alt=\"$i_name\"></a></div><br>\n";
 			}
 		}
 	}
@@ -415,7 +495,9 @@
 	if (open(TXT, "<$rec2")) {
 		@txt_footer = <TXT>;
 		close(TXT);
-		print "@txt_footer";
+		foreach (@txt_footer) {
+			print;
+		}
 	}
 }
 
@@ -423,7 +505,7 @@
 sub error {
         print "<font color\=red>*** ERROR ***</font> \n";
         print "$_[0]\n";
-        print "<BR><BR>\n";
+        print "<br><br>\n";
 	print "ブラウザの「戻る」ボタンで前の画面に移動して下さい。<br>\n";
 	&put_footer;	#フッタ作成
 	exit;