--- orig/cat.cgi	Wed May 12 09:11:20 2004
+++ cat.cgi	Mon May 17 13:00:26 2004
@@ -3,6 +3,7 @@
 ;
 ##############################################
 # ＨＰギア
+# ver1.51(2004/05/11)見かけのURLを動的なものから静的なものへ変更
 # ver1.50(2002/07/10)
 # ver1.21(2002/04/21)
 # Copyright(c) 2002 Yaz HOSOGI. All Rights Reserved.
@@ -11,6 +12,7 @@
 # ※理由の如何を問わず「ショップギア」に連動しなくなるプログラムの改変は一切認めません。
 ##############################################
 require './jcode.pl';			#日本語コード変換ライブラリ
+use File::Basename;
 
 #プロ級仕様の場合、以下の値は変更可（特にディレクトリ等）
 $rec0	= "./data/item.dat";		#商品マスタのファイル名
@@ -18,6 +20,7 @@
 $rec2	= "./data/footer.dat";		#htmlフッタのファイル名
 $rec5	= "./data/cat.dat";		#カテゴリマスタのファイル名
 $rec6	= "./data/shop.dat";		#ショップ設定値のファイル名
+$rec7	= "./data/default.css";		#カスケーディングスタイルシートのファイル名
 
 #以下はshop.datから取得
 $data_shop_id	= "";		#ショップギアのショップギアＩＤ
@@ -39,10 +42,10 @@
 
 
 #■■■　ここから　■■■
-&put_header;	#■ヘッダ作成
 &get_pam;	#■入力値取得
 &de_code;	#■入力値デコード
 &mae;		#■前処理
+&put_header;	#■ヘッダ作成
 &main;		#■メイン処理
 &put_footer;	#■フッタ作成
 exit;
@@ -50,11 +53,25 @@
 
 #■ヘッダ作成
 sub put_header {
-	print "Content-type: text/html\n\n";
+	print "Content-Type: text/html\n\n";
 	if (open(TXT, "<$rec1")) {
 		@txt_header = <TXT>;
 		close(TXT);
-		print "@txt_header";
+		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;
+		}
 	}
 }
 
@@ -66,19 +83,28 @@
 
 #■入力値デコード
 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_c_page") { $pam_c_page = $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_c_page") { $pam_c_page = $value; }	#カテゴリ・ページ番号
+		}
+	} else {
+		$query_string	=  $ENV{'REQUEST_URI'};
+		$query_string	=~ s|$script_name/||;
+		($param, $pam_c_page) = split(/_/, $query_string);
+		$pam_c_page	= 1 if ($pam_c_page !~ /^[0-9]+$/);
 	}
 }
 
@@ -100,6 +126,13 @@
 	chop($data_detail = $txt[8]);	#商品情報の詳細HP表示
 	chop($data_txt_c = $txt[9]);	#カテゴリ一覧の文言
 	chop($data_txt_i = $txt[10]);	#商品一覧の文言
+	chop($data_txt_i = $txt[11]);	#商品一覧の文言
+	chop($data_txt_i = $txt[12]);	#商品一覧の文言
+	chop($data_txt_i = $txt[13]);	#商品一覧の文言
+	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]); #ショップ名
 }
 
 #■メイン処理
@@ -117,16 +150,17 @@
 	}
 	@txt = @txt_temp;
 	#ガイダンス出力
-	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 "｜<b>$data_cat一覧</b>\n";
-	print "｜<a href=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></tr></form></table>\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";
+	print "｜$data_cat一覧\n";
+	print "｜<a href=\"$script_dir/item.cgi\">$data_item一覧</a>\n";
+	print "｜<input type=\"text\" name=\"pam_keyword\" value=\"\">\n";
+	print "	<input type=\"submit\" value=\"$data_itemを検索\">\n";
+	print "</form></td></tr></table>\n";
 
 	if ($data_txt_c ne "") {
 		print "<br>\n";
-		print "<table width=$data_width><tr><td>\n";
+		print "<table class=\"cat_description\" summary=\"Category Description\"><tr><td>\n";
 		print "$data_txt_c<br>\n";
 		print "</td></tr></table><br>\n";
 	}
@@ -141,8 +175,8 @@
 		($cat,$img,$com,$nam,$hide) = split(/,/, $text);
 		$i_page++;
 		if ($pam_c_page * 10 - 10 < $i_page && $i_page < $pam_c_page * 10 + 1) {
-			print "$data_tbl";
-			print "<A HREF=item.cgi?pam_cat=$cat>$nam</A>　<small>[$cat]</small> ";
+			print '<table class="cat_table" summary="Category List"><tr class="cat_tr"><td class="cat_td">';
+			print "<span class=\"cat_name\"><a href=\"$script_dir/item.cgi/cat_$cat\">$nam</a></span>　<span class=\"cat_id\">[$cat]</span> ";
 			#該当する商品数を算出
 			if (open(CNT, "$rec0")) {
 				@cnt = <CNT>;
@@ -153,12 +187,12 @@
 				($i_item,$nichi,$cat2) = split(/,/, $cnt);
 				if ($cat2 eq $cat) { $num_item++ }
 			}
-			print "<small><b>$num_item</b>$data_item該当</small><br>";
+			print "<span class=\"cat_amount\"><strong>$num_item</strong>$data_item該当</span><br>";
 			#画像があれば表示
 			if ($img ne "") { 
-				print "<center><A HREF=item.cgi?pam_cat=$cat><IMG SRC=$data_dir/$img border=0></A></center><br>\n"; 
+				print "<div class=\"cat_image\"><a href=\"$script_dir/item.cgi/cat_$cat\"><img src=\"$script_dir/$data_dir/$img\" border=\"0\" alt=\"$nam\"></a></div><br>\n"; 
 			}
-			print "$com<br>";
+			print "<div class=\"cat_comment\">$com</div><br>";
 			print "</td></tr></table><br>\n";
 		}
 	}
@@ -168,22 +202,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 - 10 < $ctr_num; $i++) {
 		if ($i eq $pam_c_page && $i ne 1) {
 			$i_temp = $i - 1;
-			print "<A HREF=\"cat.cgi?pam_c_page=$i_temp\">前へ</a> ";
+			print "<a href=\"$script_name/page_$i_temp\">前へ</a> ";
 		}
 	}
 	#12345を表示
 	for ($i = 1; $i * 10 - 10 < $ctr_num; $i++) {
 		if ($i eq $pam_c_page) {
-			print "<b>$i</b> ";
+			print "<strong>$i</strong> ";
 		} else {
-			print "<A HREF=\"cat.cgi?pam_c_page=$i\">$i</a> ";
+			print "<a href=\"$script_name/page_$i\">$i</a> ";
 		}
 	}
 	#「次へ」を表示
@@ -191,11 +225,11 @@
 	for ($i = 1; $i * 10 - 10 < $ctr_num; $i++) {
 		if ($i eq $pam_c_page && $i ne $i_last) {
 			$i_temp = $i + 1;
-			print "<A HREF=\"cat.cgi?pam_c_page=$i_temp\">次へ</a> ";
+			print "<a href=\"$script_name/page_$i_temp\">次へ</a> ";
 		}
 	}
-	print "  <small>全<b>$ctr_num</b>$data_cat</small>\n";
-	print "</td></tr></form></table><br>\n";
+	print " <span class=\"page_total\">全<strong>$ctr_num</strong>$data_cat</span>\n";
+	print "</td></tr></table><br>\n";
 }
 
 #■フッタ作成
@@ -203,7 +237,10 @@
 	if (open(TXT, "<$rec2")) {
 		@txt_footer = <TXT>;
 		close(TXT);
-		print "@txt_footer";
+		foreach (@txt_footer) {
+			print;
+		}
+#		print "@txt_footer";
 	}
 }
 
@@ -211,7 +248,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;