#!/usr/bin/perl

	require "cgi-lib.pl";
	require "jcode.pl";

	&ReadParse;

	while(($key,$val) = each(%in)) {
		&jcode'h2z_euc(\$val);
		$$key = $val;
	}

	#配色データの取得
	require "color.inc";
	&Get_Color($admin);

	require "inquiry.inc";

	$PROGRAM = "inquiry.cgi";

	$CONF_FILE = "inquiry.conf";

	if(-e $CONF_FILE) {
		require $CONF_FILE;
	} else {
		require "user_0.inc";
		exit;
	}

	for($loop = 0;$loop < scalar(@LIST_NAME1);$loop++) {
		$LIST_COLOR[$loop] = $COLOR_A10;
	}

	if($entry) {
		$error = &Save_Datas($LOG_FILE);
		if($error) {
			require "inquiry_1.inc";
		} else {
			require "inquiry_3.inc";
		}
		exit;
	}

	if($clear) {
		&Clear_Datas;
	}

	if($check) {
		$error = &Check_Datas;
		if($error) {
			require "inquiry_1.inc";
		} else {
			require "inquiry_2.inc";
		}
	} else {
		require "inquiry_1.inc";
	}



# Copyright (C) 2007 All right reserved by FourLeaf-Clover