#!/usr/bin/perl

# Copyright (C) 2001-2004 All right reserved by Shinya Kondo ( CGI KON )

	require "cgi-lib.pl";
	require "user.inc";

	&ReadParse;

	while(($key,$val) = each(%in)) {
		$$key = $val;
	}

	$PROGRAM = "user.cgi";

	$found = 0;
	if($admin) {
		$CONF_FILE = "admin.conf";
		$DATA_FILE = "admin.tsv";
		$found = 1 if(-e $CONF_FILE);
	} else {
		$CONF_FILE = "user.conf";
		$DATA_FILE = "user.tsv";
		$found = 1 if(-e $CONF_FILE && -e $DATA_FILE);
	}

	if($found) {
		require $CONF_FILE;
		$VAL_NOTES =~ s/\n/<BR>/g;
	} else {
		require "user_0.inc";
		exit;
	}

	$ITEM_FILE = "user_1".$VAL_TYPE1.".inc";
	$TEMP_FILE = "user_2".$VAL_TYPE2.".inc";

	if(-e $ITEM_FILE && -e $TEMP_FILE) {
		require $TEMP_FILE;
	} else {
		require "user_0.inc";
	}

# Copyright (C) 2001-2004 All right reserved by Shinya Kondo ( CGI KON )