#!/usr/bin/perl

# =========================================================================
#	[ INDEX.CGI ] 作成者:株式会社ニーズ 日付:2004/01/21
#	 Description : お問い合わせ作成ツール
#	 Copyright (C) NEEZ Co.,Ltd. 2002 All Rights Reserved.
# ------------------------------------------------------------------------
#	※当ＣＧＩプログラムの著作権は株式会社ニーズに帰属します
#	　著作者に無断で改変・配布・譲渡する事は原則として禁止致します
# =========================================================================

	require '../lib/toms.pl';
	require '../lib/config.pl';
#	require 'sub.pl';

	# フォーム読み込み
	%FORM = &toms'read_input('sjis',1);

	# 回答種類
	@ANSW = ("",'テキストボックス','テキストアリア','ラジオボタン','チェックボックス');

	# クッキー読み込み
	$CK = &toms'read_cookie($cookie_header);
	%COOKIE = %$CK;

	# モード分岐
	$mode = $FORM{'MODE'};
	delete $FORM{'MODE'};
	goto "MODE".sprintf("%d",$mode);

# ------------------------------------
#	フォーム表示
# ------------------------------------
MODE0:

	# メンテスイッチ確認
	@sw = &toms'FileOPEN(0,"switch.dat");
	if ($sw[0] != 1){
		# メンテナンス中画面
		&toms'OutputTEXT(0,$CONTACT_DIR."const.html",\%FORM,\@OUT);
		exit;
	}

	# 問い合わせデータ読み込み
	@contact = &toms'FileOPEN(0,$CONTACT_DIR.'contact.dat');

	# 完成度検査
	foreach (@contact){
		@P = split /<>/,$_;
		if ($P[4] =~ /^[34]$/ && $P[5] eq ""){ &ErrPAGE('ラジオボタン、チェックボックスの回答は必ず設定して下さい'); }
	}

	# 並び替え
	foreach $a(0..@contact-1){
		@P = split /<>/,$contact[$a];
		if ($P[1] eq ""){ $xx = '99999999'; } else { $xx = $P[1]; }
		unshift @P,sprintf("%08d",$xx).sprintf("%03d",$P[0]);
		$contact[$a] = join('<>',@P);
	}
	@contact = sort @contact;
	foreach $a(0..@contact-1){
		@P = split /<>/,$contact[$a];
		$dummy = shift @P;
		$contact[$a] = join('<>',@P);
	}

	# 表示用変換
	undef @OUT;
	foreach (@contact){
		@P = split /<>/,$_;
		if ($P[2] eq 'ON'){ $P[2] = '<FONT color=#ff6600><strong>(必須)</strong></FONT>'; } else { $P[2] = ""; }
		if      ($P[4] == 1){
			# テキストボックス
			$P[10] = "<INPUT type=text name=\"Q$P[0]\" size=60>";
		} elsif ($P[4] == 2){
			# テキストエリア
			$P[10] = "<TEXTAREA name=\"Q$P[0]\" cols=40 rows=5></TEXTAREA>";
		} elsif ($P[4] == 3){
			# ラジオボタン
			@ans = split /:/,$P[5];
			foreach (@ans){ $P[10] .= "<INPUT type=radio name=\"Q$P[0]\" value=\"$_\">$_ "; }
		} elsif ($P[4] == 4){
			# チェックボックス
			@ans = split /:/,$P[5];
			foreach (@ans){ $P[10] .= "<INPUT type=checkbox name=\"Q$P[0]\_$_\" value=\"ON\">$_ "; }
		}
		push @OUT,join('<>',@P);
	}

	# 画面表示
	&toms'OutputTEXT(0,$CONTACT_DIR."base.html",\%FORM,\@OUT);
	exit;