#!/usr/local/bin/perl
use lib qw(/usr/home/ultra1/usr/local/lib/perl5 /usr/home/ultra1/usr/local/lib/perl5/site_perl);
use Jcode;
use CGI qw(:cgi-lib);
&ReadParse;

require "./shop.pl";
while (($k,$v) = each %in) {
	Jcode::convert(\$v,"euc");
	$in{$k} = $v;
}

#################################################################
# ¤³¤Î´Ê°×Ç㤤ʪäÆ¥¹¥¯¥?ץȤϡ¢½é´?ßÄê¤ò¼«Ê¬¤Ç¹Ô¤¦¾?ç¡¢      #
# SPEEDEX  ¥µ¡¼¥Ð¡¼¾å¤Ç¤Ï̵ÎÁ¤ÇÍøÍѤǤ­¤Þ¤¹¡£            #
# ¤Þ¤¿¡¢»öÁ°¤ËÏ¢Íí¤ò夭¡¢²?Äî¬Ç̵ÎÁÍøÍѸ¢¤? SPEEDEX ¤Ë #
# Í¿¤¨¤?³¤È¤ËƱ°Õ¤¤¤¿¤À¤±¤??ç¤Ï¡¢²?Äê¤Ï¼«Í³¤Ç¤¹¡£            #
# 																															#
# 		¥»¥Ã¥È¥¢¥Ã¥×																							#
# 		¥â¥¸¥å¡¼¥?Î¥¤¥ó¥¹¥È¡¼¥?																	#
# 	¥â¥¸¥å¡¼¥?																									#
# 	cgi-lib Base64 Jcode ¤¬¥¤¥ó¥¹¥È¡¼¥?µ¤?Ƥ¤¤Ê¤¤¾??					#
# 	¥³¥ó¥½¡¼¥?èÌ̤ǡ¢°Ê²¼¤Î vcpan ¥³¥Þ¥ó¥É¤ÇɬÍפʥ⥸¥å¡¼¥?? #
# 	¥¤¥ó¥¹¥È¡¼¥?·¤Æ¤¯¤À¤µ¤¤¡£																	#
# 																															#
# 	vcpan -f ExtUtils::MakeMaker																#
# 	vcpan -f File::Spec																					#
# 	vcpan -f Text::EtText																				#
# 	vcpan -f IO::String																					#
# 	vcpan -f HTML::WebMake																			#
# 	vcpan -f MIME::Base64																				#
# 	vcpan -f Jcode																							#
# 																															#
# 		¥Õ¥¡¥¤¥?γÎǧ¤ÈÊÔ½¸																			#
# 		¥Õ¥¡¥¤¥?ÎÊÔ½¸¤Ï EUC (²?¹Ô CR+LF) ¤Ç¹Ô¤Ã¤Æ¤¯¤À¤µ¤¤¡£			#
# 		FTP ¤Ï ASCII ¥â¡¼¥É¤Ç¹Ô¤Ã¤Æ¤¯¤À¤µ¤¤¡£											#
# 																															#
# 		ɬ¿Ü¥Õ¥¡¥¤¥?£°Ê²¼¤Î¥Õ¥¡¥¤¥?Ïɬ¿Ü¤Ç¤¹¡£									#
# 	basket.cgi, shop.pl, pref.csv, product.dat									#
# 	¾åµ­¥Õ¥¡¥¤¥?ÏƱ°?Ç¥£¥?¯¥È¥ê¡¼¤Ë¤¢¤ê¤Þ¤¹¡£								#
# 																															#
# 	basket.cgi	¤³¤Î¥Õ¥¡¥¤¥?Ǥ¹¡£															#
# 	¤³¤Î¥Õ¥¡¥¤¥?ǤÎÊѹ¹²Õ½ê¤Ï°Ê²¼¤Î°?Õ½ê¤Î¤ß¤Ç¤¹¡£						#
# 	£²¹ÔÌܤΠ***** ¤ÎÉôʬ¤ò¤ª»È¤¤¤Î¥µ¡¼¥Ð¡¼Ì¾¤ËÊѹ¹¤·¤Æ¤¯¤À¤µ¤¤	#
# 																															#
# 	use lib qw(/usr/home/*****/usr/local/lib/perl5 							#
# 	/usr/home/*****/usr/local/lib/perl5/site_perl);							#
# 																															#
# 	shop.pl	¥Õ¥¡¥¤¥?																						#
# 	shop.pl	¥Õ¥¡¥¤¥?â¤Îµ­ºÜ¤Ë½¾¤Ã¤ÆÊÔ½¸¤·¤Æ¤¯¤À¤µ¤¤¡£					#
# 																															#
# 	pref.csv	¥Õ¥¡¥¤¥?																					#
# 	ÊÔ½¸¤ÎɬÍפϤ¢¤ê¤Þ¤»¤?																			#
# 																															#
# 	product.dat	¥Õ¥¡¥¤¥?																				#
# 	¸½ºß¤Ï¡¢¥µ¥ó¥×¥?¬Æ?¤Ã¤Æ¤¤¤Þ¤¹¡£														#
# 	¥µ¥ó¥×¥?ηÁ¼°¤ò¸«½¬¤Ã¤Æ¡¢°Ê²¼¤ò½çÈÖ¤ËȾ³Ñ¥«¥ó¥Þ¶èÀÚ¤ê¤Ç		#
# 		¾¦ÉÊ¥¸¥ã¥ó¥?³¡¼¥É¡Ê¥·¥ç¥Ã¥×¥³¡¼¥É¡Ë											#
# 		¾¦ÉÊ¥³¡¼¥É																								#
# 		¾¦ÉÊ̾																										#
# 		¾¦ÉÊñ²Á																									#
# 		¾¦ÉʽÅÎÌ																									#
# 	¾¦ÉÊ¥¸¥ã¥ó¥?³¡¼¥É¤Ï shop.pl ¤È°?פµ¤»¤Æ¤¯¤À¤µ¤¤¡£					#
#																																#
# 	how_to_pay, message ¤Î£²¥Õ¥¡¥¤¥?ÏǤ°Õ¤ËÊÔ½¸¤·¤Æ¤¯¤À¤µ¤¤¡£	#
# 	ÊÔ½¸¸å¤Ï¤³¤Î¥Õ¥¡¥¤¥?ÈƱ°?Ç¥£¥?¯¥È¥ê¡¼¤ËÃÖ¤¤¤Æ¤¯¤À¤µ¤¤¡£	#
# 		how_to_pay																								#
# 		¸ÜµÒ¤Ø¤Î¥á¡¼¥?ËÆ?¤?ÙʧÊ?Ë¡¤ËÉÕ¤¤¤Æ¤Î¤ªÃΤ餻¤Ç¤¹¡£			#
# 		µ­ºÜ¤µ¤?¿Ê¸¾Ï¤¬¤½¤Î¤Þ¤ÞÄ?¿Ê¸¤È¤Ê¤ê¤Þ¤¹¡£								#
# 		message																										#
# 		¸ÜµÒ¤Ø¤Î¥á¡¼¥?ËÆ?¤?½¤Î¾¤Î¤ªÃΤ餻¤Ç¤¹¡£								#
# 		µ­ºÜ¤µ¤?¿Ê¸¾Ï¤¬¤½¤Î¤Þ¤ÞÄ?¿Ê¸¤È¤Ê¤ê¤Þ¤¹¡£								#
# 																															#
################################################################# 

$address_owner = "";
$domain = "$uri";
$orderdat_dir = "$data_dir/orderdat";
$memberdir = "$data_dir/memberdat";
$passwd_file = "$data_dir/memberdat/passwd";
$passwd_file_tmp = "$data_dir/memberdat/passwd.tmp";
$passwd_keep = "$data_dir/memberdat/passwd.keep";
$how_to_pay_file = "./how_to_pay";
$message_file = "./message";
#---------------------------------------------------------------------------------------

#--------#
# ¥¯¥Ã¥­¡¼¤ò¥Á¥§¥Ã¥¯¤·¡¢order_num ¤ò·èÄꤹ¤?£
$cookies = $ENV{'HTTP_COOKIE'};

@cookie_pairs = split(/;/,$cookies);
foreach $cookie_pair (@cookie_pairs) {

	($name, $value) = split(/=/, $cookie_pair);
	$name =~ s/ //g;
	$cookie{$name} = $value;
}
while (($k,$v) = each %cookie) {
	Jcode::convert(\$v,"euc");
	$cookie{$k} = $v;
}

if (($cookie{domain} eq $domain) && ($cookie{Title} eq $title)) {
	unless ($in{order_num}) {
		if ($cookie{Order_num} ne "" || $cookie{Order_num} != 0) {
			$order_num = $cookie{Order_num};
		} else {
			&get_order_num;
		}
	} else {
		$order_num = $in{order_num};
	}
	unless ($in{user_num}) {
		if ($cookie{User_num}) {
			$user_num = $cookie{User_num};
		}
	} else {
		$user_num = $in{user_num};
	}
} else {
	&get_order_num;
}
$order_dat_file = "$data_dir/ordered/$order_num.dat";


#--------#
# $order_tmp_file ¥Õ¥¡¥¤¥?Ë order ¤ò½ñ¤­½Ð¤¹¡£

$order_tmp_file = "$data_dir/ordered/$order_num.tmp";
if (($in{Action} eq "ADPR") || ($in{Action} eq "BUYPR")){
	if (-e $order_tmp_file) {
		$warning_title = "Cannot open $order_tmp_file for add";
		open (ORDERDAT, ">>$order_tmp_file") || (&warning, exit(0));
		print ORDERDAT "$in{Store_Code},$in{Product_Code},$in{volume}\n";
		close ORDERDAT;
	} else {
		$warning_title = "Cannot open $order_tmp_file for new";
		open (ORDERDAT, ">$order_tmp_file") || (&warning, exit(0));
		print ORDERDAT "$in{Store_Code},$in{Product_Code},$in{volume}\n";
		close ORDERDAT;
	}
}
if ($in{Action} eq "ADPR") {
	&thanks_and_go_back;
} elsif ($in{Action} eq "BUYPR") {
	&show_order_conferm;
} elsif ($in{Action} eq "BASKET") {
	&show_basket;
} elsif ($in{Action} eq "CHECKOUT") {
	&show_checkout;
} elsif ($in{Action} eq "DELETE") {
	&delete;
} elsif ($in{Action} eq "GOBACK") {
	$wait = 0;
	&set_cookie;
	print "Content-type: text/html\n\n";
	&referer_back;
}elsif ($in{Action} eq "ENTRY") {
	&show_entry;
}

##########################################################
# &thanks_and_go_back;

sub thanks_and_go_back {


	&set_cookie;
	print "Content-type: text/html\n\n";
	$wait = 2;
	&referer_back;
	print "<HTML>\n";
	print "<HEAD>\n";
	print "<TITLE>¥¹¥È¥¢-¥Ç¥?: Æ«¼§´?</TITLE>\n";
	print "</HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
	print "\n";
	print "\n";
	print "\n";
	print "</HEAD>\n";
	&print_formatted_head;
	print "<BLOCKQUOTE>\n";
	print "$in{Product_Code} ¤? $in{volume} ¸Ä¥Ð¥¹¥±¥Ã¥È¤ËÆ?¤?Þ¤·¤¿¡£\n";
	print "<br>\n";
	print "¼«Æ°Åª¤Ë¡¢¥·¥ç¥Ã¥×¤Î¥È¥Ã¥×¥Ú¡¼¥¸¤ËÌá¤ê¤Þ¤¹¡£\n";
	print "<br>\n";
	print "Ìá¤?ʤ¤¾?ç¤Ï¥Ö¥é¥¦¥¶¤ÎÌá¤?Ü¥¿¥ó¤ò»È¤Ã¤Æ¤¯¤À¤µ¤¤¡£\n";
#	foreach $key (keys %cookie) {
#		print "$key: \n";
#		print "$cookie{$key}<br>\n";
#	}
	print "</BLOCKQUOTE>\n";
	&print_formatted_bottom;
}

##########################################################
# &set_cookie;

sub set_cookie {
	if (($order_num) && ($user_num)) {
		print "Set-Cookie: domain=$domain;\n";
		print "Set-Cookie: Title=$title;\n";
		print "Set-Cookie: Order_num=$order_num;\n";
		print "Set-Cookie: User_num=$user_num; \n";
	} elsif ($order_num) {
		print "Set-Cookie: domain=$domain;\n";
		print "Set-Cookie: Title=$title;\n";
		print "Set-Cookie: Order_num=$order_num; \n";
	} elsif ($user_num) {
		print "Set-Cookie: domain=$domain;\n";
		print "Set-Cookie: Title=$title;\n";
		print "Set-Cookie: User_num=$user_num; \n";
	}
}
##########################################################
# &referer_back;

sub referer_back {
	if ($in{Store_Code}) {
		$Store_Code = $in{Store_Code};
	} else {
		$Store_Code = $store_code;
	}
	if ($Store_Code) {
	print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"$wait;URL=http://$domain/$doc_dir/$Store_Code/\">\n";
	} else {
	print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"$wait;URL=http://$domain/$doc_dir/\">\n";
	}
}
##########################################################
# &print_formatted_head;

sub print_formatted_head {

	print "<BODY bgcolor=\"#ffffff\">\n";
	print "<center>\n";
	print "<TABLE BORDER = 0 CELLPADDING = 0 CELLSPACING = 0 WIDTH = \"100%\">\n";
	print "<TR><TD ALIGN = \"left\" VALIGN = \"middle\" BGCOLOR=\"#000000\" COLSPAN = \"2\">\n";
	print "<TABLE BORDER = 0 CELLPADDING = 4 CELLSPACING = 0 WIDTH = \"100%\">\n";
	print "<TR><TD ALIGN = \"left\" VALIGN = \"bottom\" BGCOLOR=\"#000000\" NOWRAP>\n";
	print "<a href = \"http://$uri/$doc_dir/entry_top.html\"><IMG SRC = \"http://$uri/$image_dir/account.gif\" ALT = \"Account\" BORDER = 0>&nbsp;\n";
	print "<a href = \"http://$uri/$doc_dir/prodlist.html\"><IMG SRC = \"http://$uri/$image_dir/prodlist.gif\" ALT = \"Product List\" BORDER = 0>&nbsp;\n";
	print "<a href = \"http://$uri/$cgi_dir/basket.cgi?Action=BASKET\"><IMG SRC = \"http://$uri/$image_dir/basket.gif\" ALT = \"Basket Contents\" BORDER = 0></a>\n";
	print "</TD><TD ALIGN = \"right\" VALIGN = \"bottom\">\n";
	print "<a href = \"http://$uri/$cgi_dir/basket.cgi?Action=CHECKOUT\"><IMG SRC = \"http://$uri/$image_dir/checkout.gif\" ALT = \"Checkout\" BORDER = 0></a>\n";
	print "</TD></TR>\n";
	print "</TABLE>\n";
	print "</TD></TR>\n";
	print "<TR>\n";
	print "<TD ALIGN = \"left\" VALIGN = \"top\" BGCOLOR=\"#eeeeee\">\n";
	print "<TABLE BORDER = 0 CELLPADDING = 10 CELLSPACING = 0>\n";
	print "<TR><TD ALIGN = \"left\" VALIGN = \"top\" NOWRAP>\n";
	print "<FONT FACE = \"\" SIZE = \"-2\">\n";
	print "<a href = \"http://$uri/$doc_dir/entry_top.html\">½ð̾¤·¤ÆÆ?Ź¤¹¤?</a>\n";
	print "<BR><BR>\n";
	$stores_length = @stores_name;
	for ($i = 0; $i < $stores_length; $i++) {
		print "<a href = \"http://$uri/$doc_dir/$stores_code[$i]/\">$stores_name[$i]</a>\n";
		print "<BR>\n";
	}
	print "</FONT>\n";
	print "</TD></TR>\n";
	print "</TABLE>\n";
	print "</TD>\n";
	print "<TD ALIGN = \"left\" VALIGN = \"top\" WIDTH = \"80%\" BGCOLOR=\"#ffffff\">\n";
	print "<BR>\n";

}
##########################################################
# &print_formatted_bottom

sub print_formatted_bottom {

	print "</TD></TR>\n";
	print "</TABLE>\n";
	print "</tr>\n";
	print "</table>\n";
	print "\n";
	print "\n";
	print "</BODY>\n";
	print "</HTML>\n";

}

##########################################################
# &show_order_conferm;

sub show_order_conferm {

	$product_code = $in{Product_Code};
	&read_product_file;
	&set_cookie;
	print "Content-type: text/html\n\n";
	$product_total = $target_Product_Cost * $in{volume};
	$commas_product_total = &commas ($product_total);
	$product_total_Weight = $target_Product_Weight * $in{volume};
	$commas_product_total_Weight = &commas ($product_total_Weight);
	print "<HTML>\n";
	print "<HEAD>\n";
	print "<TITLE>¥¹¥È¥¢-¥Ç¥?: Æ«¼§´?</TITLE>\n";
	print "</HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
	print "\n";
	print "\n";
	print "\n";
	print "</HEAD>\n";
	&print_formatted_head;
	print "<BLOCKQUOTE>\n";
	print "<center>\n";
	print "<font size = \"+1\"><b>¤´¹ØÆ?Í­Æñ¤¦¤´¤¶¤¤¤Þ¤¹¡£<br>¤´¹ØÆ?ÆâÍƤϰʲ¼¤Ç¤¹¡£<br>\n";
	print "</center>\n";
	print "<br>\n";
	print "<table>\n";
	print "<tr><td>¾¦ÉÊÈÖ¹?</td><td>¾¦ÉÊ̾</td><td>ñ²Á</td><td>¹ØÆ?¿?</td><td>¹ØÆ?³Û</td><td>ñ°Ì½ÅÎÌ</td><td>¹ØÆ?½ÅÎÌ</td></tr>\n";
	print "<tr><td>$target_Product_Code</td><td>$target_Product_Name</td><td>$target_Product_Cost</td><td>$in{volume}</td><td>$commas_product_total</td><td>$target_Product_Weight</td><td>$commas_product_total_Weight</td></tr>\n";
	print "</table>\n";
	print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
	print "<input type = \"hidden\" name = \"Action\" value = \"CHECKOUT\">\n";
	print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
	if ($user_num) {
		print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
	}
	print "<input type = \"submit\" value = \"¹ØÆ?¤ò·èÄꤷ¥Á¥§¥Ã¥¯¥¢¥¦¥È¤¹¤?">\n";
	print "</form>\n";
	print "<br>\n";
	print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
	print "<input type = \"hidden\" name = \"Action\" value = \"DELETE\">\n";
	print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
	if ($user_num) {
		print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
	}
	print "<INPUT TYPE = \"hidden\" NAME = \"Product_Code\" VALUE = \"$in{Product_Code}\">\n";
	print "<INPUT TYPE = \"hidden\" NAME = \"Store_Code\" VALUE = \"$in{Store_Code}\">\n";
	print "<input type = \"hidden\" name = \"volume\" value = \"$in{volume}\">\n";
	print "<input type = \"submit\" value = \"¤³¤Î¾¦ÉʤιØÆ?¤ò¼è¤?ä¹\">\n";
	print "</form>\n";
	print "<br>\n";
	print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
	print "<input type = \"hidden\" name = \"Action\" value = \"GOBACK\">\n";
	print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
	print "<INPUT TYPE = \"hidden\" NAME = \"Store_Code\" VALUE = \"$in{Store_Code}\">\n";
	if ($user_num) {
		print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
	}
	print "<input type = \"submit\" value = \"¾¤Î¾¦Éʤâ¹ØÆ?¤¹¤?">\n";
	print "</form>\n";
	print "</BLOCKQUOTE>\n";
	&print_formatted_bottom;
}

##########################################################
# &read_product_file;

sub read_product_file {

	if ($in{Store_Code}) {
		$Store_Code = $in{Store_Code};
	} elsif ($store_code) {
		$Store_Code = $store_code;
	}
	
	$product_file = "$data_dir/product.dat";

	unless (-e $product_file) {
		print "ɬÍפʥե¡¥¤¥?¬¸«¤Ä¤«¤ê¤Þ¤»¤ó¡£\n<a href =\"mailto:$owner_mail\">$owner_mail</a> ¤Ë¤ªÌ䤤¹ç¤?»²¼¤µ¤¤¡£$product_file \n";
		&warning;
		exit(0);
	} else {
		$warning_title = "Cannot open $product_file";
		open (PRODUCT, "$product_file") || (&warning, exit(0));
		$found_flg = 0;
		while (<PRODUCT>) {
			chomp;
			($Store_Code,$Product_Code,$Product_Name,$Product_Cost,$Product_Weight) = split (/,/,$_);
			if ($Product_Code eq $product_code) {
				$target_Product_Code = $Product_Code;
				$target_Product_Name = $Product_Name;
				$target_Product_Cost = $Product_Cost;
				$target_Product_Weight = $Product_Weight;
				$found_flg = $found_flg + 1;
				last;
			}
		}
		if ($found_flg == 0) {
			$warning_title = "¾¦Éʤ¬ÅÐÏ¿¤µ¤?Ƥ¤¤Þ¤»¤ó¡£\n<a href =\"mailto:$owner_mail\">$owner_mail</a> ¤Ë¤ªÌ䤤¹ç¤?»²¼¤µ¤¤¡£";
			&warning;
			exit(0);
		}
	}
}
##########################################################
# &show_entry;

sub show_entry {

	if ($in{Entry} eq "new") {
		&set_cookie;
		print "Content-type: text/html\n\n";
		print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"0;URL=http://$domain/$doc_dir/entry.html\">\n";
	} elsif ($in{Entry} eq "already") {
		unless (($in{user_num}) || ($in{passwd})) {
			$warning_title = "¤ªµÒÍÍÈÖ¹æ¤È¥Ñ¥¹¥?¼¥É¤ÎξÊ?¤¬É¬¿Ü¤Ç¤¹";
			&warning;
			exit(0);
		} elsif ($in{user_num} =~ /[^0-9]/) {
			$warning_title = "¤ªµÒÍÍÈÖ¹æ¤Ë¸í¤ê¤¬¤¢¤ê¤Þ¤¹";
			&warning;
			exit(0);
		} else {
			if (-e $passwd_file) {
				$warning_title = "Cannot open password file";
				open (PASSWD, $passwd_file) || (&warning, exit(0));
				while (<PASSWD>) {
					chomp;
					($file_user_num, $file_passwd) = split (/,/,$_);
					if ($file_user_num eq $in{user_num}) {
						if ($in{passwd} eq $file_passwd) {
							&read_user_profile_and_show;
						} else {
							$warning_title = "¥Ñ¥¹¥?¼¥É¤¬°ã¤¤¤Þ¤¹";
							&warning;
							exit(0);
						}
						last;
					}
				}
			} else {
				$warning_title = "Cannot find password file";
				&warning;
				exit(0);
			}
		}
	} elsif ($in{Entry} eq "input") {
		&data_check_a;
		&get_user_num;
		$p_number_now = $in{pref};
		&get_pref_name;
		&show_profile_confirm;
	}	elsif ($in{Entry} eq "confirm") {
		&keep_passwd;
		&keep_profile;
		unless ($order_num) {
			# index ¥Ú¡¼¥¸¤òɽ¼¨
			&set_cookie;
			print "Content-type: text/html\n\n";
			print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"2;URL=http://$domain/$doc_dir/index.html\">\n";
			print "<HTML>\n";
			print "<BODY>\n";
			print "ÅÐÏ¿Í­Æñ¤¦¤´¤¶¤¤¤Þ¤¹¡£<BR>\n";
			print "¼«Æ°Åª¤Ë¥È¥Ã¥×¥Ú¡¼¥¸¤ËÌá¤ê¤Þ¤¹¡£<BR>\n";
			print "Ìá¤é¤Ê¤¤¾?ç¤Ï¡¢°Ê²¼¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<BR>\n";
			print "<a href = \"http://$domain/$doc_dir/index.html\">¥È¥Ã¥×¥Ú¡¼¥¸</a><BR>\n";
			print "</BODY>\n";
			print "</HTML>\n";
		} else {
			&show_checkout;
		}
	}
}
##########################################################
# &show_profile_confirm:

sub show_profile_confirm {

	&set_cookie;
	print "Content-type: text/html\n\n";
	print "<HTML>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<HEAD>\n";
	print "<TITLE>¥¹¥È¥¢-¥Ç¥?: ¸ÜµÒÅÐÏ¿³Îǧ</TITLE>\n";
	print "</HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";	print "</HEAD>\n";
	&print_formatted_head;
	print "<BLOCKQUOTE>\n";
	print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
	print "<input type = \"hidden\" name = \"Entry\" value = \"confirm\">\n";
	print "<input type = \"hidden\" name = \"Action\" value = \"ENTRY\">\n";
	print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
	print "<center>\n";
	print "<font size = \"+2\"><b>¤ªµÒÍͥǡ¼¥¿ÅÐÏ¿³Îǧ</b></font>\n";
	print "</center>\n";
	print "<br>\n";
	print "¤ªµÒÍͤÎÅÐÏ¿¥Ç¡¼¥¿¤ò³Îǧ²¼¤µ¤¤¡£<br>\n";
	print "¸í¤ê¤¬¤¢¤??ç¤Ï¥Ö¥é¥¦¥¶¤Î¥Ü¥¿¥ó¤ÇÁ´²èÌ̤ËÌá¤?¤Àµ¤·¤Æ¤¯¤À¤µ¤¤¡£\n";
	print "<br>\n";
	print "<br>\n";
	print "<table>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤´Ã´Åö¼Ô¤Î¤ªÌ¾Á°</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{p_name_j}<input type=\"hidden\" name=\"p_name_j\" value = \"$in{p_name_j}\">\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤´Ã´Åö¼Ô¤Î¥á¡¼¥?¢¥É¥?¹</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{e_mail}<input type=\"hidden\" name=\"e_mail\" value = \"$in{e_mail}\">\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤ª¿½¹?¤ß¤ÎÁÈ¿¥Ì¾</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{mem_name_j}<input type=\"hidden\" name=\"mem_name_j\" value = \"$in{mem_name_j}\">\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>ÅÅÏÃÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{tel}<input type=\"hidden\" name=\"tel\" value = \"$in{tel}\">\n";
	print "		</td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>£Æ£Á£ØÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{fax}<input type=\"hidden\" name=\"fax\" value = \"$in{fax}\">\n";
	print "		</td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>͹ÊØÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{zip}<input type=\"hidden\" name=\"zip\" value = \"$in{zip}\">\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "	<tr>\n";
	print "    	<td valign = \"top\"><font color = \"#060aad\"><b>ÅÔÆ»Éܸ©Ì¾</b></font></td>\n";
	print "    	<td valign = \"top\">\n";
	print "$pref_name<input type=\"hidden\" name=\"pref\" value = \"$in{pref}\">\n";
	print "				</td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤´½»½?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{address_j}<input type=\"hidden\" name=\"address_j\" value = \"$in{address_j}\">\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤ªµÒÍÍÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$user_num\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¥Ñ¥¹¥?¼¥É</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$in{passwd}<input type=\"hidden\" name=\"passwd\" value = \"$in{passwd}\">&nbsp;&nbsp;&nbsp;<font size = \"-1\" color = \"#ff0000\"><b>¥á¥â¤·¤Æ¤¯¤À¤µ¤¤</font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "</table>\n";
	print "<input type = \"submit\" value = \"³Îǧ\">\n";
	print "</form>\n";
	print "</BLOCKQUOTE>\n";
	&print_formatted_bottom;
}
##########################################################
# &get_pref_name;

sub get_pref_name {
  $warning_title = "Cannot open pref.csv";
  open(PREF, "./pref.csv") || (&warning, exit(0));
  while(<PREF>) {
    chomp;
    ($p_number, $j_title) = split (/,/, $_);
    $pref{$p_number} = $j_title;
  }
	
	$pref_name = $pref{$p_number_now};
}
##########################################################
#¥Ç¡¼¥¿¥Á¥§¥Ã¥¯ ̾Á°¡¦¥á¡¼¥?¦ÁÈ¿¥¡¦ÅÅÏá¦FAX
# &data_check_a;

sub data_check_a {

	$ckeck_p_name_j = $in{"p_name_j"};
	$len_p_name_j = length($ckeck_p_name_j);

	$ckeck_e_mail = $in{"e_mail"};
	$len_e_mail = length($ckeck_e_mail);

	$ckeck_mem_name_j = $in{"mem_name_j"};
	$len_mem_name_j = length($ckeck_mem_name_j);

	$ckeck_tel = $in{"tel"};
	$len_tel = length($ckeck_tel);

	$ckeck_fax = $in{"fax"};
	$len_fax = length($ckeck_fax);

	$ckeck_zip = $in{"zip"};
	$len_zip = length($ckeck_zip);

	$ckeck_address_j = $in{"address_j"};
	$len_address_j = length($ckeck_address_j);


	#¤ªÌ¾Á°¡¦ÏÂʸ
	if ($len_p_name_j < 2) {
		$warning_title = "¤ªÌ¾Á°¤òÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤";
		&warning;
		exit(0);

	#¥á¡¼¥?¢¥É¥?¹
	} elsif ($ckeck_e_mail) {
 
		if ($ckeck_e_mail !~ /@/ || $ckeck_e_mail !~ /\./ || $len_e_mail < 7) {
			$warning_title = "¥á¡¼¥?¢¥É¥?¹¤Î·Á¼°¤¬Àµ¤·¤¯¤¢¤ê¤Þ¤»¤?";
			&warning;
			exit(0);

		} elsif ($ckeck_e_mail !~ /\.jp\b/i && $ckeck_e_mail =~ /[^a-zA-Z0-9\.\-,_@]/) {
			$warning_title = "¥á¡¼¥?¢¥É¥?¹¤Ï±Ñ¿ôȾ³Ñ¤ÇÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤";
			&warning;
			exit(0);

 		}elsif($ckeck_e_mail =~ /\.jp\b/i ){ 
 
			#@¤ÎÁ°¤ÎȾ³Ñ¥Á¥§¥Ã¥¯
			undef @sep;
			@sep = split(/@/, $ckeck_e_mail);
			$check = $sep[0];
			if ($check =~ /[^a-zA-Z0-9\-_,\.]/) {
				$warning_title = "¥á¡¼¥?¢¥É¥?¹¤Ï±Ñ¿ôȾ³Ñ¤ÇÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤";
				&warning;
				exit(0);
			}

			#@¤Î¸å¤ÎȾ³Ñ¥Á¥§¥Ã¥¯
			undef @sep2;
			#undef @sep3;
			undef $check;
			@sep2 = split(/\./, $sep[1]);
			$a = @sep2;
			if ($a >2){
				pop(@sep2);
				pop(@sep2);
				foreach $check (@sep2) {
					if ($check =~ /[^a-zA-Z0-9\.\-_@,]/) {
			 			$warning_title = "E¥á¡¼¥?Υɥᥤ¥ó¤Ï±Ñ¿ôȾ³Ñ¤ÇÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤";
						&warning;
						exit(0);
					}
				}
			}
		}

	#ÁÈ¿¥Ì¾¡¦ÏÂʸ
	} elsif ( $len_mem_name_j < 2 ) {
		$warning_title = "ÁÈ¿¥Ì¾¤òÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤";
		&warning;
		exit(0);

	#ÅÅÏÃÈÖ¹?
	} elsif ($ckeck_tel =~ /[^0-9\- ext\.]/|| $ckeck_tel !~ /.+\-.+\-.+/ || $len_tel < 10 ) {
		$warning_title = "ÅÅÏÃÈÖ¹æ¤ÏȾ³Ñ¤Î¿ô»íˆÈ¥Ï¥¤¥Õ¥ó¡¢ÆâÀ?¤Ïext.¤òÍѤ¤¤ÆÆ?ÎϤ·¤Æ²¼¤µ¤¤";
		&warning;
		exit(0);

	#FAXÈÖ¹?
	} elsif ($ckeck_fax =~ /[^0-9\- ext\.]/|| $ckeck_fax !~ /.+\-.+\-.+/ || $len_fax < 10 ) {
		$warning_title = "FAXÈÖ¹æȾ³Ñ¤Î¿ô»íˆÈ¥Ï¥¤¥Õ¥ó¡¢ÆâÀ?¤Ïext.¤òÍѤ¤¤ÆÆ?ÎϤ·¤Æ²¼¤µ¤¤";
		&warning;
		exit(0);

	#͹ÊØÈÖ¹?
	} elsif ($ckeck_zip =~ /[^0-9\-]/ || $ckeck_zip !~ /.+\-.+/ || $len_zip < 8 ) {
		$warning_title = "͹ÊØÈÖ¹æ¤Ï¥Ï¥¤¥Õ¥ó¤òÍѤ¤¤Æ7·åÀµ³Î¤ËÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤";
		&warning;
		exit(0);
	#½»½?
	} elsif ($len_address_j < 4 ) {
		$warning_title = "¤´½»½ê¤òÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤";
		&warning;
		exit(0);
	} 
}
##########################################################
#¸ÜµÒÈÖ¹æ¼èÆÀ
# &get_user_num;

sub get_user_num {
	unless ($user_num) {
		undef @mem_numberdat;
		$warning_title = "Cannot open user_num.dat";
		open (NUMBER, "$memberdir/user_num.dat") || (&warning, exit(0));
		flock(NUMBER, 2);
		while(<NUMBER>) {
			chomp; 
			@mem_numberdat = (@mem_numberdat,$_);
		}
		@mem_numberdat = sort { $b <=> $a } @mem_numberdat;
		if ($mem_numberdat[0] == 0) {
			$user_num = 20001;
		} else {
			$user_num = $mem_numberdat[0] + 1;
		}
		close (NUMBER);
		$warning_title = "Cannot open user_num.dat";
		open (NUMBER, ">>$memberdir/user_num.dat") || (&warning, exit(0));
		print NUMBER "$user_num\n";
		flock(NUMBER, 8);
	}
}
##########################################################
#¥ª¡¼¥À¡¼ÈÖ¹æ¤ò¼èÆÀ¤¹¤? sub

sub get_order_num {

	@order_numberdat = ();
	$warning_title = "Cannot open order_num.dat";
	open (NUMBER, "$orderdat_dir/order_num.dat") || (&warning, exit(0));
	flock(NUMBER, 2);
	while(<NUMBER>) {
		chomp; 
		@order_numberdat = (@order_numberdat,$_);
	}
	@order_numberdat = sort { $b <=> $a } @order_numberdat;
	if ($order_numberdat[0] == 0) {
		$order_num = 120001;
	} else {
		$order_num = $order_numberdat[0] + 1;
	}
	$warning_title = "Cannot open order_num.dat for add";
	open (NUMBER, ">>$orderdat_dir/order_num.dat");
	print NUMBER "$order_num\n";
	flock(NUMBER, 8);
}
##########################################################
#¥Ñ¥¹¥?¼¥É¤òÊݸ¤¹¤?
# &keep_passwd;

sub keep_passwd {
	if (-e $passwd_file) {
		$warning_title = "Cannot open password file";
		open (PASSWDR, "$passwd_file") || (&warning, exit(0));
		flock(PASSWDR, 2);
		$warning_title = "Cannot open password tmp file";
		open (PASSWD, ">$passwd_file_tmp") || (&warning, exit(0));
		while (<PASSWDR>) {
			chomp;
			($file_user_num, $file_passwd) = split (/,/,$_);
			unless ($file_user_num eq $user_num) {
				print PASSWD "$_\n";
			}
		}
		print PASSWD "$user_num,$in{passwd}\n";

		$warning_title = "Cannot rename password file";
		rename ($passwd_file,$passwd_keep) || (&warning, exit(0));
		$warning_title = "Cannot rename password tmp file";
		rename ($passwd_file_tmp,$passwd_file) || (&warning, exit(0));
		$warning_title = "Cannot rename password keep file";
		unlink ($passwd_keep) || (&warning, exit(0));
		flock(PASSWDR, 8);
	} else {
		$warning_title = "Cannot open password file";
		open (PASSWD, ">$passwd_file") || (&warning, exit(0));
		flock(PASSWD, 2);
		print PASSWD "$user_num,$in{passwd}\n";
		flock(PASSWD, 8);
	}
}

##########################################################
#¸ÜµÒ¥Ç¡¼¥¿¤òÊݸ¤¹¤?
# &keep_profile;

sub keep_profile {
	$warning_title = "Cannot open $user_num.prof";
	open (PROF, ">$memberdir/$user_num.prof") || (&warning, exit(0));
	flock(PROF, 2);
	print PROF "user_num\n";
	print PROF "$in{user_num}\n";
	print PROF "p_name_j\n";
	print PROF "$in{p_name_j}\n";
	print PROF "e_mail\n";
	print PROF "$in{e_mail}\n";
	print PROF "mem_name_j\n";
	print PROF "$in{mem_name_j}\n";
	print PROF "tel\n";
	print PROF "$in{tel}\n";
	print PROF "fax\n";
	print PROF "$in{fax}\n";
	print PROF "zip\n";
	print PROF "$in{zip}\n";
	print PROF "pref\n";
	print PROF "$in{pref}\n";
	print PROF "address_j\n";
	print PROF "$in{address_j}\n";
	print PROF "passwd\n";
	print PROF "$in{passwd}\n";

	flock(PROF, 8);
}
##########################################################
#¥Ð¥¹¥±¥Ã¥ÈÆâÍƤκ??
# &delete;
	
sub delete {
	$order_num = $in{order_num};
	$line_num = $in{line_num};
	$order_tmp_file = "$data_dir/ordered/$order_num.tmp";
	$order_tmp_tmp_file = "$data_dir/ordered/$order_num.tmp.tmp";

	if (-e $order_tmp_file) {
		$warning_title = "Cannot open $order_tmp_file for read";
		open (READ,"$order_tmp_file") || (&warning, exit(0));
		$warning_title = "Cannot open $order_tmp_tmp_file for write";
		open (WRITE,">$order_tmp_tmp_file") || (&warning, exit(0));
		$new_line_num = 1;
		while (<READ>) {
			chomp;
			if ($new_line_num != $line_num) {
				print WRITE "$_\n";
			}
			$new_line_num = $new_line_num + 1;
		}
		
		$order_keep_file = "$data_dir/ordered/$order_num.keep";
		$warning_title = "Cannot link $order_tmp_file";
		link ($order_tmp_file,$order_keep_file) || (&warning, exit(0));
		$warning_title = "Cannot rename $order_tmp_tmp_file";
		rename ($order_tmp_tmp_file,$order_tmp_file) || (&warning, exit(0));
		$warning_title = "Cannot remove $order_keep_file";
		unlink ($order_keep_file) || (&warning, exit(0));
	} else {
		$warning_title = "Cannot find $order_tmp_file";
		&warning;
		exit(0);
	}
	&set_cookie;
	print "Content-type: text/html\n\n";
	print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"2;URL=http://$domain/$doc_dir/index.html\">\n";
	print "<HTML>\n";
	&print_formatted_head;
	print "<BLOCKQUOTE>\n";
	print "º??·¤Þ¤·¤¿¡£<BR>\n";
	print "¼«Æ°Åª¤Ë¥È¥Ã¥×¥Ú¡¼¥¸¤ËÌá¤ê¤Þ¤¹¡£<BR>\n";
	print "Ìá¤é¤Ê¤¤¾?ç¤Ï¡¢°Ê²¼¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<BR>\n";
	print "<a href = \"http://$domain/$doc_dir/index.html\">¥È¥Ã¥×¥Ú¡¼¥¸</a><BR>\n";
	print "</BLOCKQUOTE>\n";
	&print_formatted_bottom;
}

##########################################################
#¸ÜµÒ¥Ç¡¼¥¿¤òÆɤßɽ¼¨¤¹¤?
# &read_user_profile_and_show;

sub read_user_profile_and_show {
	$warning_title = "Cannot open $user_num.prof";
	open (PROF, "$memberdir/$user_num.prof") || (&warning, exit(0));
	while ($name = <PROF>) {
		chomp($name);
		$value = <PROF>;
		chomp($value);
		$prof{$name} = $value;
	}
	&set_cookie;
	print "Content-type: text/html\n\n";
	print "<HTML>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<HEAD>\n";
	print "<TITLE>¥¹¥È¥¢-¥Ç¥?: ¸ÜµÒÅÐÏ¿²èÌÌ</TITLE>\n";
	print "</HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
	print "\n";
	print "\n";
	print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
	print "<!--\n";
	print "var check = 0;\n";
	print "var reg_patern_ASCII = /[^0-9A-Za-z\\-\\.\\s,_:\\/]/;\n";
	print "var reg_patern_eMail = /[^0-9A-Za-z\\-\\._\@]/;\n";
	print "var reg_patern_PHON = /[^0-9\-]/;\n";
	print "var reg_patern_PHON_f = /.+\\-.+\\-.+/;\n";
	print "function Check_PJ_Name() {\n";
	print "	if (document.toroku.p_name_j.value.length < 4) {\n";
	print "		alert(\"¤ªÌ¾Á°¤¬Àµ¤·¤¯µ­Æ?¤µ¤?Ƥ¤¤Þ¤»¤ó¡£\");\n";
	print "		document.toroku.p_name_j.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	}else{\n";
	print "		check = check + 0;\n";
	print "	}\n";
	print "}\n";
	print "function Check_E_M() {\n";
	print "	if(document.toroku.e_mail.value.match(reg_patern_eMail)) {\n";
	print "		alert(\"ÅŻҥ᡼¥?ϱѿôȾ³Ñʸ»íˆÀ¤±¤òÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤\");\n";
	print "		document.toroku.e_mail.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} else {\n";
	print "		var reg_at = /\@/;\n";
	print "		if(!document.toroku.e_mail.value.match(reg_at)) {\n";
	print "			alert(\"ÅŻҥ᡼¥?Ë¥¢¥Ã¥È¥Þ¡¼¥¯¤¬´Þ¤Þ¤?Ƥ¤¤Þ¤»¤ó\");\n";
	print "			document.toroku.e_mail.focus();\n";
	print "			check = check + 1;\n";
	print "			return(false);\n";
	print "		} else {\n";
	print "			var Element_mail = document.toroku.e_mail.value.split(\"@\");\n";
	print "			if((!Element_mail[0]) || (Element_mail[0].length < 1)) {\n";
	print "				alert(\"ÅŻҥ᡼¥?Á¼°¤¬Àµ¤·¤¯¤¢¤ê¤Þ¤»¤ó\");\n";
	print "				document.toroku.e_mail.focus();\n";
	print "				check = check + 1;\n";
	print "				return(false);\n";
	print "			} else {\n";
	print "				if((!Element_mail[1]) || (Element_mail[1].length < 3)) {\n";
	print "					alert(\"ÅŻҥ᡼¥?Á¼°¤¬Àµ¤·¤¯¤¢¤ê¤Þ¤»¤ó\");\n";
	print "					document.toroku.e_mail.focus();\n";
	print "					check = check + 1;\n";
	print "					return(false);\n";
	print "				} else {\n";
	print "					if((!Element_mail[1]) || (!Element_mail[1].match(/\\./))) {\n";
	print "						alert(\"ÅŻҥ᡼¥?Ë¥Ô¥?ª¥É¡Ê¥É¥Ã¥È¡Ë¤¬´Þ¤Þ¤?Ƥ¤¤Þ¤»¤ó\");\n";
	print "						document.toroku.e_mail.focus();\n";
	print "						check = check + 1;\n";
	print "						return(false);\n";
	print "					} else {\n";
	print "						var Element_domain = Element_mail[1].split(\".\");\n";
	print "						if(Element_domain[0].length < 1) {\n";
	print "							alert(\"ÅŻҥ᡼¥?Á¼°¤¬Àµ¤·¤¯¤¢¤ê¤Þ¤»¤ó\");\n";
	print "							document.toroku.e_mail.focus();\n";
	print "							check = check + 1;\n";
	print "							return(false);\n";
	print "						} else {\n";
	print "							if(Element_domain[1].length < 1) {\n";
	print "								alert(\"ÅŻҥ᡼¥?Á¼°¤¬Àµ¤·¤¯¤¢¤ê¤Þ¤»¤ó\");\n";
	print "								document.toroku.e_mail.focus();\n";
	print "								check = check + 1;\n";
	print "								return(false);\n";
	print "							} else {\n";
	print "								if((!document.toroku.e_mail.value) || (document.toroku.e_mail.value == \"\")){\n";
	print "									alert(\"ÅŻҥ᡼¥?Ïɬ¿Ü¤Ç¤¹\");\n";
	print "									document.toroku.e_mail.focus();\n";
	print "									check = check + 1;\n";
	print "									return(false);\n";
	print "								} \n";
	print "							}\n";
	print "						}\n";
	print "					}\n";
	print "				}\n";
	print "			}\n";
	print "		}\n";
	print "	}\n";
	print "}\n";
	print "function Check_M_N_J() {\n";
	print "	if (document.toroku.mem_name_j.value.length < 2) {\n";
	print "		alert(\"ÁÈ¿¥Ì¾¤¬Àµ¤·¤¯µ­Æ?¤µ¤?Ƥ¤¤Þ¤»¤ó¡£\");\n";
	print "		document.toroku.mem_name_j.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	}else{\n";
	print "		check = check + 0;\n";
	print "	}\n";
	print "}\n";
	print "function Check_T() {\n";
	print "	var reg_patern=/[^0-9ext\\-\\. ]/;\n";
	print "	if(document.toroku.tel.value.match(reg_patern)){\n";
	print "		alert(\"ÅÅÏÃÈÖ¹æ¤ÏȾ³Ñ¤Î¿ô»íˆÈȾ³Ñ¥Ï¥¤¥Õ¥ó¤ÈÆâÀ?¤Ïext.¤ò»ÈÍѤ·¤ÆÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤\");\n";
	print "		document.toroku.tel.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} else {\n";
	print "		check = check + 0;\n";
	print "	}\n";
	print "	if(!(document.toroku.tel.value.match(reg_patern_PHON_f))){\n";
	print "		alert(\"ÅÅÏÃÈÖ¹æ¤Ï¥Ï¥¤¥Õ¥ó¤ò»È¤Ã¤ÆÀµ¤·¤¯Æ?ÎϤµ¤?Ƥ¤¤Þ¤¹¤«¡©\");\n";
	print "		document.toroku.tel.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} else {\n";
	print "		check = check + 0;\n";
	print "	}\n";
	print "}\n";
	print "function Check_F() {\n";
	print "	if(document.toroku.fax.value.match(reg_patern_PHON)){\n";
	print "		alert(\"faxÈÖ¹æ¤ÏȾ³Ñ¤Î¿ô»íˆòÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤\");\n";
	print "		document.toroku.fax.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} else {\n";
	print "		check = check + 0;\n";
	print "	}\n";
	print "	if(!document.toroku.fax.value.match(reg_patern_PHON_f)){\n";
	print "		alert(\"faxÈÖ¹æ¤ÏȾ³Ñ¥Ï¥¤¥Õ¥ó¤ò»È¤Ã¤ÆÀµ¤·¤¯Æ?ÎϤµ¤?Ƥ¤¤Þ¤¹¤«¡©\");\n";
	print "		document.toroku.fax.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} else {\n";
	print "		check = check + 0;\n";
	print "	}\n";
	print "}\n";
	print "function Check_Z() {\n";
	print "	var check_data13L=document.toroku.zip.value.length;\n";
	print "	if(document.toroku.zip.value.match(reg_patern_PHON)){\n";
	print "		alert(\"͹ÊØÈÖ¹æ¤Ï¡¢3·å¤ÎȾ³Ñ¿ô»í…¢È¾³Ñ¥Ï¥¤¥Õ¥ó¡¢4·å¤ÎȾ³Ñ¿ô»í›Á¼°¤Ç¤¹\");\n";
	print "		document.toroku.zip.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	}\n";
	print "	if(check_data13L!= 8){\n";
	print "		alert(\"͹ÊØÈÖ¹æ¤Ï¡¢3·å¤ÎȾ³Ñ¿ô»í…¢È¾³Ñ¥Ï¥¤¥Õ¥ó¡¢4·å¤ÎȾ³Ñ¿ô»í›Á¼°¤Ç¤¹\");\n";
	print "		document.toroku.zip.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	}\n";
	print "}\n";
	print "function Check_Pr_C() {\n";
	print "	if(document.toroku.pref.selectedIndex == 0) {\n";
	print "		alert(\"ÅÔÆ»Éܸ©Ì¾¤òÁªÂò¤·¤Æ¤¯¤À¤µ¤¤\");\n";
	print "		document.toroku.pref.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} \n";
	print "}\n";
	print "function Check_A_J() {\n";
	print "	if (document.toroku.address_j.value.length < 4) {\n";
	print "		alert(\"¤´½»½ê¤¬Àµ¤·¤¯µ­Æ?¤µ¤?Ƥ¤¤Þ¤»¤ó¡£\");\n";
	print "		document.toroku.address_j.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} else {\n";
	print "		check = check + 0;\n";
	print "	}\n";
	print "}\n";
	print "function Check_P_W() {\n";
	print "	if(document.toroku.passwd.value.match(reg_patern_ASCII)) {\n";
	print "		alert(\"¥Ñ¥¹¥?¼¥É¤Ï±Ñ¿ôȾ³Ñʸ»íˆÀ¤±¤òÆ?ÎϤ·¤Æ¤¯¤À¤µ¤¤\");\n";
	print "		document.toroku.passwd.focus();\n";
	print "		check = check + 1;\n";
	print "		return(false);\n";
	print "	} else {\n";
	print "		if((!document.toroku.passwd.value) || (document.toroku.passwd.value == \"\")){\n";
	print "			alert(\"¥Ñ¥¹¥?¼¥É¤Ïɬ¿Ü¤Ç¤¹\");\n";
	print "			document.toroku.passwd.focus();\n";
	print "			check = check + 1;\n";
	print "			return(false);\n";
	print "		}\n";
	print "	} \n";
	print "}\n";
	print "function formCheckSubmit() {\n";
	print "	check = 0;\n";
	print "	Check_PJ_Name();\n";
	print "	if (check == 0) {\n";
	print "		Check_E_M();\n";
	print "	}\n";
	print "	if (check == 0) {\n";
	print "		Check_M_N_J();\n";
	print "	}\n";
	print "	if (check == 0) {\n";
	print "		Check_T();\n";
	print "	}\n";
	print "	if (check == 0) {\n";
	print "		Check_F();\n";
	print "	}\n";
	print "	if (check == 0) {\n";
	print "		Check_Z();\n";
	print "	}\n";
	print "	if (check == 0) {\n";
	print "		Check_Pr_C();\n";
	print "	}\n";
	print "	if (check == 0) {\n";
	print "		Check_A_J();\n";
	print "	}\n";
	print "	if (check == 0) {\n";
	print "		Check_P_W();\n";
	print "	}\n";
	print "	if(check == 0){\n";
	print "		return(true);\n";
	print "	}else{\n";
	print "		return(false);\n";
	print "	}\n";
	print "}\n";
	print "// -->\n";
	print "</SCRIPT>\n";
	print "</HEAD>\n";
	&print_formatted_head;
	print "<BLOCKQUOTE>\n";
	print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\" onSubmit = \"return formCheckSubmit()\">\n";
	print "<input type = \"hidden\" name = \"Entry\" value = \"input\">\n";
	print "<input type = \"hidden\" name = \"Action\" value = \"ENTRY\">\n";
	print "<center>\n";
	print "<font size = \"+2\"><b>¤ªµÒÍͥǡ¼¥¿ÅÐÏ¿</b></font>\n";
	print "</center>\n";
	print "<br>\n";
	print "°Ê²¼¤ÏÁ°²óÅÐϿ夤¤¿¡¢¤ªµÒÍͤΥǡ¼¥¿¤Ç¤¹¡£<br>\n";
	print "Êѹ¹¤¬¤¢¤??ç¤Ï¡¢É½¼¨ÆâÍƤò½¤Àµ¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
	print "¥Ñ¥¹¥?¼¥ÉÍó¤Ë¿·¤·¤¯Æ?ÎϤµ¤?Þ¤¹¤È¡¢¥Ñ¥¹¥?¼¥É¤¬Êѹ¹¤µ¤?Þ¤¹¡£<br>\n";
	print "Êѹ¹¤«¤Ê¤¤¾?ç¤â¡ÖÅÐÏ¿¡×¥Ü¥¿¥ó¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
	print "<br>\n";
	print "<table>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤´Ã´Åö¼Ô¤Î¤ªÌ¾Á°</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"text\" name=\"p_name_j\" value = \"$prof{p_name_j}\" onChange = \"Check_PJ_Name()\"><font size = \"-1\" color = \"#ff0000\"><b>ɬ¿Ü</b></font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤´Ã´Åö¼Ô¤Î¥á¡¼¥?¢¥É¥?¹</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"text\" name=\"e_mail\" value = \"$prof{e_mail}\" onChange = \"Check_E_M()\"><font size = \"-1\" color = \"#ff0000\"><b>±ÑʸȾ³Ñ¡¢É¬¿Ü</b></font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤ª¿½¹?¤ß¤ÎÁÈ¿¥Ì¾</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"text\" name=\"mem_name_j\" value = \"$prof{mem_name_j}\" onChange = \"Check_M_N_J()\"><font size = \"-1\" color = \"#ff0000\"><b>ɬ¿Ü¡¡¸Ä¿Í¤Î¾?ç¤Ï¡¢¤ªÌ¾Á°</b></font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>ÅÅÏÃÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"text\" name=\"tel\" value = \"$prof{tel}\" onChange = \"Check_T()\"><font size = \"-1\" color = \"#ff0000\"><b>±ÑʸȾ³Ñ¡¢É¬¿Ü</b></font>¡¡ÆâÀ?¤Ïext.¤Ë³¤±¤Æ</td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>£Æ£Á£ØÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"text\" name=\"fax\" value = \"$prof{fax}\" onChange = \"Check_F()\"><font size = \"-1\" color = \"#ff0000\"><b>±ÑʸȾ³Ñ¡¢É¬¿Ü</b></font>    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>͹ÊØÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"text\" name=\"zip\" size = \"10\" value = \"$prof{zip}\" onChange = \"Check_Z()\"><font size = \"-1\" color = \"#ff0000\"><b>±ÑʸȾ³Ñ¤Ç¡¢000-0000¤Î¤è¤¦¤Ë¡¢µ­Æ?¤·¤Æ²¼¤µ¤¤¡£É¬¿Ü</b></font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "	<tr>\n";
	print "    	<td valign = \"top\"><font color = \"#060aad\"><b>ÅÔÆ»Éܸ©Ì¾</b></font></td>\n";
	print "    	<td valign = \"top\">\n";
	print "<select name=\"pref\" onChange = \"Check_Pr_C()\"><option value=\"0\">¸©Ì¾¤òÁª¤ó¤Ç¤¯¤À¤µ¤¤</option>\n";
	if ($prof{pref} == 1) {
		print "<option value=\"1\" SELECTED>Ë̳¤Æ»</option>\n";
	} else {
		print "<option value=\"1\">Ë̳¤Æ»</option>\n";
	}
	if ($prof{pref} == 2) {
		print "<option value=\"2\" SELECTED>ÀÄ¿¹¸©</option>\n";
	} else {
		print "<option value=\"2\">ÀÄ¿¹¸©</option>\n";
	}
	if ($prof{pref} == 3) {
		print "<option value=\"3\" SELECTED>´ä¼?©</option>\n";
	} else {
		print "<option value=\"3\">´ä¼?©</option>\n";
	}
	if ($prof{pref} == 4) {
		print "<option value=\"4\" SELECTED>µÜ¾?©</option>\n";
	} else {
		print "<option value=\"4\">µÜ¾?©</option>\n";
	}
	if ($prof{pref} == 5) {
		print "<option value=\"5\" SELECTED>½©Åĸ©</option>\n";
	} else {
		print "<option value=\"5\">½©Åĸ©</option>\n";
	}
	if ($prof{pref} == 6) {
		print "<option value=\"6\" SELECTED>»³·Á¸©</option>\n";
	} else {
		print "<option value=\"6\">»³·Á¸©</option>\n";
	}
	if ($prof{pref} == 7) {
		print "<option value=\"7\" SELECTED>Ê¡Å縩</option>\n";
	} else {
		print "<option value=\"7\">Ê¡Å縩</option>\n";
	}
	if ($prof{pref} == 8) {
		print "<option value=\"8\" SELECTED>°ñ¾?©</option>\n";
	} else {
		print "<option value=\"8\">°ñ¾?©</option>\n";
	}
	if ($prof{pref} == 9) {
		print "<option value=\"9\" SELECTED>ÆÊÌÚ¸©</option>\n";
	} else {
		print "<option value=\"9\">ÆÊÌÚ¸©</option>\n";
	}
	if ($prof{pref} == 10) {
		print "<option value=\"10\" SELECTED>·²Çϸ©</option>\n";
	} else {
		print "<option value=\"10\">·²Çϸ©</option>\n";
	}
	if ($prof{pref} == 11) {
		print "<option value=\"11\" SELECTED>º?̸©</option>\n";
	} else {
		print "<option value=\"11\">º?̸©</option>\n";
	}
	if ($prof{pref} == 12) {
		print "<option value=\"12\" SELECTED>ÀéÍÕ¸©</option>\n";
	} else {
		print "<option value=\"12\">ÀéÍÕ¸©</option>\n";
	}
	if ($prof{pref} == 13) {
		print "<option value=\"13\" SELECTED>Å??ÅÔ</option>\n";
	} else {
		print "<option value=\"13\">Å??ÅÔ</option>\n";
	}
	if ($prof{pref} == 14) {
		print "<option value=\"14\" SELECTED>¿ÀÆàÀ</option>\n";
	} else {
		print "<option value=\"14\">¿ÀÆàÀ</option>\n";
	}
	if ($prof{pref} == 15) {
		print "<option value=\"15\" SELECTED>¿·³ã¸©</option>\n";
	} else {
		print "<option value=\"15\">¿·³ã¸©</option>\n";
	}
	if ($prof{pref} == 16) {
		print "<option value=\"16\" SELECTED>ÉÙ»³¸©</option>\n";
	} else {
		print "<option value=\"16\">ÉÙ»³¸©</option>\n";
	}
	if ($prof{pref} == 17) {
		print "<option value=\"17\" SELECTED>ÀÐÀ</option>\n";
	} else {
		print "<option value=\"17\">ÀÐÀ</option>\n";
	}
	if ($prof{pref} == 18) {
		print "<option value=\"18\" SELECTED>Ê¡°æ¸©</option>\n";
	} else {
		print "<option value=\"18\">Ê¡°æ¸©</option>\n";
	}
	if ($prof{pref} == 19) {
		print "<option value=\"19\" SELECTED>»³Í?©</option>\n";
	} else {
		print "<option value=\"19\">»³Í?©</option>\n";
	}
	if ($prof{pref} == 20) {
		print "<option value=\"20\" SELECTED>ĹÌ</option>\n";
	} else {
		print "<option value=\"20\">ĹÌ</option>\n";
	}
	if ($prof{pref} == 21) {
		print "<option value=\"21\" SELECTED>´ôÉ?©</option>\n";
	} else {
		print "<option value=\"21\">´ôÉ?©</option>\n";
	}
	if ($prof{pref} == 22) {
		print "<option value=\"22\" SELECTED>ÀŲ¬¸©</option>\n";
	} else {
		print "<option value=\"22\">ÀŲ¬¸©</option>\n";
	}
	if ($prof{pref} == 23) {
		print "<option value=\"23\" SELECTED>°¦Ãθ©</option>\n";
	} else {
		print "<option value=\"23\">°¦Ãθ©</option>\n";
	}
	if ($prof{pref} == 24) {
		print "<option value=\"24\" SELECTED>»°½Å¸©</option>\n";
	} else {
		print "<option value=\"24\">»°½Å¸©</option>\n";
	}
	if ($prof{pref} == 25) {
		print "<option value=\"25\" SELECTED>¼¢²?©</option>\n";
	} else {
		print "<option value=\"25\">¼¢²?©</option>\n";
	}
	if ($prof{pref} == 26) {
		print "<option value=\"26\" SELECTED>µ?ÅÔÉÜ</option>\n";
	} else {
		print "<option value=\"26\">µ?ÅÔÉÜ</option>\n";
	}
	if ($prof{pref} == 27) {
		print "<option value=\"27\" SELECTED>ÂçºåÉÜ</option>\n";
	} else {
		print "<option value=\"27\">ÂçºåÉÜ</option>\n";
	}
	if ($prof{pref} == 28) {
		print "<option value=\"28\" SELECTED>ʼ¸Ë¸©</option>\n";
	} else {
		print "<option value=\"28\">ʼ¸Ë¸©</option>\n";
	}
	if ($prof{pref} == 29) {
		print "<option value=\"29\" SELECTED>ÆàÎɸ©</option>\n";
	} else {
		print "<option value=\"29\">ÆàÎɸ©</option>\n";
	}
	if ($prof{pref} == 30) {
		print "<option value=\"30\" SELECTED>Ï²λ³¸©</option>\n";
	} else {
		print "<option value=\"30\">Ï²λ³¸©</option>\n";
	}
	if ($prof{pref} == 31) {
		print "<option value=\"31\" SELECTED>Ä»¼è¸©</option>\n";
	} else {
		print "<option value=\"31\">Ä»¼è¸©</option>\n";
	}
	if ($prof{pref} == 32) {
		print "<option value=\"32\" SELECTED>Å纬¸©</option>\n";
	} else {
		print "<option value=\"32\">Å纬¸©</option>\n";
	}
	if ($prof{pref} == 33) {
		print "<option value=\"33\" SELECTED>²¬»³¸©</option>\n";
	} else {
		print "<option value=\"33\">²¬»³¸©</option>\n";
	}
	if ($prof{pref} == 34) {
		print "<option value=\"34\" SELECTED>¹­Å縩</option>\n";
	} else {
		print "<option value=\"34\">¹­Å縩</option>\n";
	}
	if ($prof{pref} == 35) {
		print "<option value=\"35\" SELECTED>»³¸?¸©</option>\n";
	} else {
		print "<option value=\"35\">»³¸?¸©</option>\n";
	}
	if ($prof{pref} == 36) {
		print "<option value=\"36\" SELECTED>ÆÁÅ縩</option>\n";
	} else {
		print "<option value=\"36\">ÆÁÅ縩</option>\n";
	}
	if ($prof{pref} == 37) {
		print "<option value=\"37\" SELECTED>¹áÀ</option>\n";
	} else {
		print "<option value=\"37\">¹áÀ</option>\n";
	}
	if ($prof{pref} == 38) {
		print "<option value=\"38\" SELECTED>°¦É²¸©</option>\n";
	} else {
		print "<option value=\"38\">°¦É²¸©</option>\n";
	}
	if ($prof{pref} == 39) {
		print "<option value=\"39\" SELECTED>¹âÃθ©</option>\n";
	} else {
		print "<option value=\"39\">¹âÃθ©</option>\n";
	}
	if ($prof{pref} == 40) {
		print "<option value=\"40\" SELECTED>Ê¡²¬¸©</option>\n";
	} else {
		print "<option value=\"40\">Ê¡²¬¸©</option>\n";
	}
	if ($prof{pref} == 41) {
		print "<option value=\"41\" SELECTED>º´²?©</option>\n";
	} else {
		print "<option value=\"41\">º´²?©</option>\n";
	}
	if ($prof{pref} == 42) {
		print "<option value=\"42\" SELECTED>Ĺº?©</option>\n";
	} else {
		print "<option value=\"42\">Ĺº?©</option>\n";
	}
	if ($prof{pref} == 43) {
		print "<option value=\"43\" SELECTED>·§Ëܸ©</option>\n";
	} else {
		print "<option value=\"43\">·§Ëܸ©</option>\n";
	}
	if ($prof{pref} == 44) {
		print "<option value=\"44\" SELECTED>Âçʬ¸©</option>\n";
	} else {
		print "<option value=\"44\">Âçʬ¸©</option>\n";
	}
	if ($prof{pref} == 45) {
		print "<option value=\"45\" SELECTED>µÜº?©</option>\n";
	} else {
		print "<option value=\"45\">µÜº?©</option>\n";
	}
	if ($prof{pref} == 46) {
		print "<option value=\"46\" SELECTED>¼¯»ùÅ縩</option>\n";
	} else {
		print "<option value=\"46\">¼¯»ùÅ縩</option>\n";
	}
	if ($prof{pref} == 47) {
		print "<option value=\"47\" SELECTED>²­Æ?©</option>\n";
	} else {
		print "<option value=\"47\">²­Æ?©</option>\n";
	}
	if ($prof{pref} == 99) {
		print "<option value=\"99\" SELECTED>¤½¤Î¾</option>\n";
	} else {
		print "<option value=\"99\">¤½¤Î¾</option>\n";
	}
	print "</select>\n";
	print "<font size = \"-1\" color = \"#ff0000\"><b>ɬ¿Ü</b></font>\n";
	print "				</td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤´½»½?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"text\" name=\"address_j\" size = \"35\" value = \"$prof{address_j}\" onChange = \"Check_A_J()\"><font size = \"-1\" color = \"#ff0000\"><b>ɬ¿Ü</b></font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¤ªµÒÍÍÈÖ¹?</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		$user_num<font size = \"-1\" color = \"#ff0000\"><b>ɬ¿Ü</b></font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "  <tr>\n";
	print "    <td valign=\"top\">\n";
	print "		<font color = \"#060aad\"><b>¥Ñ¥¹¥?¼¥É</b></font>\n";
	print "    </td>\n";
	print "    <td valign=\"top\">\n";
	print "		<input type=\"password\" name=\"passwd\" size = \"8\" value = \"$prof{passwd}\" onChange = \"Check_P_W()\"><font size = \"-1\" color = \"#ff0000\"><b>Æü?¸»íˆò½?¯±Ñ¿ôȾ³Ñ¡¢É¬¿Ü</b></font><br><font size = \"-1\">Êѹ¹¤ÎɬÍפ¬¤Ê¤¤¾?ç¤Ï¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£Æ?ÎϤµ¤?Þ¤¹¤ÈÊѹ¹¤µ¤?Þ¤¹</font>\n";
	print "    </td>\n";
	print "  </tr>\n";
	print "</table>\n";
	print "<input type = \"submit\" value = \"ÅÐÏ¿\">\n";
	print "</form>\n";
	print "</BLOCKQUOTE>\n";
	&print_formatted_bottom;
}
##########################################################
#¥Á¥§¥Ã¥¯¥¢¥¦¥È²èÌ̤Îɽ¼¨
# &show_checkout;

sub show_checkout {
	
	$order_tmp_file = "$data_dir/ordered/$order_num.tmp";
	&set_cookie;
	print "Content-type: text/html\n\n";


	unless ($user_num) {
		$wait = 3;
		print "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"$wait;URL=http://$domain/$doc_dir/entry_top.html\">\n";

		print "<HTML>\n";
		print "<HEAD>\n";
		print "<TITLE>¥¹¥È¥¢-¥Ç¥?: Æ«¼§´?</TITLE>\n";
		print "</HEAD>\n";
		print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
		print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
		print "\n";
		print "\n";
		print "\n";
		print "</HEAD>\n";
		&print_formatted_head;
		print "<BLOCKQUOTE>\n";
		print "¤ªµÒÍͥǡ¼¥¿¤ÎÅÐÏ¿¤¬¤Þ¤À¤Ç¤¹¡£\n";
		print "<br>\n";
		print "¤ªµÒÍͥǡ¼¥¿¤ÎÅÐÏ¿¤ò¤·¤Æ¤«¤é¥Á¥§¥Ã¥¯¥¢¥¦¥È¤·¤Æ¤¯¤À¤µ¤¤¡£\n";
		print "<br>\n";
		print "¼«Æ°Åª¤Ë¡¢¡Ö¤ªµÒÍͥǡ¼¥¿ÅÐÏ¿¡×¥Ú¡¼¥¸¤¬É½¼¨¤µ¤?Þ¤¹¡£\n";
		print "<br>\n";
		print "ɽ¼¨¤µ¤?ʤ¤¾?ç¤Ï²èÌ̺¸¤Î¡Ö½ð̾¤·¤ÆÆ?Ź¤¹¤?פò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£\n";
		print "</BLOCKQUOTE>\n";
		&print_formatted_bottom;
	} else {
		unless (-e "$order_tmp_file") {
			$wait = 2;
			&referer_back;
			print "<HTML>\n";
			print "<HEAD>\n";
			print "<TITLE>¥¹¥È¥¢-¥Ç¥?: Æ«¼§´?</TITLE>\n";
			print "</HEAD>\n";
			print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
			print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
			print "\n";
			print "\n";
			print "\n";
			print "</HEAD>\n";
			&print_formatted_head;
			print "<BLOCKQUOTE>\n";
			print "001¸½ºß¡¢¥Ð¥¹¥±¥Ã¥È¤Ï¶õ¤Ç¤¹¡£<br>\n";
			print "¹ØÆ?·èÄ?å¡¢¥Á¥§¥Ã¥¯¥¢¥¦¥È¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
			print "</BLOCKQUOTE>\n";
			&print_formatted_bottom;
		} elsif (-z "$order_tmp_file") {
			$wait = 2;
			&referer_back;
			print "<HTML>\n";
			print "<HEAD>\n";
			print "<TITLE>¥¹¥È¥¢-¥Ç¥?: Æ«¼§´?</TITLE>\n";
			print "</HEAD>\n";
			print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
			print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
			print "\n";
			print "\n";
			print "\n";
			print "</HEAD>\n";
			&print_formatted_head;
			print "<BLOCKQUOTE>\n";
			print "¸½ºß¡¢¥Ð¥¹¥±¥Ã¥È¤Ï¶õ¤Ç¤¹¡£<br>\n";
			print "¹ØÆ?·èÄ?å¡¢¥Á¥§¥Ã¥¯¥¢¥¦¥È¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
			print "</BLOCKQUOTE>\n";
			&print_formatted_bottom;
		} else {
			if ($in{proccess_flg} eq "finish") {
				&finish;
			} else {
				$warning_title = "Cannot open $user_num.prof";
				open (PROF, "$memberdir/$user_num.prof") || (&warning, exit(0));
				while ($name = <PROF>) {
					chomp($name);
					$value = <PROF>;
					chomp($value);
					$prof{$name} = $value;
				}
				print "<HTML>\n";
				print "<HEAD>\n";
				print "<TITLE>¥¹¥È¥¢-¥Ç¥?: Æ«¼§´?</TITLE>\n";
				print "</HEAD>\n";
				print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
				print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
				print "\n";
				print "\n";
				print "\n";
				print "</HEAD>\n";

				&print_formatted_head;
				print "<BLOCKQUOTE>\n";
				print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
				print "<input type = \"hidden\" name = \"Entry\" value = \"already\">\n";
				print "<input type = \"hidden\" name = \"Action\" value = \"ENTRY\">\n";
				print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
				print "<center>\n";
				print "<font size = \"+2\"><b>¤ªµÒÍÍÅÐÏ¿¥Ç¡¼¥¿³Îǧ</b></font>\n";
				print "</center>\n";
				print "<br>\n";
				print "Êѹ¹¡¢¸í¤ê¤¬¤¢¤??ç¤Ï¡Ö½¤Àµ¡×¥Ü¥¿¥ó¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
				print "<br>\n";
				print "<table>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>¤´Ã´Åö¼Ô¤Î¤ªÌ¾Á°</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{p_name_j}<input type=\"hidden\" name=\"p_name_j\" value = \"$prof{p_name_j}\">\n";
				print "    </td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>¤´Ã´Åö¼Ô¤Î¥á¡¼¥?¢¥É¥?¹</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{e_mail}<input type=\"hidden\" name=\"e_mail\" value = \"$prof{e_mail}\">\n";
				print "    </td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>¤ª¿½¹?¤ß¤ÎÁÈ¿¥Ì¾</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{mem_name_j}<input type=\"hidden\" name=\"mem_name_j\" value = \"$prof{mem_name_j}\">\n";
				print "    </td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>ÅÅÏÃÈÖ¹?</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{tel}<input type=\"hidden\" name=\"tel\" value = \"$prof{tel}\">\n";
				print "								</td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>£Æ£Á£ØÈÖ¹?</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{fax}<input type=\"hidden\" name=\"fax\" value = \"$prof{fax}\">\n";
				print "								</td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>͹ÊØÈÖ¹?</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{zip}<input type=\"hidden\" name=\"zip\" value = \"$prof{zip}\">\n";
				print "    </td>\n";
				print "  </tr>\n";
				print "				<tr>\n";
				print "    				<td valign = \"top\"><font color = \"#060aad\"><b>ÅÔÆ»Éܸ©Ì¾</b></font></td>\n";
				print "    				<td valign = \"top\">\n";
				$p_number_now = $prof{pref};
				&get_pref_name;
				print "$pref_name<input type=\"hidden\" name=\"pref\" value = \"$prof{pref}\">\n";
				print "																</td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>¤´½»½?</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{address_j}<input type=\"hidden\" name=\"address_j\" value = \"$prof{address_j}\">\n";
				print "    </td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>¤ªµÒÍÍÈÖ¹?</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$user_num\n";
				print "    </td>\n";
				print "  </tr>\n";
				print "  <tr>\n";
				print "    <td valign=\"top\">\n";
				print "								<font color = \"#060aad\"><b>¥Ñ¥¹¥?¼¥É</b></font>\n";
				print "    </td>\n";
				print "    <td valign=\"top\">\n";
				print "								$prof{passwd}<input type=\"hidden\" name=\"passwd\" value = \"$prof{passwd}\">&nbsp;&nbsp;&nbsp;<font size = \"-1\" color = \"#ff0000\"><b>¥á¥â¤·¤Æ¤¯¤À¤µ¤¤</font>\n";
				print "    </td>\n";
				print "  </tr>\n";
				print "</table>\n";
				print "<input type = \"submit\" value = \"½¤Àµ\">\n";
				print "</form>\n";
				print "<hr>\n";
				print "<center>\n";
				print "<font size = \"+2\"><b>¹ØÆ?ÆâÍƳÎǧ</b></font>\n";
				print "</center>\n";
				print "<br>\n";
				print "°Ê²¼¤Î¹ØÆ?ÆâÍƤǤè¤í¤·¤±¤?С֥Á¥§¥Ã¥¯¥¢¥¦¥È¡×¥Ü¥¿¥ó¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
				print "¹ØÆ?ÆâÍÆÊѹ¹¤Î¾?ç¤Ï¡Ö¥Ð¥¹¥±¥Ã¥È¡×¥Ü¥¿¥ó¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
				print "ÄɲùØÆ?¤¬¤¢¤??ç¤Ï¡Ö¹ØÆ?¤ò³¤±¤?ץܥ¿¥ó¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
				print "<br>\n";
				print "<table cellspacing = \"0\">\n";
				print "				<tr>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>¥ª¡¼¥À¡¼ÈÖ¹?</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>ŹÊÞÈÖ¹?</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>¾¦ÉÊÈÖ¹?</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>¾¦ÉÊ̾</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>ñ²Á</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>¸Ä¿?</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>ñ°Ì½ÅÎÌ</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>¾®·×½ÅÎÌ</b></font>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#8800ff\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>¶â³Û</b></font>\n";
				print "								</td>\n";
				print "				</tr>\n";
				print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
				&calculate_product_volume;
				$z_sub_total_weight = 0;
				$z_sub_total = 0;
				foreach $key (sort keys %new_store_code) {

					$last_store_code = "$key" . "__" . "store_code";
					$last_product_code = "$key" . "__" . "product_code";
					$last_product_name = "$key" . "__" . "product_name";
					$last_product_cost = "$key" . "__" . "product_cost";
					$last_product_volume = "$key" . "__" . "product_volume";
					$last_product_weight = "$key" . "__" . "product_weight";
					$last_u_of_weight = "$key" . "__" . "u_of_weight";
					$last_sub_total_weight = "$key" . "__" . "sub_total_weight";
					$last_sub_total = "$key" . "__" . "sub_total";

					$product_code = $new_product_code{$key};
					&read_product_file;
					print "				<tr>\n";
					print "								<td align = \"right\" valign = \"top\">\n";
					print "<font size = \"-1\">$order_num</font>\n";
					#print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
					print "								</td>\n";
					print "								<td align = \"right\" valign = \"top\">\n";
					print "<font size = \"-1\">$new_store_code{$key}</font>\n";
					print "<input type = \"hidden\" name = \"$last_store_code\" value = \"$new_store_code{$key}\">\n";
					print "								</td>\n";
					print "								<td align = \"right\" valign = \"top\">\n";
					print "<fontsize = \"-1\">$new_product_code{$key}</font>\n";
					print "<input type = \"hidden\" name = \"$last_product_code\" value = \"$new_product_code{$key}\">\n";
					print "								</td>\n";
					print "								<td valign = \"top\">\n";
					print "<fontsize = \"-1\">$target_Product_Name</font>\n";
					print "<input type = \"hidden\" name = \"$last_product_name\" value = \"$target_Product_Name\">\n";
					print "								</td>\n";
					print "								<td align = \"right\" valign = \"top\">\n";

					$comma_target_Product_Cost = &commas ($target_Product_Cost);

					print "<fontsize = \"-1\">$comma_target_Product_Cost ±ß</font>\n";
					print "<input type = \"hidden\" name = \"$last_product_cost\" value = \"$target_Product_Cost\">\n";
					print "								</td>\n";
					print "								<td align = \"right\" valign = \"top\">\n";
					
					$comma_target_volume = &commas ($new_volume{$key});

					print "<font size = \"-1\">$comma_target_volume</font>\n";
					print "<input type = \"hidden\" name = \"$last_product_volume\" value = \"$new_volume{$key}\">\n";
					print "								</td>\n";
					print "								<td align = \"right\" valign = \"top\">\n";
					
					$comma_target_Product_Weight = &commas ($target_Product_Weight);
					
					print "<font size = \"-1\">$comma_target_Product_Weight\n";
					print "<input type = \"hidden\" name = \"$last_product_weight\" value = \"$target_Product_Weight\">\n";
					if ($u_of_weight) {
						print " $u_of_weight\n";
						print "<input type = \"hidden\" name = \"$last_u_of_weight\" value = \"$u_of_weight\">\n";
					}
					print "</font>\n";
					print "								</td>\n";
					print "								<td align = \"right\" valign = \"top\">\n";
					
					$sub_total_weight = $target_Product_Weight * $new_volume{$key};
					$comma_sub_total_weight = &commas ($sub_total_weight);
					$z_sub_total_weight = $z_sub_total_weight + $sub_total_weight;

					print "<font size = \"-1\">$comma_sub_total_weight\n";
					print "<input type = \"hidden\" name = \"$last_sub_total_weight\" value = \"$sub_total_weight\">\n";
					if ($u_of_weight) {
						print " $u_of_weight\n";
					}
					print "</font>\n";
					print "								</td>\n";
					print "								<td align = \"right\" valign = \"top\">\n";
					
					$sub_total = $target_Product_Cost * $new_volume{$key};
					$comma_sub_total = &commas ($sub_total);
					$z_sub_total = $z_sub_total + $sub_total;
					
					print "<font size = \"-1\">$comma_sub_total ±ß</font>\n";
					print "<input type = \"hidden\" name = \"$last_sub_total\" value = \"$sub_total\">\n";
					print "								</td>\n";
					print "				</tr>\n";
				}
				print "				<tr>\n";
				print "								<td bgcolor = \"#6600bb\" colspan = \"8\" align = \"right\">\n";
				
				
				print "<font color = \"#ffffff\" size = \"-1\"><b>¾®·×¶â³Û</b>\n";
				print "								</td>\n";
				print "								<td bgcolor = \"#6600bb\" align = \"right\">\n";
				
				$comma_z_sub_total = &commas ($z_sub_total);

				print "<font color = \"#ffffff\" size = \"-1\"><b>$comma_z_sub_total ±ß</b>\n";
				print "<input type = \"hidden\" name = \"z_sub_total\" value = \"$z_sub_total\">\n";
				print "		</td>\n";
				print "	</tr>\n";
				print "<!--\n";
		
				if ($freight_rate) {
					print "	<tr>\n";
					print "		<td bgcolor = \"#6600bb\" colspan = \"8\" align = \"right\">\n";
					$freight = $z_sub_total_weight * $freight_rate;
					
					$comma_freight = &commas ($freight);

					print "<font color = \"#ffffff\" size = \"-1\"><b>±¿ÄÂ</b>\n";
					print "		</td>\n";
					print "		<td bgcolor = \"#6600bb\">\n";
					print "<font color = \"#ffffff\" size = \"-1\"><b>$comma_freight ±ß</b>\n";
					print "<input type = \"hidden\" name = \"freight\" value = \"$freight\">\n";
					print "		</td>\n";
					print "	</tr>\n";
				}
				print "-->\n";
				print "	<tr>\n";
				print "		<td bgcolor = \"#6600bb\" colspan = \"8\" align = \"right\">\n";
				
				if ($freight_rate) {
					$tax = ($z_sub_total + $freight) * 0.05;
				} else {
					$tax = ($z_sub_total) * 0.05;
				}
				
				$comma_tax = &commas ($tax);

				print "<font color = \"#ffffff\" size = \"-1\"><b>¾ÃÈñÀÇ</b>\n";
				print "		</td>\n";
				print "		<td bgcolor = \"#6600bb\" align = \"right\">\n";
				print "<font size = \"-1\" color = \"#ffffff\"><b>$comma_tax ±ß</b>\n";
				print "<input type = \"hidden\" name = \"tax\" value = \"$tax\">\n";
				print "		</td>\n";
				print "	</tr>\n";
				print "	<tr>\n";
				print "		<td bgcolor = \"#6600bb\" colspan = \"8\" align = \"right\">\n";
				print "<font color = \"#ffffff\" size = \"-1\"><b>¹ç·×</b>\n";
				print "		</td>\n";
				print "		<td bgcolor = \"#6600bb\">\n";
		
				if ($freight_rate) {
					$gross_total = ($z_sub_total + $freight) * 1.05;
				} else {
					$gross_total = ($z_sub_total) * 1.05;
				}
				$comma_gross_total = &commas ($gross_total);

				print "<font size = \"-1\" color = \"#ffffff\"><b>$comma_gross_total ±ß</b>\n";
				print "<input type = \"hidden\" name = \"gross_total\" value = \"$gross_total\">\n";
				print "		</td>\n";
				print "	</tr>\n";
				print "</table>\n";
				print "<input type = \"hidden\" name = \"Action\" value = \"CHECKOUT\">\n";
				print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
				print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
				print "<input type = \"hidden\" name = \"proccess_flg\" value = \"finish\">\n";
				print "\n";
				print "\n";
				print "<input type = \"submit\" value = \"¥Á¥§¥Ã¥¯¥¢¥¦¥È\">\n";
				print "</form>\n";
				print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
				print "<input type = \"hidden\" name = \"Action\" value = \"BASKET\">\n";
				print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
				print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
				print "<input type = \"submit\" value = \"¥Ð¥¹¥±¥Ã¥È\">\n";
				print "</form>\n";
				print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
				print "<input type = \"hidden\" name = \"Action\" value = \"GOBACK\">\n";
				print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
				print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
				print "<input type = \"submit\" value = \"¹ØÆ?¤ò³¤±¤?">\n";
				print "\n";




				print "</BLOCKQUOTE>\n";
				&print_formatted_bottom;
			}
		}
	}
}
##########################################################
#¥Ð¥¹¥±¥Ã¥ÈÆâÍÆɽ¼¨
# &show_basket;

sub show_basket {

	&set_cookie;
	print "Content-type: text/html\n\n";


	print "<HTML>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<HEAD>\n";
	print "<TITLE>¥Ð¥¹¥±¥Ã¥ÈÆâÍÆɽ¼¨</TITLE>\n";
	print "</HEAD>\n";
	print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
	print "\n";
	print "\n";
	print "</HEAD>\n";
	&print_formatted_head;
	print "<BLOCKQUOTE>\n";
	print "<center>\n";
	print "<font size = \"+2\"><b>¥Ð¥¹¥±¥Ã¥ÈÆâÍÆ</b></font>\n";
	print "</center>\n";
	print "<br>\n";
	unless (-e $order_tmp_file) {
		print "¸½ºß¡¢¥Ð¥¹¥±¥Ã¥È¤Ï¶õ¤Ç¤¹¡£<br>\n";
	} elsif (-z $order_tmp_file) {
		print "¸½ºß¡¢¥Ð¥¹¥±¥Ã¥È¤Ï¶õ¤Ç¤¹¡£<br>\n";
	} else {
		print "¸½ºß¤Î¥Ð¥¹¥±¥Ã¥È¤ÎÆâÍƤϰʲ¼¤Î¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£<br>\n";
		print "¸ÄÊ̾¦Éʤκ??Ï¡¢¾¦ÉÊÍó¤Î±¦¤Ë¤¢¤?Öº??ץܥ¿¥ó¤ò¥¯¥?Ã¥¯¤·¤Æ¤¯¤À¤µ¤¤¡£<br>\n";
		print "<br>\n";
		print "<table cellspacing = \"0\">\n";
		print "	<tr>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¥ª¡¼¥À¡¼ÈÖ¹?</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>ÅÁɼÈÖ¹?</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>ŹÊÞÈÖ¹?</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¾¦ÉÊÈÖ¹?</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¾¦ÉÊ̾</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>ñ²Á</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¸Ä¿?</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>ñ°Ì½ÅÎÌ</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¾®·×½ÅÎÌ</b></font>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#8800ff\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¶â³Û</b></font>\n";
		print "		</td>\n";
		print "		<td>\n";
		print "\n";
		print "		</td>\n";
		print "	</tr>\n";
		$warning_title = "Cannot open $order_tmp_file file.";
		open (DATA, "$order_tmp_file") || (&warning, exit(0));
		$line_num = 0;
		$z_sub_total = 0;
		$z_sub_total_weight = 0;
		while (<DATA>) {
			$line_num = $line_num + 1;
			chomp;
			($store_code,$product_code,$volume) = split (/,/,$_);

			&read_product_file;

			print "	<tr>\n";
			print "		<td align = \"right\" valign = \"top\">\n";
			print "<font size = \"-1\">$order_num</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";
			print "<font size = \"-1\">$line_num</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";
			print "<font size = \"-1\">$store_code</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";
			print "<fontsize = \"-1\">$target_Product_Code</font>\n";
			print "		</td>\n";
			print "		<td valign = \"top\">\n";
			print "<fontsize = \"-1\">$target_Product_Name</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";
			$c_target_Product_Cost = &commas($target_Product_Cost);
			print "<fontsize = \"-1\">$c_target_Product_Cost</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";
			$c_volume = &commas($volume);
			print "<font size = \"-1\">$c_volume</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";

			$comma_target_Product_Weight = &commas ($target_Product_Weight);

			print "<font size = \"-1\">$comma_target_Product_Weight\n";
			if ($u_of_weight) {
				print " $u_of_weight\n";
			}
			print "</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";

			$sub_total_weight = $target_Product_Weight * $volume;
			$comma_sub_total_weight = &commas ($sub_total_weight);
			$z_sub_total_weight = $z_sub_total_weight + $sub_total_weight;

			print "<font size = \"-1\">$comma_sub_total_weight\n";
			if ($u_of_weight) {
				print " $u_of_weight\n";
			}
			print "</font>\n";
			print "		</td>\n";
			print "		<td align = \"right\" valign = \"top\">\n";

			$sub_total = $target_Product_Cost * $volume;
			$comma_sub_total = &commas ($sub_total);
			$z_sub_total = $z_sub_total + $sub_total;
			print "<font size = \"-1\">$comma_sub_total ±ß</font>\n";
			print "		</td>\n";
			print "		<td valign = \"top\">\n";
			print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
			print "<input type = \"hidden\" name = \"Action\" value = \"DELETE\">\n";
			print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
			print "<input type = \"hidden\" name = \"line_num\" value = \"$line_num\">\n";
			print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
			print "<input type = \"submit\" value = \"º??">\n";
			print "</form>\n";
			print "		</td>\n";
			print "	</tr>\n";
		}
		print "	<tr>\n";
		print "		<td bgcolor = \"#6600bb\" colspan = \"9\" align = \"right\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¾®·×¶â³Û</b>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#6600bb\" align = \"right\">\n";

		$comma_z_sub_total = &commas ($z_sub_total);

		print "<font color = \"#ffffff\" size = \"-1\"><b>$comma_z_sub_total ±ß</b>\n";
		print "<input type = \"hidden\" name = \"z_sub_total\" value = \"$z_sub_total\">\n";
		print "		</td>\n";
		print "		<td>\n";
		print "&nbsp;\n";
		print "		</td>\n";
		print "	</tr>\n";
		print "<!--\n";
		
		if ($freight_rate) {
			print "	<tr>\n";
			print "		<td bgcolor = \"#6600bb\" colspan = \"9\" align = \"right\">\n";
			$freight = $z_sub_total_weight * $freight_rate;
			$comma_freight = &commas ($freight);

			print "<font color = \"#ffffff\" size = \"-1\"><b>±¿ÄÂ</b>\n";
			print "		</td>\n";
			print "		<td bgcolor = \"#6600bb\">\n";
			print "<font color = \"#ffffff\" size = \"-1\"><b>$comma_freight ±ß</b>\n";
			print "<input type = \"hidden\" name = \"freight\" value = \"$freight\">\n";
			print "		</td>\n";
			print "		<td>\n";
			print "&nbsp;\n";
			print "		</td>\n";
			print "	</tr>\n";
		}
		print "-->\n";
		print "	<tr>\n";
		print "		<td bgcolor = \"#6600bb\" colspan = \"9\" align = \"right\">\n";

		if ($freight_rate) {
			$tax = ($z_sub_total + $freight) * 0.05;
		} else {
			$tax = ($z_sub_total) * 0.05;
		}
		$comma_tax = &commas ($tax);

		print "<font color = \"#ffffff\" size = \"-1\"><b>¾ÃÈñÀÇ</b>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#6600bb\" align = \"right\">\n";
		print "<font size = \"-1\" color = \"#ffffff\"><b>$comma_tax ±ß</b>\n";
		print "<input type = \"hidden\" name = \"tax\" value = \"$tax\">\n";
		print "		</td>\n";
		print "		<td>\n";
		print "&nbsp;\n";
		print "		</td>\n";
		print "	</tr>\n";
		print "	<tr>\n";
		print "		<td bgcolor = \"#6600bb\" colspan = \"9\" align = \"right\">\n";
		print "<font color = \"#ffffff\" size = \"-1\"><b>¹ç·×</b>\n";
		print "		</td>\n";
		print "		<td bgcolor = \"#6600bb\">\n";
		
		if ($freight_rate) {
			$gross_total = ($z_sub_total + $freight) * 1.05;
		} else {
			$gross_total = ($z_sub_total) * 1.05;
		}
		$comma_gross_total = &commas ($gross_total);

		print "<font size = \"-1\" color = \"#ffffff\"><b>$comma_gross_total ±ß</b>\n";
		print "<input type = \"hidden\" name = \"gross_total\" value = \"$gross_total\">\n";
		print "		</td>\n";
		print "		<td>\n";
		print "&nbsp;\n";
		print "		</td>\n";
		print "	</tr>\n";
		print "</table>\n";
		print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
		print "<input type = \"hidden\" name = \"Action\" value = \"CHECKOUT\">\n";
		print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
		print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
		print "<input type = \"submit\" value = \"¹ØÆ?¤ò·èÄꤷ¥Á¥§¥Ã¥¯¥¢¥¦¥È¤¹¤?">\n";
		print "</form>\n";
		print "<form action=\"http://$uri/$cgi_dir/basket.cgi\" method=\"post\" name = \"toroku\">\n";
		print "<input type = \"hidden\" name = \"Action\" value = \"GOBACK\">\n";
		print "<input type = \"hidden\" name = \"order_num\" value = \"$order_num\">\n";
		print "<input type = \"hidden\" name = \"user_num\" value = \"$user_num\">\n";
		print "<input type = \"submit\" value = \"¹ØÆ?¤ò³¤±¤?">\n";
	}
	print "</BLOCKQUOTE>\n";
	&print_formatted_bottom;
}
##############################################
# calculate_product_volume;

sub calculate_product_volume {
	$warning_title = "Cannot open $order_tmp_file";
	open (DATA, $order_tmp_file) || (print "Cannot open $order_tmp_file", exit(0));
	$line_num = 0;
	while (<DATA>) {
		$line_num = $line_num + 1;
		chomp;
		($store_code,$product_code,$volume) = split (/,/,$_);
		$store_code{$line_num} = $store_code;
		$product_code{$line_num} = $product_code;
		$volume{$line_num} = $volume;
	}
	@w1 = ();
	$number = 0;
	@pairs = ();
	for ($i = 1; $i <= $line_num; $i++) {
		$w1_flg = 0;
		foreach (@w1) {
			if ($i == $_) {
				$w1_flg = $w1_flg + 1;
				last;
			}
		}
		if ($w1_flg == 0) {
			$w_flg = 0;
			$pair = "$i";
			for ($j = ($i + 1); $j <= $line_num; $j++) {
				if (($store_code{$i} eq $store_code{$j}) && ($product_code{$i} eq $product_code{$j})) {
					$w_flg = $w_flg + 1;
					@w1 = (@w1,$i,$j);
					$pair = "$pair" . ":" . "$j";
				} else {
					$w_flg = $w_flg + 0;
				}
			}
			if ($w_flg == 0) {
				$number = $number + 1;
				$new_store_code{$number} = $store_code{$i};
				$new_product_code{$number} = $product_code{$i};
				$new_volume{$number} = $volume{$i};
			} else {
				@pairs = (@pairs, $pair);
			}
		}
	}
	$numbers = keys (%new_store_code);#¥À¥Ö¤ê¤Î¤Ê¤¤¥Ç¡¼¥¿¤Î¿?
	$new_number = $numbers;
	if (@pairs) {
		$w_length = @pairs;
#		@ww_check = ();
		for ($i = 0; $i < $w_length; $i++) {
			$new_number = $new_number + 1;
#			$ww_flg = 0;
#			foreach (@ww_check) {
#				if ($i == $_) {
#					$ww_flg = $ww_flg +1;
#					last;
#				}
#			}
#			if ($ww_flg == 0) {
			@wpairs = split (/:/,$pairs[$i]);
#			@ww_check = (@ww_check, @wpairs);
			$first = $wpairs[0];
			$tmp_volume = 0;
			$new_store_code{$new_number} = $store_code{$first};
			$new_product_code{$new_number} = $product_code{$first};
			foreach $line (@wpairs) {
				$tmp_volume = $tmp_volume + $volume{$line};
			}
			$new_volume{$new_number} = $tmp_volume;
		}
	}
}
#			@ww = ($pair_front_first, $pair_end_first);
#			for ($j = 0; $j < $w_length; $j++) {
#				if ($i != $j) {
#					($pair_front_second,$pair_end_second) = split (/:/,$w[$j]);
#					if (($pair_front_first eq $pair_front_second) && ($pair_end_first ne $pair_end_second)) {
#					@ww = (@ww, $pair_end_second);
#				}
#			}
#			$new_number = $numbers + 1 + $i;
#			$new_volume{$new_number} = 0;
#			$new_store_code{$new_number} = $store_code{$pair_front_first};
#			$new_product_code{$new_number} = $product_code{$pair_front_first};
#			foreach (@ww) {
#				$new_volume{$new_number} = $new_volume{$new_number} + $volume{$_};
#			}
#		}
#	}
#}

##############################################
# &finish;

sub finish {

	# ¥ª¡¼¥À¡¼ÆâÍƤò¥Õ¥¡¥¤¥?ËÊݸ¤¹¤?£
	$order_dat_file = "$data_dir/ordered/$order_num.dat";
	$warning_title = "Cannot open Ordered file";
	open (DATA, ">$order_dat_file") || (&warning, exit(0));
	@numbers = ();
	foreach $key (sort keys %in) {
		if ($key =~ /__/) {
			@elements = split (/__/,$key);
			$check_flg = 0;
			foreach $number (@numbers) {
				if ($number eq $elements[0]) {
					$check_flg = $check_flg + 1;
					last;
				}
			}
			if ($check_flg == 0) {
				@numbers = (@numbers, $elements[0]);
			}
		}
	}
	undef ($number);
	foreach $number (@numbers) {
		foreach $key (sort keys %in) {
			if ($key =~ /__/) {
				@elements = split (/__/,$key);
			}
			if ($number eq $elements[0]) {
				print DATA "$key\n";
				print DATA "$in{$key}\n";
			}
		}
	}
	foreach $key (sort keys %in) {
		unless ($key =~ /__/) {
			print DATA "$key\n";
			print DATA "$in{$key}\n";
		}
	}

	# ¥ª¡¼¥À¡¼ tmp ¥Õ¥¡¥¤¥?òº??¹¤?£
	$order_tmp_file = "$data_dir/ordered/$order_num.tmp";
	$warning_title = "Cannot remove order tmp file.";
	unlink ($order_tmp_file) || (&warning, exit(0));

	# ¥ª¡¼¥À¡¼ÆâÍƤòȯÃí¼Ô¤ÈŹÊÞ¥ª¡¼¥Ê¡¼¤Ë¥á¡¼¥?¹¤?£

	$warning_title = "Cannot open $user_num.prof";
	open (PROF, "$memberdir/$user_num.prof") || (&warning, exit(0));
	while ($name = <PROF>) {
		chomp($name);
		$value = <PROF>;
		chomp($value);
		$prof{$name} = $value;
	}

	$p_number_now = $prof{pref};
	&get_pref_name;
	#$pref_name = $pref{$p_number_now};

	$subject_to_user = "$title" . " " . "ÃíʸÀÁ½?";
	$subject_to_owner = "¼õÃíÊó¹?";
	unless ($address_owner) {
		$address_owner = $prof{e_mail};
	}
	$address_user = $prof{e_mail};

	$prof_data = <<PROF;
¤´Ã´Åö¼Ô¤Î¤ªÌ¾Á° ----------- $prof{p_name_j}
¤´Ã´Åö¼Ô¤Î¥á¡¼¥?¢¥É¥?¹ --- $prof{e_mail}
¤ª¿½¹?¤ß¤ÎÁÈ¿¥Ì¾ ----------- $prof{mem_name_j}
ÅÅÏÃÈÖ¹? ------------------- $prof{tel}
£Æ£Á£ØÈÖ¹? ----------------- $prof{fax}
͹ÊØÈÖ¹? ------------------- $prof{zip}
ÅÔÆ»Éܸ©Ì¾ ----------------- $pref_name
¤´½»½? --------------------- $prof{address_j}
¤ªµÒÍÍÈÖ¹? ----------------- $user_num
¥Ñ¥¹¥?¼¥É ----------------- $prof{passwd}
PROF

	$warning_title = "Cannot open Ordered file";
	open (DATA, "$order_dat_file") || (&warning, exit(0));
	while ($name = <DATA>) {
		chomp($name);
		$value = <DATA>;
		chomp($value);
		$ordered{$name} = $value;
	}
	$ordered_data = "";
$ordered_data = "$ordered_data" . "
ÃíʸÈÖ¹? ------------------- $order_num
\n\n" . "
ŹÊÞÈÖ¹?  ¾¦ÉÊÈÖ¹?  ¾¦ÉÊ̾  ñ²Á  ¸Ä¿?  ñ°Ì½ÅÎÌ  ¾®·×½ÅÎÌ  ¶â³Û
\n";

foreach $number (@numbers) {
	$last_store_code = "$number" . "__" . "store_code";
	$last_product_code = "$number" . "__" . "product_code";
	$last_product_name = "$number" . "__" . "product_name";
	$last_product_cost = "$number" . "__" . "product_cost";
	$comma_cost = &commas ($ordered{$last_product_cost});
	$last_product_volume = "$number" . "__" . "product_volume";
	$comma_volume = &commas ($ordered{$last_product_volume});
	$last_product_weight = "$number" . "__" . "product_weight";
	$comma_weight = &commas ($ordered{$last_product_weight});
	$last_sub_total_weight = "$number" . "__" . "sub_total_weight";
	$comma_sub_total_weight = &commas ($ordered{$last_sub_total_weight});
	$last_sub_total = "$number" . "__" . "sub_total";
	$comma_sub_total = &commas ($ordered{$last_sub_total});

	$ordered_data = "$ordered_data" . "
$ordered{$last_store_code}  $ordered{$last_product_code}  $ordered{$last_product_name}  $comma_cost ±ß  $comma_volume  $comma_weight  $comma_sub_total_weight  $comma_sub_total ±ß\n";

}
if ($u_of_weight) {
	$ordered_data = "$ordered_data" . "ñ°Ì½ÅÎÌ $u_of_weight\n";
}
$c_ordered_z_sub_total = &commas($ordered{z_sub_total});
$ordered_data = "$ordered_data" . "\n
¾®·×¶â³Û ------------------- $c_ordered_z_sub_total ±ß
\n";
if ($ordered{freight}) {
	$c_ordered_freight = &commas($ordered{freight});
	$ordered_data = "$ordered_data" . "
	±¿Ä ----------------------- $c_ordered_freight ±ß
	\n";
}
$c_ordered_tax = &commas($ordered{tax});
$ordered_data = "$ordered_data" . "
¾ÃÈñÀÇ --------------------- $c_ordered_tax ±ß
\n";
$c_ordered_gross_total = &commas($ordered{gross_total});
$ordered_data = "$ordered_data" . "
¹ç·× ----------------------- $c_ordered_gross_total ±ß
\n\n";

if (-e $how_to_pay_file) {
	$how_to_pay = "";
	$warning_title = "$how_to_pay_file";
	open (HOW, "$how_to_pay_file") || (&warning, exit(0));
	while (<HOW>) {
		chomp;
		$how_to_pay = "$how_to_pay" . "$_\n";
	}
} else {
	$how_to_pay = <<PAY;
¤³¤³¤Ë»ÙʧÊ?Ë¡¤ÈÍ¢Á÷Ê?Ë¡¤ËÉÕ¤¤¤Æ¤ÎÀâÌÀ¤¬Æ?¤?£

PAY
}

if (-e $message_file) {
	$message = "";
	$warning_title = "Cannot open $message_file";
	open (MESSAGE, "$message_file") || (&warning, exit(0));
	while (<MESSAGE>) {
		chomp;
		$message = "$message" . "$_\n";
	}
} else {
	$message = <<MES;
¤³¤³¤ËŹÊÞ̾¡¢Å¹ÊÞ¤«¤é¤Î¥á¥Ã¥»¡¼¥¸¤¬Æ?¤?£

MES
}

if ("$prof{p_name_j}" ne "$prof{mem_name_j}") {
	$to_whom = "$prof{p_name_j}" . "\n" . "$prof{mem_name_j}" . "ÍÍ";
} else {
	$to_whom = "$prof{mem_name_j}" . "ÍÍ";
}
$user_body = <<USERBODY;
$to_whom

¤´ÃíʸͭÆñ¤¦¤´¤¶¤¤¤Þ¤¹¡£

º£²ó¤Î¤´ÃíʸÆâÍƤϰʲ¼¤È¤Ê¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£
¤´³Îǧ¤Î¾å¡¢¸í¤ê¤¬¤¢¤??ç¤Ï $address_owner ¤Þ¤Ç»?Þ¤´Ï¢Íí²¼¤µ¤¤¡£

------------- ¤ªµÒÍͥǡ¼¥¿ -------------

$prof_data


------------- º£²ó¤´ÃíʸÆâÍÆ -------------

$ordered_data


$how_to_pay

$message
USERBODY

$owner_body = <<OWNERBODY;
°Ê²¼¤ÎÃíʸ¤¬¤¢¤ê¤Þ¤·¤¿¡£


------------- ¤ªµÒÍͥǡ¼¥¿ -------------

$prof_data


------------- º£²ó¤´ÃíʸÆâÍÆ -------------

$ordered_data
OWNERBODY

	$user_body = jcode($user_body)->h2z->jis;
	$owner_body = jcode($user_body)->h2z->jis;
	$subject_to_user = jcode($subject_to_user)->h2z->jis;
	$header_coded_user = jcode($subject_to_user)->mime_encode;
	$subject_to_owner = jcode($subject_to_owner)->h2z->jis;
	$header_coded_owner = jcode($subject_to_owner)->mime_encode;
  $mailprog="sendmail -t";
  open(MESSAGE, "|$mailprog") || die("System Error ! mailprog not available");
  print MESSAGE "To: $address_owner, \n";
  print MESSAGE "From: $address_owner, \n";
  print MESSAGE "Subject: $header_coded_owner\n\n"; 
  print MESSAGE "$owner_body\n"; 
	close(MESSAGE);

  open(MESSAGEUS, "|$mailprog") || die("System Error ! mailprog not available");
  print MESSAGEUS "To: $address_user, \n";
  print MESSAGEUS "From: $address_owner, \n";
  print MESSAGEUS "Subject: $header_coded_user\n\n"; 
  print MESSAGEUS "$user_body\n"; 
	close(MESSAGEUS);


	# Thank you ²èÌ̤òɽ¼¨¤¹¤?£

	print "<HTML>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<HEAD>\n";
	print "<TITLE>Thank you ɽ¼¨</TITLE>\n";
	print "</HEAD>\n";
	print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
	print "<meta name=\"Copyright\" content=\"Ultra Speed Net Cyber Vision Hosting Co., Ltd.\">\n";
	print "\n";
	print "\n";
	print "</HEAD>\n";
	&print_formatted_head;
	print "<BLOCKQUOTE>\n";
	print "<center>\n";
	print "<font size = \"+2\"><b>¤´Ãíʸ´°Î»</b></font>\n";
	print "</center>\n";
	print "<br>\n";
	print "¤´ÃíʸͭÆñ¤¦¤´¤¶¤¤¤Þ¤¹¡£<br>\n";
	print "¤´ÃíʸÆâÍƤò¡¡$address_user¡¡¤Ë¥á¡¼¥?ǤªÃΤ餻¤·¤Æ¤¤¤Þ¤¹¡£<br>\n";
	print "ÆâÍƤò³Îǧ¤·¸í¤ê¤¬¤¢¤??ç¤Ï¡¡$address_owner¡¡¤Þ¤Ç»?ޥ᡼¥?ǤªÃΤ餻²¼¤µ¤¤¡£<br><br>\n";
	print "</BLOCKQUOTE>\n";
	&print_formatted_bottom;

}


###############################################
#´Ö°ã¤¤¤Î¹ðÃÎsub
sub warning {
  #################################################

  #html¥È¥Ã¥×¤Îɽ¼¨
  #$type = "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">";

  $title = "TOROKU_Wrong_$warning_title";
  &make_top;


  print "<br>\n";
  print "<center>\n";
  print "<b>$warning_title</b>\n";
  print "</center>\n";
  #################################################
  #html¥Ü¥È¥à¤Îɽ¼¨
  &make_bottom;
}
#########################################
#html¥È¥Ã¥×¤Îɽ¼¨
sub make_top {
  print "Content-type: text/html\n\n";
  print "<html><META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-euc-jp\">\n";
  print "<head>\n";
  #print "$type\n";
  print "<title>\n";
  print "$title\n";
  print "</title>\n";
  print "</head>\n";
  print "<body>\n";

}
#########################################
#html¥Ü¥È¥à¤Îɽ¼¨
sub make_bottom {

  print "</body>\n";
  print "</html>\n";
}
#########################################
#²Á³Ê¤ò¥«¥ó¥ÞÆ?¤ê¤Çɽ¼¨
sub commas {
  local($_) = @_;
  1 while s/(.*\d)(\d\d\d)/$1,$2/;
  $_;
}