#!/usr/local/bin/perl

#====================================================================
# お問合せフォームの表示
#====================================================================

#---------------------------初期設定--------------------------------

#◆環境設定

$NTDIR = "";

#---------------------------初期処理------------------------------

#◆各ファイルのパス

$page_file = 'insert.html';	#お問合せ入力フォーム

#◆拡張機能を使用
require '../lib/jcode.pl';

#◆データ処理ファイル読み込み
require '../tool/syori/inc_datasyori.pl';

#◆フォームよりデータの取得
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
	@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
{
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
}

#◆フォームデータ処理
foreach $pair (@pairs)
{
	($name, $value) = split(/=/, $pair);
	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/<!--(.|\n)*-->//g;
	&jcode'convert(*name,'sjis');
	&jcode'convert(*value,'sjis');

	$_ = $name;

	$FORM{$name} = $value;
}

#---------------------------メイン処理----------------------------

if (!open(PAGE,"$page_file")) { &error('設定ミス',"ファイルが設定された場所にありません。"); }

while (<PAGE>) { $page .= $_; }
close(PAGE);
	
#◆置換無し表示処理
$page =~ s/\[insert_$field[\w]+\]//g;
$page =~ s/\[rdo_$field[\w]+\]//g;

print "Content-type: text/html\n\n";
print $page;
exit;