#!/usr/bin/perl

#///////////////////////////////////////////////////////////////////////////////
#					Entry manager for Digital Contents Cart Ver11.00

#                      ----- 2008(C) WEB INVENTOR(Solve) -----
#                                 solve@wb-i.net
#                                 http://wb-i.net/

#
#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
#			http://・・/entry.cgi?mode=add0			登録
#			http://・・/entry.cgi?mode=ask0			注文確認
#			http://・・/entry.cgi?mode=point0		ポイント照会
#			http://・・/entry.cgi?mode=renew0		変更
#			http://・・/entry.cgi?mode=delet0		削除
#			http://・・/entry.cgi?mode=reissue0		パスワード再発行
#			http://・・/entry.cgi?mode=info0		会員窓口
#			http://・・/entry_k.cgi?（同じ）		i-mode、j-sky用（自動的に機種を判別する）
#
#===============================================================================
# ▼設定▼
#===============================================================================
# jcode.plへのパス
require './jcode.pl';

# cgi-lib.plへのパス
require './cgi-lib.pl';

# MIMEコード変換ライブラリ
require './mimew.pl';

#===========================

# ===============================================================================
# ▲設定終了▲
# ===============================================================================
# 
@kenmei=('都道府県','北海道','青森県','岩手県','秋田県','宮城県','山形県','福島県','東京都','神奈川県','埼玉県','千葉県','茨城県','栃木県','群馬県','新潟県','富山県','石川県','福井県','山梨県','長野県','岐阜県','静岡県','愛知県','三重県','滋賀県','京都府','大阪府','兵庫県','奈良県','和歌山県','鳥取県','島根県','岡山県','広島県','山口県','徳島県','香川県','愛媛県','高知県','福岡県','佐賀県','長崎県','熊本県','大分県','宮崎県','鹿児島県','沖縄県');

&ReadParse;

while (($key,$val) = each %in) {
	$form{$key} = $val;
	
	&jcode'convert(*val, "sjis");
	$val =~ s/<>//g;
	$in{$key} = $val;
}

# 設定ファイルへのパス
$order_encode =$in{'order'};
$order_encode =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;    #ここでエンコード

require './set.pl';

($a1,$a2,$a3,$a4,$a5,$color_adm_r,$t_width,$info_mail,$mail_title,$page) = split(/\<\>/,$FIELD[3]);

$ff_no =$in{'FF'};

#=================ヘッダーの変更=================
if($in{'head'} == 1){
$header = <<EOF;
<DIV align="center">
<table border="0" cellpadding="0" cellspacing="0" bgcolor=$bg_color>
	<tr><td>
	<DIV align="center">
EOF
}

#===== 戻り先========================================================
$script_back ="$script_e?order=$order_encode";
$modoru ="$script_back&amp;mode=m_manager&amp;pass=$in{'pass'}&amp;E_NO=$in{'E_NO'}&amp;M_ID=$in{'M_ID'}&amp;pas_word=$in{'pas_word'}";

#====================================================================
    if ( $in{'mode'} eq 'log_in0' ) { &log_in0; exit;}
    if ( $in{'mode'} eq 'log_in1' ) { &log_in1; exit;}
    if ( $in{'mode'} eq 'log_out0' ) { &log_out0; exit;}
    if ( $in{'mode'} eq 'ask0' ) { &ask0; exit;}
	if ( $in{'mode'} eq 'ask1' ) { &ask1; exit;}
    if ( $in{'mode'} eq 'add0' ) { &add0; exit;}
	if ( $in{'mode'} eq 'add1' ) { &add1; exit;}
	if ( $in{'mode'} eq 'add2' ) { &add2; exit;}
	if ( $in{'mode'} eq 'renew0' ) { &renew0; exit;}
	if ( $in{'mode'} eq 'renew1' ) { &renew1; exit;}
	if ( $in{'mode'} eq 'renew2' ) { &renew2; exit;}
	if ( $in{'mode'} eq 'renew3' ) { &renew3; exit;}
	if ( $in{'mode'} eq 'delet0' ) { &delet0; exit;}
	if ( $in{'mode'} eq 'delet1' ) { &delet1; exit;}
	if ( $in{'mode'} eq 'delet2' ) { &delet2; exit;}
	if ( $in{'mode'} eq 'info0' ) { &info0; exit;}
	if ( $in{'mode'} eq 'info1' ) { &info1; exit;}
	if ( $in{'mode'} eq 'info2' ) { &info2; exit;}
	if ( $in{'mode'} eq 'info3' ) { &info3; exit;}
    if ( $in{'mode'} eq 'reissue0' ) { &reissue0; exit;}
	if ( $in{'mode'} eq 'reissue1' ) { &reissue1; exit;}
    if ( $in{'mode'} eq 'point0' ) { &point0; exit;}
	if ( $in{'mode'} eq 'point1' ) { &point1; exit;}
	
    if ( $in{'mode'} eq 'link1' ) { &link0; exit;}
    if ( $in{'mode'} eq 'link2' ) { &link0; exit;}
    if ( $in{'mode'} eq 'link3' ) { &link0; exit;}
    if ( $in{'mode'} eq 'link1_1' ) { &link1; exit;}
    if ( $in{'mode'} eq 'link2_1' ) { &link1; exit;}
    if ( $in{'mode'} eq 'link3_1' ) { &link1; exit;}
	
	else { &add0; exit;}
#=======================================================================
sub write_list{

&read_list();

if($exist_flag ne 0){
	$input_err_mess ="<font color='#ff0000'>★同一ＩＤが存在しています。</font><br$xslash>";
	&add0();
	exit;
}

#=====ロック処理=======================
if ($lockkey ne 0) { &lock_list(); }

	open (IN,"$entry_file") || &error('オープンエラー13','指定された書込みファイルが開けません。');
	$entry_max = <IN>;
	close (IN);
	
	if($entry_max eq ""){$entry_max = 0;}
	$entry_no = $entry_max + 1;


open (OUT,">>$list_file") || &error("オープンエラー",'指定された書込みファイルが開けません。');

print OUT "$entry_no<>$in{'ID_NAME'}<>$in{'PASS'}<>$in{'NAME'}<>$in{'FAX'}<>$in{'DAT_TEL'}|$in{'TEL_SYU'}<>$in{'MAIL'}<>$in{'POST'}<>$in{'KEN'}:$in{'ADDR'}<>$in{'TEL'}<>$date_w<>0<>$in{'MAG'}<>$in{'KANA'}<>$in{'YEAR'}/$in{'MONTH'}/$in{'DAY'}<>$in{'OLD'}<>$in{'SEX'}<>PC\n";

close (OUT);

	open (OUT_C,">$entry_file") || &error('オープンエラー15','指定された書込みファイルが開けません。');
	print OUT_C "$entry_no";
	close (OUT_C);


#=====ファイルロック解除===============
if ($lockflag) { &unlock_list; }

}

#=======================================================
sub read_list{
if($in{'ID_NAME'} eq ''){$exist_flag =0;return;}
&get_file_name();

if (-e $list_file) {

	if (!open(IN,"$list_file")) { &error("オープンエラー",'指定された書込みファイルが開けません。');}
	@BASE = <IN>;
	close(IN);

	$exist_flag = 0;
	foreach(@BASE) {
		($entry_no,$identity,$password,$name,$fax,$keitai,$mail,$post,$addr,$tel,$date,$point,$mag,$kana,$born,$old,$sex,$kisyu) = split(/\<\>/,$_);
    	if($in{'ID_NAME'} eq $identity){
			($ken,$addr) = split(/\:/,$addr);
			($day_tel,$tel_syu) = split(/\|/,$keitai);
			($year,$month,$day) = split(/\//,$born);
			$exist_flag =1;
			if($in{'PASS'} eq $password){$exist_flag =2;}
			last;
    	}
	}
}else{ $read_error = 1; $exist_flag = 0;}

}
#===============================================================

sub search {
	
	$x =100;
	while($x < 200){
		$number1 =substr("$x",1,1);
		$number2 =substr("$x",2,1);
		$list_file =$dir_list.'/'.$number1.$number2.'.cgi';
		
		&read_all();
		if($exist_flag ne 0){ last;}
		
		$x ++;
	}
}

sub read_all{

if (-e $list_file) {

	if (!open(IN,"$list_file")) { &error("オープンエラー",'指定された書込みファイルが開けません。');}
	@BASE = <IN>;
	close(IN);

	$exist_flag = 0;
	foreach(@BASE) {
		($entry_no,$identity,$password,$name,$fax,$keitai,$mail,$post,$addr,$tel,$date,$point,$mag,$kana,$born,$old,$sex,$kisyu) = split(/\<\>/,$_);
#    	if($in{'ID_NAME'} eq $identity){$exist_flag =1;last;}
		if($in{'MAIL'} eq $mail){$exist_flag =2;last;}
			
	}
}else{ $read_error = 1; $exist_flag = 0;}


}
#===============================================================
sub get_file_name{

$letter =substr($in{'ID_NAME'},0,1);
&letter_number();
$number1 =$number;

$letter =substr($in{'ID_NAME'},1,1);
&letter_number();
$number2 =$number;

$list_file =$dir_list.'/'.$number1.$number2.'.cgi';
$lock_file =$dir_lock.'/'.$number1.$number2.'.lock';

}
sub letter_number{

	if($letter =~ /[ab]+/){
		$number =0;
	}elsif($letter =~ /[cd]+/){
		$number =1;
	}elsif($letter =~ /[e-g]+/){
	    $number =2;
	}elsif($letter =~ /[h-l]+/){
	    $number =3;
	}elsif($letter =~ /[m-o]+/){
	    $number =4;
	}elsif($letter =~ /[p-r]+/){
	    $number =5;
	}elsif($letter =~ /[s]+/){
	    $number =6;
	}elsif($letter =~ /[t-z]+/){
	    $number =7;
	}elsif($letter =~ /[A-L]+/){
	    $number =8;
	}elsif($letter =~ /[M-Z]+/){
	    $number =9;
	}elsif($letter =~ /[0-9]+/){
		$number =$letter;
	}else{
	    $number =9;
	}
}

#===============ＩＤ検索サブルーチン====================================================
sub id_kensaku {
# Cookieの値を得る
&getCookie();
$entry_url =$script_e;

$id_name_C = $COOKIE{'ID_NAME'};
$id_pass_C = $COOKIE{'ID_PASS'};
unless($id_name_C){
	$id_name_C = $COOKIE{'ID_NAME2'};
}
unless($id_pass_C){
	$id_pass_C = $COOKIE{'ID_PASS2'};
}
$id_kensaku ='ＩＤ検索';
if($in{'mode'}  eq 'log_in0'){
	$id_kensaku ='ログイン';
	$id_pass_C ='';
	$log_persistent ="<input type='checkbox' name='persistent' value='yes'$xslash>会員ＩＤ及びパスワードを記憶する。<br$xslash>";
}

if($id_pass_C ne ''){
    $in{'ID_NAME'} =$id_name_C;
    $in{'PASS'} =$id_pass_C;
    
    if($function eq 'ask1'){
    	&ask1();
    	exit;
    }elsif($function eq 'renew1'){
    	&renew1();
    	exit;
    }elsif($function eq 'delet1'){
    	&delet1();
    	exit;
    }elsif($function eq 'info1'){
    	&info1();
    	exit;
    }elsif($function eq 'point1'){
    	&point1();
    	exit;
    }elsif($function eq 'link1_1'){
    	&link1();
    	exit;
    }elsif($function eq 'link2_1'){
    	&link1();
    	exit;
    }elsif($function eq 'link3_1'){
    	&link1();
    	exit;
    }
}

if($function eq 'info1'){$entry_url =$script_ent;}

&html_header();
$t_width =$t_width -5;

if($script_e =~ /https:\/\//){
$ssl_mess =<<"EOF";
<li>ログオンする際に「セキュリティで保護されていない接続へリダイレクトされようとしています。・・・・続行しますか?」というメッセージが表\示される場合があります。これは暗号化状態(https://)から標準状態(http://)に画面が切り替わることを警告しているもので、当サイトの不具合を通知するものではありません。SSLで問題なく接続されていますので、「はい」をクリックして進んでください。</li>
EOF
}

	print <<"EOF";
	<br$xslash>
	<form name ="F1" method="post" action="$entry_url" enctype="multipart/form-data" onsubmit="return kakunin()">
	<table bgcolor="$color_adm_d" border='0' cellspacing='0' cellpadding='0' align='center' width="$t_width"><tr><td>
	<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
	<tr> 
	<td bgcolor="$color_adm_r" align='center'><b>$function_mess</b>
	</td></tr></table>
	</td></tr></table>

	<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
	<tr> 
	<td align='left'>$e_message
	</td></tr></table>

	<table border="0" cellpadding="5" align="center" cellspacing="1">
	<tr><td valign='top'>
	<table bgcolor="$color_adm_d" border='0' cellspacing='0' cellpadding='0' align='center'><tr><td>
	<table border='0' cellspacing='1' cellpadding='5' align='center' width="$t_width">

	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center' width="25%">会員ＩＤ</td>
	<td bgcolor='#ffffff' width="75%"> 
	<input style='ime-mode:disabled;' type="text" size='35' name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
	</td>
	</tr>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>パスワード</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="password" size='35' name="PASS" value="$in{'PASS'}"$xslash>
	</td>
	</tr>
	<tr><td colspan='2' bgcolor='#ffffff'>
	<input type="hidden" name="mode" value="$function"$xslash>
	<input type="hidden" name="order" value="$in{'order'}"$xslash>
	$log_persistent
	<input type="submit" value="$id_kensaku" class='submit'$xslash>\　
	<input type="reset" value="クリア" class='submit'$xslash>
	</td></tr>
	<tr><td colspan='2' bgcolor='#ffffff'>
	<table border='0' cellspacing='0' cellpadding='0' align='left'>
	<tr><td>
	<ul class='list_style'>
	$cookie_mess
	<li>会員ＩＤ： 登録済みの会員ＩＤ</li>
	<li>パスワード： 登録済みのパスワード。</li>
$ssl_mess
	</ul>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<script type="text/javascript">
function kakunin(){
  if (document.F1.ID_NAME.value == "") {
    alert("ＩＤが入力されていません。");
    document.F1.ID_NAME.focus();
    return(false);
  }
  if (document.F1.PASS.value == "") {
    alert("パスワードが入力されていません。");
    document.F1.PASS.focus();
    return(false);
  }
}
</script>
EOF

print "<br$xslash>$foot</body></html>\n" ;

}
#=================================入力チェック===============================
sub input_check{

if($in{'ID_NAME'} eq '' || $in{'ID_NAME'} =~ /[^a-zA-Z0-9\-\_\@\.]/){
	&error("[戻る] ボタンで戻って、会員ＩＤを確認してください。");
	exit;
}
if($in{'PASS'} eq '' || $in{'PASS'} =~ /[^a-zA-Z0-9]/){
	&error("[戻る] ボタンで戻って、パスワードを確認してください。");
	exit;
}

}
#========================================================================================
sub log_in0 {

	$function_mess = 'ログイン';
	$function = 'log_in1';
	$cookie_mess ='	<li>ブラウザーの設定がクッキー・オンの状態でログ・インできます。</li>';
	&id_kensaku();

}
#==================================================================
sub log_in1{

&input_check();

&read_list();
if($exist_flag == 0 || $exist_flag == 1){
	if($exist_flag == 0){$e_message ='<font color="#ff0000">★会員ＩＤが間違っています。</font>';}
	if($exist_flag == 1){$e_message ='<font color="#ff0000">★パスワードが間違っています。</font>';}
	
	$in{'mode'} = 'log_in0';
	
	$function_mess = 'ログイン';
	$function = 'log_in1';
	$cookie_mess ='	<li>ブラウザーの設定がクッキー・オンの状態でログ・インできます。</li>';
	&id_kensaku();
	exit;
}

#クッキーの設定
if($in{'persistent'} eq 'yes'){
	print &setCookie("ID_NAME", $in{'ID_NAME'});
	print &setCookie("KANJI", $name);
	print &setCookie("ID_PASS", $in{'PASS'});
	print &setCookie("SPECIAL_MEMBER", $day_tel);
}else{
	print &setCookie_0("ID_NAME", $in{'ID_NAME'});
	print &setCookie_0("KANJI", $name);
	print &setCookie_0("ID_PASS", $in{'PASS'});	
	print &setCookie_0("SPECIAL_MEMBER", $day_tel);	
}
	print "Location: $script?order=$order_encode&amp;log_in=yes&amp;ID_NAME=$in{'ID_NAME'}&amp;SPECIAL_MEMBER=$day_tel&amp;persistent=$in{'persistent'}&amp;kanji=$name\n\n";

}
#==================================================================
sub log_out0{

#クッキーの設定
print &setCookie("ID_NAME", '');	
print &setCookie("ID_PASS", '');	
print &setCookie("SPECIAL_MEMBER", '');

	print "Location: $script?order=$order_encode&amp;log_out=yes\n\n";

}
#========================================================================================
sub ask0 {

	$function_mess = '注文情報確認';
	$function = 'ask1';
	&id_kensaku();

}
#==================================================================
sub ask1{
&input_check();

&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

#クッキーの設定
#print &setCookie_0("ID_NAME", $in{'ID_NAME'});	

	print "Location: $script_h?order=$order_encode\n\n";

}

#========================================================================================
sub reissue0 {

# Cookieの値を得る
&getCookie();

$id_name_C = $COOKIE{'ID_NAME'};

&html_header();
$t_width =$t_width -5;

	print <<"EOF";
	<br$xslash>
	<form name ="F1" method="post" action="$script_ent" enctype="multipart/form-data" onsubmit="return kakunin()">
	<table bgcolor="$color_adm_d" border='0' cellspacing='0' cellpadding='0' align='center' width="$t_width"><tr><td>
	<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
	<tr> 
	<td bgcolor="$color_adm_r" align='center'><b>ﾊﾟｽﾜｰﾄﾞ再発行</b></td>
	</tr></table></td></tr></table>
	<table border="0" cellpadding="5" align="center" cellspacing="1">
	<tr><td valign='top'>
	<table bgcolor="$color_adm_d" border='0' cellspacing='0' cellpadding='0' align='center'><tr><td>
	
	<table border='0' cellspacing='1' cellpadding='5' width="$t_width" align='center'>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center' width="25%">会員ＩＤ</td>
	<td bgcolor='#ffffff' width="75%"> 
	<input style='ime-mode:disabled;' type="text" size='35' name="ID_NAME" value="$id_name_C"$xslash>
	</td>
	</tr>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>または　 ﾒｰﾙｱﾄﾞﾚｽ</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='35' name="MAIL"  value="$mail_C"$xslash>
	</td>
	</tr>
	<tr><td colspan='2' bgcolor='#ffffff'>
	<input type="hidden" name="order" value="$in{'order'}"$xslash>
	<input type="hidden" name="mode" value="reissue1"$xslash>
	<input type="submit" value="ﾊﾟｽﾜｰﾄﾞ再発行[送信]" class='submit'$xslash>\　
	<input type="reset" value="クリア" class='submit'$xslash>
	</td></tr>
	<tr><td colspan='2' bgcolor='#ffffff'>
	<table border='0' cellspacing='0' cellpadding='0' align='left'>
	<tr><td>
	<ul class='list_style'>
	<li>登録済み会員ＩＤ、又は登録してあるメールアドレスのいずれかを指定してください。</li>
	</ul>
	</td></tr></table>
	</td></tr></table>

	</td></tr></table>
	</td></tr></table>
	</form>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<script type="text/javascript">
function kakunin(){
  if (document.F1.ID_NAME.value == "" && document.F1.MAIL.value == "") {
    alert("ＩＤ 又は メールアドレスが入力されていません。");
    document.F1.ID_NAME.focus();
    return(false);
  }
}
</script>
EOF

print "<br$xslash>$foot</body></html>\n" ;

}

#=============================================
sub reissue1 {
if( ($in{'ID_NAME'} eq '' || $in{'ID_NAME'} =~ /[^a-zA-Z0-9\-\_\@\.]/) && ($in{'MAIL'} eq "" || $in{'MAIL'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/)){
	&error("[戻る] ボタンで戻って、会員ＩＤ又はメールアドレスを確認してください。");
}

&read_list();
if($exist_flag == 0){
	if($in{'MAIL'} eq ''){&error("会員ＩＤが間違っています。");
    }else{
		&search();
		if($exist_flag == 0){&error('指定された会員ＩＤ又はメールアドレスは登録されていません。');}
    }
}

$mailbody = <<END_OF_DATA;
$m_header
$name 様

会員ＩＤ 及び パスワードをお知らせ致します。

【会員ＩＤ】           $identity
【パスワード】      $password

$m_footer
END_OF_DATA

$mailto ="$mail";
$fromname =$shop_name;
$frommail =$info_mail;
$subject ='パスワード再発行';

&mail_send();

&html_header();
$t_width =$t_width -5;

print <<"EOF";
<br$xslash>
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
<tr><td valign='top' align="center">
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>ﾊﾟｽﾜｰﾄﾞ再発行完了</b></td></tr>
</table>
<br$xslash>
EOF
	print "<br$xslash><center>$identity 様のﾊﾟｽﾜｰﾄﾞをﾒｰﾙで送信しました。</center>\n";
	print "<br$xslash><center>当店のご利用に感謝致します。</center></td></tr></table>\n";

	print "<br$xslash><hr size='1' width=\"$t_width\"$xslash><br$xslash>$foot</body></html>\n" ;	



}
#======メールを送信する===========
#
#///////////////////////////////////////////////////////////////////
sub mail_send{
if ($testkey == 0) { return; }

if($sendmail =~ /sendmail/i){		#sendmail使用

$from_n_m ="$fromname<$frommail>";
$from_mime = &mimeencode($from_n_m);
$subject_mime = &mimeencode($subject);
&jcode'convert(*mailbody, "jis");

$mailhead = "To: $mailto\n";
$mailhead .= "From: $from_mime\n";
$mailhead .= "Subject: $subject_mime\n";
$mailhead .= "MIME-Version: 1.0\n";
$mailhead .= "Content-Type: text/plain;charset=\"ISO-2022-JP\"\n";
$mailhead .= "Content-Transfer-Encoding: 7bit\n";
$mailhead .= "\n";

if (-x $sendmail) {
	unless (open(OUT, "| $sendmail -t -f $frommail")) {
	    &mail_err();
	}
	unless (print OUT $mailhead) {
	    &mail_err();
	}
	unless (print OUT $mailbody) {
	    &mail_err();
	}
	close(OUT);
} else {
	&mail_err();
	&error("$sendmailがありません。(22)");
}

}else{			#SMTP使用：Windowsサーバ

	$mail_server =$sendmail;
	&send_mail($mail_server, $frommail, $mailto, $subject, $mailbody);	

}

}
#=====SMTPサブルーチン=======
sub send_mail {
	(my $SMTPserver,my $from,my $to,local $subj,local $body) = @_;	# 引数の受信
	my $SMTP;

	&jcode'convert(*subj,'jis');			# 文字化けするので、変換
	&jcode'convert(*body,'jis');			# 同上。

	# オブジェクトの作成
	$SMTP = Net::SMTP -> new( $SMTPserver,		# SMTPサーバー名を指定
				Hello => $SMTPserver,	# SMTPドメイン名を指定
				Timeout => 60);		# 接続待ち許容時間（秒）
	#ヘッダ部の組み立て
	$SMTP -> mail($from);				# 送信元メールアドレスを指定
	$SMTP -> to($to);				# 宛先メールアドレスを指定
#	$SMTP -> cc($cc);				# CC(カーボンコピー)先メールアドレスを指定
#	$SMTP -> bcc($from);				# ブラインドCC先メールアドレスを指定（送信元にもBccでメールを送る）Bcc不要時、コメント行にする。

	#データ部の組み立て
	$SMTP -> data();
	$SMTP -> datasend("From:$from\n");		# 送信元(データ部）
	$SMTP -> datasend("To:$to\n");			# 宛先(データ部）
	$SMTP -> datasend("Subject:$subj\n");		# 件名
	$SMTP -> datasend("\n");
	$SMTP -> datasend("$body\n");			# 本文
	$SMTP -> dataend();				# データ終端、メール送信
	$SMTP -> quit;					# SMTP接続の終了
}
#///////////////////////////////////////////////////////////////////
sub mail_err {
	&error("メールの送信に失敗しました。[戻る] ボタンで戻ってください。");
}


#=========================================================================================
sub add0 {

# Cookieの値を得る
&getCookie();

$entry_data = $COOKIE{'ENTRY_DATA'};

($id_name_C,$pass_C,$name_C,$mail_C,$addr_C,$ken_C,$post_C,$tel_C,$fax_C,$day_tel_C,$tel_syu_,$day_C,$mag_C,$sex_C,$year_C,$month_C,$day_C,$old_C,$kana_C) = split(/\<\>/,$entry_data);

if($mag_C ne '1'){
	$mag_yes ="$xchecked";
}else{
	$mag_no ="$xchecked";
}

if($sex_C eq '男'){
	$man ="$xchecked";
}elsif($sex_C eq '女'){
	$weman ="$xchecked";
}

foreach (@kenmei){
	if ($_ ne $ken_C){
		$ken_set .="<option>$_</option>";
	}else{
		$ken_set .="<option selected>$_</option>";
	}
}
@tel_syu =('表示','非表示');
foreach (@tel_syu){
	if ($_ ne $tel_syu_C){
		$tel_set .="<option>$_</option>";
	}else{
		$tel_set .="<option selected>$_</option>";
	}
}

&html_header();
$t_width =$t_width -5;

	print <<"EOF";
	<br$xslash><form name ="F1" method="post" action="$script_e" enctype="multipart/form-data" onsubmit="return kakunin()">
	<table border='0' cellspacing='0' cellpadding='0' align='center' width="$t_width"><tr><td>
	<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
	<tr> 
	<td bgcolor="$color_adm_r" align='center'><b>会員登録</b></td>
	</tr>
	<tr><td>
	$input_err_mess
	☆会員情報入力（<font color="#ff0000">※</font>印の個所は必ず入力してください。）
	</td></tr></table>
	</td></tr></table>

	<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
	<tr><td valign='top'>
	<table bgcolor="$color_adm_d" border='0' cellspacing='0' cellpadding='0' align='center' width="$t_width"><tr><td>
	<table border='0' cellspacing='1' cellpadding='5' width="$t_width" align='center'>
EOF


	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center' width="25%">会員ＩＤ(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff' width="75%"> 
	<input style='ime-mode:disabled;' maxlength='10' type="text" size='35' name="ID_NAME" value="$id_name_C"$xslash><br$xslash>
	<font color="#ff0000">☆英数半角で４文字以上１０文字以内。無記入のときはﾒｰﾙｱﾄﾞﾚｽが会員ＩＤとなります。</font>
	</td>
	</tr>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>パスワード(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' maxlength='10' type="password" size='35' name="PASS" value="$pass_C"$xslash><br$xslash>
	<font color="#ff0000">☆英数半角で４文字以上１０文字以内。</font>
	</td>
	</tr>

	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>店舗名とご担当者様名(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input type="text" size='35' name="NAME" value="$name_C"$xslash><br$xslash>
	<font color="#ff0000">☆店舗名とご担当者様名。\　例)○○生花店　山田 花子</font>
	</td>
	</tr>
EOF
if($ent_aux){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>$ent_aux(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input type="text" size='35' name="KANA" value="$kana_C"$xslash>
<font color='#ff0000'>例）○○セイカテン　ヤマダ ハナコ</font>
	</td>
	</tr>
EOF
}
if($born_yes){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>生年月日/年齢</td>
	<td bgcolor='#ffffff'> 
<input style='ime-mode:disabled;text-align:right;' maxlength='4' size='4' name='YEAR' value="$year_C"$xslash>年 
<input style='ime-mode:disabled;text-align:right;' maxlength='2' size='2' name='MONTH' value="$month_C"$xslash>月 
<input style='ime-mode:disabled;text-align:right;' maxlength='2' size='2' name='DAY' value="$day_C"$xslash>日
\　\　 年齢<input style='ime-mode:disabled;text-align:right;' maxlength='3' size='2' name='OLD' value="$old_C"$xslash>才<br$xslash>
<font color='#ff0000'>例）1980年10月25日</font>
</td>
	</tr>
EOF
}
if($sex_yes){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>性別</td>
	<td bgcolor='#ffffff'> 
	<input type='radio' value='男' name='SEX' $man$xslash>男性 <input type='radio' value='女' name='SEX' $weman$xslash>女性
	</td>
	</tr>
EOF
}
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ﾒｰﾙｱﾄﾞﾚｽ(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='35' name="MAIL" value="$mail_C"$xslash>
	</td>
	</tr>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ﾒｰﾙｱﾄﾞﾚｽ(確認)(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='35' name="MAIL2" value="$mail_C"$xslash><br$xslash>
	<font color="#ff0000">☆上記の確認用。</font>
	</td>
	</tr>
EOF
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ホームページURL</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='50' value="$fax_C" name='FAX'$xslash>
	</td>
	</tr>
EOF
if($addr_yes){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ご住所(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'>〒<input style='ime-mode:disabled;' size='13' name='POST' value="$post_C"$xslash><font color="#ff0000">\　例) 3101234</font>$zipcode_site<br$xslash>
<select name="KEN">
$ken_set
</select>
      <input size='50' name='ADDR' value="$addr_C"$xslash><br$xslash>
      <font color="#ff0000">☆商品をお届けする実在の住所。\　例) 市区町村、番地、アパート名、部屋番号まで。</font>
	</td>
	</tr>
EOF
}
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>電話番号(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='20' name="TEL" value="$tel_C"$xslash><font color="#ff0000">\　例) 03-○○○○-××××<BR>(ご連絡のとれるお電話番号をご記入下さい。)</font>
	</td>
	</tr>
EOF
if($special_mem){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>$special_mem</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' size='20' name='DAT_TEL' value="$day_tel_C" $xreadonly$xslash>
<select name="TEL_SYU">
$tel_set
</select>
	<br$xslash>
	<font color="#ff0000">$special_mem2</font></td>
	</tr>
EOF
}
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>メールマガジン配信</td>
	<td bgcolor='#ffffff'> 
	<input type='radio' value='' name='MAG' $mag_yes$xslash>希望する\　<input type='radio' value='1' name='MAG' $mag_no$xslash>希望しない
	</td>
	</tr>
	<tr><td colspan='2' bgcolor='#ffffff'>
	<input type="hidden" name="souryou" value="$in{'souryou'}"$xslash>
	<input type="hidden" name="now" value="$in{'now'}"$xslash>

	<input type="hidden" name="mode" value="add1"$xslash>
	<input type="hidden" name="order" value="$in{'order'}"$xslash>
	<input type="submit" value="会員登録[確認]" class='submit'$xslash>\　
	<input type="reset" value="クリア" class='submit'$xslash>
	</td></tr>
	<tr><td  colspan='2' bgcolor='#ffffff'>★これらの情報が公開されることはありません。
	</td></tr>
</table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<script type="text/javascript">
function kakunin(){
  x=document.F1.ID_NAME.value;
  y =x.length;
  if (document.F1.ID_NAME.value != "" && y < 4) {
    alert("会員ＩＤが正しくありません。。");
    document.F1.ID_NAME.focus();
    return(false);
  }
  x=document.F1.PASS.value;
  z =x.length;
  if (document.F1.PASS.value == "" || z < 4) {
    alert("パスワードが正しくありません。");
    document.F1.PASS.focus();
    return(false);
  }
  if (document.F1.NAME.value == "") {
    alert("お名前が入力されていません。");
    document.F1.NAME.focus();
    return(false);
  }
EOF
if($ent_aux){
	print <<"EOF";
  if (document.F1.KANA.value == "") {
    alert("$ent_auxが入力されていません。");
    document.F1.KANA.focus();
    return(false);
  }
EOF
}
	print <<"EOF";
  if (document.F1.MAIL.value == "") {
    alert("メールアドレスが入力されていません。");
    document.F1.MAIL.focus();
    return(false);
  }
  if (document.F1.MAIL2.value != document.F1.MAIL.value) {
    alert("メールアドレスを確認してください。");
    document.F1.MAIL2.focus();
    return(false);
  }
EOF
if($addr_yes){
	print <<"EOF";
  if (document.F1.POST.value == "") {
    alert("郵便番号が入力されていません。");
    document.F1.POST.focus();
    return(false);
  }
  if (document.F1.KEN.selectedIndex == 0) {
    alert("県名が選択されていません。");
    document.F1.KEN.focus();
    return(false);
  }
  if (document.F1.ADDR.value == "") {
    alert("住所が入力されていません。");
    document.F1.ADDR.focus();
    return(false);
  }
EOF
}
	print <<"EOF";
  if (document.F1.TEL.value == "") {
    alert("電話番号が入力されていません。");
    document.F1.TEL.focus();
    return(false);
  }
}
</script>
EOF

print "<br$xslash>$foot</body></html>\n" ;

}
#====================================会員登録確認====================================
sub add1 {
#クッキーの設定
$entry_data ="$in{'ID_NAME'}<>$in{'PASS'}<>$in{'NAME'}<>$in{'MAIL'}<>$in{'ADDR'}<>$in{'KEN'}<>$in{'POST'}<>$in{'TEL'}<>$in{'FAX'}<>$in{'DAT_TEL'}<>$in{'TEL_SYU'}<>$in{'DAY'}<>$in{'MAG'}<>$in{'SEX'}<>$in{'YEAR'}<>$in{'MONTH'}<>$in{'DAY'}<>$in{'OLD'}<>$in{'KANA'}";

print &setCookie_0("ENTRY_DATA", $entry_data);

if ($in{'MAIL'} eq "") {
	&error("[戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'MAIL'} ne $in{'MAIL2'}) {
	&error("[戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'MAIL'} ne "" && $in{'MAIL'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
	&error("[戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'ID_NAME'} =~ /[^a-zA-Z0-9\-\_\@\.]/) {
	&error("[戻る] ボタンで戻って、会員ＩＤを確認してください。");
}
if ($in{'PASS'} eq "") {
	&error("[戻る] ボタンで戻って、パスワードを確認してください。");
}
if ($in{'PASS'} ne "" && $in{'PASS'} =~ /[^a-zA-Z0-9]/) {
	&error("[戻る] ボタンで戻って、パスワードを確認してください。");
}

if ($in{'NAME'} eq "") {
	&error("[戻る] ボタンで戻って、お名前を確認してください。");
}
if($addr_yes){
	if ($in{'POST'} eq "") {
		&error("[戻る] ボタンで戻って、郵便番号を確認してください。");
	}
	if ($in{'POST'} =~ /[^0-9\-]/) {
		&error("[戻る] ボタンで戻って、郵便番号を確認してください。");
	}
	if ($in{'KEN'} eq "@kenmei[0]") {
		&error("[戻る] ボタンで戻って、都道府県を確認してください。");
	}
	if ($in{'ADDR'} eq "") {
		&error("[戻る] ボタンで戻って、住所を確認してください。");
	}
}
if ($in{'TEL'} eq "") {
	&error("[戻る] ボタンで戻って、電話番号を確認してください。");
}
if ($in{'TEL'} =~ /[^0-9\-]/) {
	&error("[戻る] ボタンで戻って、電話番号を確認してください。");
}

if($in{'MAG'} ne 1){
	$mag_set ='希望する';
}else{
	$mag_set ='希望しない';

}

if($in{'ID_NAME'} eq ""){$in{'ID_NAME'}  =$in{'MAIL'};}

&html_header();
$t_width =$t_width -5;

print <<"EOF";
<br$xslash>
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>会員登録確認</b></td></tr>
</table>
<br$xslash>

<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
	<tr><td valign='top' align="center">

<table bgcolor="$color_d" border='0' width="$t_width" cellpadding="0" cellspacing='0'><tr><td>
<table bgcolor="$color_d" border='0' cellpadding="5" cellspacing='1' width="$t_width">
<tr>
	<td align="center" bgcolor="$color_adm_r" height="22" width="25%">ＩＤ</td>
	<td bgcolor="#ffffff" height="22" width="75%">$in{"ID_NAME"}</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r" height="20">パスワード</td>
	 <td bgcolor="#ffffff" height="20">$in{"PASS"}</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r">お名前</td>
	<td bgcolor="#ffffff">$in{"NAME"}</td>
</tr>
EOF
if($ent_aux){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">$ent_aux</td>
	<td bgcolor="#ffffff">$in{"KANA"}</td>
</tr>
EOF
}
if($born_yes){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">生年月日</td>
	<td bgcolor="#ffffff">$in{"YEAR"}年$in{"MONTH"}月$in{"DAY"}日\　\　 年齢$in{"OLD"}才</td>
</tr>
EOF
}
if($sex_yes){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">性別</td>
	<td bgcolor="#ffffff">$in{"SEX"}</td>
</tr>
EOF
}
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">メール</td>
	<td bgcolor="#ffffff">$in{"MAIL"}</td>
</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r">ホームページURL</td>
	<td bgcolor="#ffffff">$in{"FAX"}</td>
</tr>
EOF
if($addr_yes){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">住所</td>
	<td bgcolor="#ffffff">〒$in{"POST"}<br$xslash>
      $in{"KEN"}$in{"ADDR"}</td>
    </tr>
EOF
}
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">電話番号</td>
	<td bgcolor="#ffffff">$in{"TEL"}</td>
	</tr>
EOF
if($special_mem){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">$special_mem</td>
	<td bgcolor="#ffffff">$in{"DAT_TEL"} [$in{"TEL_SYU"}]</td>
</tr>
EOF
}
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">メールマガジン配信</td>
	<td bgcolor="#ffffff">$mag_set</td>
	</tr>
</table>
</td></tr></table>

<table width="100%" cellpadding="0" cellspacing="0" bgcolor="$color_adm_d">
<tr><td style='text-align:right;' width="50%" bgcolor="#ffffff">

<form action="$script_e" method="post" style='margin-top:10px;margin-bottom:3px;margin-right:10px'>
<input type="hidden" name="souryou" value="$in{'souryou'}"$xslash>
<input type="hidden" name="now" value="$in{'now'}"$xslash>

<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
<input type="hidden" name="PASS" value="$in{'PASS'}"$xslash>
<input type="hidden" name="NAME" value="$in{'NAME'}"$xslash>
<input type="hidden" name="MAIL" value="$in{'MAIL'}"$xslash>
<input type="hidden" name="POST" value="$in{'POST'}"$xslash>
<input type="hidden" name="ADDR" value="$in{'ADDR'}"$xslash>
<input type="hidden" name="KEN" value="$in{'KEN'}"$xslash>
<input type="hidden" name="TEL" value="$in{'TEL'}"$xslash>
<input type="hidden" name="FAX" value="$in{'FAX'}"$xslash>
<input type="hidden" name="DAT_TEL" value="$in{'DAT_TEL'}"$xslash>
<input type="hidden" name="TEL_SYU" value="$in{'TEL_SYU'}"$xslash>
<input type="hidden" name="MAG" value="$in{'MAG'}"$xslash>
<input type="hidden" name="SEX" value="$in{'SEX'}"$xslash>
<input type="hidden" name="YEAR" value="$in{'YEAR'}"$xslash>
<input type="hidden" name="MONTH" value="$in{'MONTH'}"$xslash>
<input type="hidden" name="DAY" value="$in{'DAY'}"$xslash>
<input type="hidden" name="KANA" value="$in{'KANA'}"$xslash>
<input type="hidden" name="OLD" value="$in{'OLD'}"$xslash>
<input type="hidden" name="mode" value="add2"$xslash>
<input type="hidden" name="order" value="$in{'order'}"$xslash>
<input type="submit" value="会員登録[送信]" class='submit'$xslash><br$xslash>
</form>
</td>
<td style='text-align:left;' width="50%" bgcolor="#ffffff">

<form style='margin-top:10px;margin-bottom:3px;margin-left:10px'>
<input type='button' value='前の画面に戻る' onclick='history.back()' class='submit'$xslash>
</form>
</td>
</tr></table>

</td></tr></table>
EOF

	print <<"EOF";
<img src="$dir_p/line.gif" border="0" width="$t_width" height="1" alt=''$xslash>
EOF

	print "<br$xslash>$foot</body></html>\n" ;	


}
#===============================================================================
sub add2 {
    # タイムゾーンを日本時間に合わせる
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$day,$month,$year,$wday,$Days,$dmy) = localtime($times);
	$month = $month +1;
	$year = $year + 1900;
    $date_w = "$year"."/"."$month"."/"."$day";

&write_list();

if($in{'MAG'} ne 1){
	$mag_set ='希望する';
}else{
	$mag_set ='希望しない';
}

if($ent_aux){
	$ent_aux_put ="【$ent_aux】$in{'KANA'}\n";
}
if($born_yes){
	$born_yes_put =<<"EOF";
【生年月日】$in{'YEAR'}年$in{'MONTH'}月$in{'DAY'}日
【年齢】$in{'OLD'}
EOF
}
if($addr_yes){
	$addr_yes_put =<<"EOF";
【住所】 〒$in{'POST'} 
         $in{'KEN'}$in{'ADDR'}
EOF
}
if($sex_yes){
	$sex_yes_put ="【性別】$in{'SEX'}\n";
}
if($special_mem){
	$special_mem_put ="【$special_mem】 $in{'DAT_TEL'} [$in{'TEL_SYU'}]\n";
}

$mailbody = <<"END_OF_DATA";
$m_header
$in{'NAME'} 様

当店のご利用に感謝致します。
以下のように会員登録されましたのでご確認下さい。

【会員ＩＤ】 $in{'ID_NAME'}
【パスワード】 $in{'PASS'}
【お名前】 $in{'NAME'}
$ent_aux_put$born_yes_put$sex_yes_put【メールアドレス】 $in{'MAIL'}
【ホームページURL】 $in{'FAX'}
$addr_yes_put【電話番号】 $in{'TEL'}
$special_mem_put【メールマガジン配信】 $mag_set

$m_footer
END_OF_DATA

$mailto ="$in{'MAIL'}";
$fromname =$shop_name;
$frommail =$info_mail;
$subject ="$mail_title";

$mailbody2 =$mailbody;	#控えの送信のための保存

if($mem_mail_ok){&mail_send();}

#===============控えの送信===============
$addr = $ENV{'REMOTE_ADDR'};
$host = $ENV{'REMOTE_HOST'};

	if ($host eq "" || $host eq $addr) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
	}

$reprot2 ="【IPアドレス】$addr"."\n"."【ホスト名】$host"."\n\n";
$mailbody =$reprot2.$mailbody2;

$mailto =$info_mail;
$fromname =$in{'NAME'};
$frommail =$in{'MAIL'};
$subject ="$mail_title".'《会員登録の控え》';

if($mem_mail_ok){&mail_send();}
#==========================================================

#クッキーの設定
print &setCookie_0("ID_NAME", $in{'ID_NAME'});		#ログイン用
print &setCookie_0("KANJI", $in{'NAME'});
print &setCookie_0("ID_PASS", $in{'PASS'});

&html_header();
$t_width =$t_width -5;
	
print <<"EOF";
<br$xslash>
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>会員登録完了</b></td></tr>
</table>
<br$xslash>
EOF
	print "<br$xslash><center>会員登録を完了いたしました。</center>\n";

if($in{'now'}){
print <<"EOF";
	<br$xslash><center>引き続きご購入手続きを続けることができます。</center>
	<br$xslash><br$xslash><table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
	<tr> 
	<td align='center'>	
<form method="post" action="$script_ssl">
<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
<input type="hidden" name="PASS" value="$in{'PASS'}"$xslash>
<input type="hidden" name="souryou" value="$in{'souryou'}"$xslash>
<input type="hidden" name="order" value="$in{'order'}"$xslash>
<input type="hidden" name="class" value="$in{'class'}"$xslash>
<input type="hidden" name="FF" value="$in{'FF'}"$xslash>
<input type="hidden" name="keyword" value="$in{'keyword'}"$xslash>
<input type="hidden" name='price_sort' value="$in{'price_sort'}"$xslash>
<input type="hidden" name="mode" value="order_form"$xslash>
<input type="hidden" name="info" value="1"$xslash>
<input type="submit" value="購入手続きを続ける" class='submit'$xslash>\　
</form>
	</td></tr></table><br$xslash>
EOF
}else{

print <<"EOF";
	<br$xslash><center>当店のご利用に感謝致します。</center>
	<br$xslash><br$xslash><table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
	<tr><td align='right' width="50%">
<form method="post" action="$script">
<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
<input type="hidden" name="PASS" value="$in{'PASS'}"$xslash>
<input type="hidden" name="souryou" value="$in{'souryou'}"$xslash>
<input type="hidden" name="order" value="$in{'order'}"$xslash>
<input type="hidden" name="class" value="$in{'class'}"$xslash>
<input type="hidden" name="FF" value="$in{'FF'}"$xslash>
<input type="hidden" name="keyword" value="$in{'keyword'}"$xslash>
<input type="hidden" name='price_sort' value="$in{'price_sort'}"$xslash>
<input type="submit" value="ショッピングを続ける" class='submit'$xslash>\　\　\　
</form>
	</td><td align='left' width="50%">
<form method="post" action="$script_e">
<input type="hidden" name="souryou" value="$in{'souryou'}"$xslash>
<input type="hidden" name="order" value="$in{'order'}"$xslash>
<input type="hidden" name="class" value="$in{'class'}"$xslash>
<input type="hidden" name="FF" value="$in{'FF'}"$xslash>
<input type="hidden" name="keyword" value="$in{'keyword'}"$xslash>
<input type="hidden" name='price_sort' value="$in{'price_sort'}"$xslash>
<input type="hidden" name="mode" value="log_out0"$xslash>
\　\　\　<input type="submit" value="ログアウトする" class='submit'$xslash>
</form>
	</td></tr></table>
EOF
}
	print "<br$xslash><hr size='1' width=\"$t_width\"$xslash><br$xslash>$foot</body></html>\n" ;

#print "Location: $script?order=$order_encode\n\n";

}
#======================================================================================
sub renew0{

	$function_mess = '会員情報変更';
	$function = 'renew1';
	&id_kensaku();

}
#==================================================================
sub renew1{

&input_check();

&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

#クッキーの設定
#print &setCookie_0("ID", $in{'ID_NAME'});

foreach (@kenmei){
	if ($_ ne $ken){
		$ken_set .="<option>$_</option>";
	}else{
		$ken_set .="<option selected>$_</option>";
	}
}

if($sex eq '男'){
	$man ="$xchecked";
}else{
	$weman ="$xchecked";
}

@tel_syu =('表示','非表示');
foreach (@tel_syu){
	if ($_ ne $tel_syu){
		$tel_set .="<option>$_</option>";
	}else{
		$tel_set .="<option selected>$_</option>";
	}
}

if($mag ne '1'){
	$mag_yes ="$xchecked";
}else{
	$mag_no ="$xchecked";
}

&html_header();
$t_width =$t_width -5;

	print <<"EOF";
	<br$xslash><form name ="F1" method="post" action="$script_e" enctype="multipart/form-data" onsubmit="return kakunin()">
	<table border='0' cellspacing='0' cellpadding='0' align='center' width="$t_width"><tr><td>
	<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
	<tr> 
	<td bgcolor="$color_adm_r" align='center'><b>会員情報変更</b></td>
	</tr>
	<tr><td>
	☆会員情報入力（<font color="#ff0000">※</font>印の個所は必ず入力してください。）
	</td></tr></table>
	</td></tr></table>

	<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
	<tr><td valign='top'>
	<table bgcolor="$color_adm_d" border='0' cellspacing='0' cellpadding='0' align='center'><tr><td>
	<table border='0' cellspacing='1' cellpadding='5' width="$t_width" align='center'>
EOF

	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center' width="25%">会員ＩＤ(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff' width="75%"> 
	$identity
	</td>
	</tr>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>パスワード(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;'  maxlength='10' type="password" size='35' name="PASS" value="$password"><br$xslash>
	<font color="#ff0000">☆英数半角で４文字以上１０文字以内。</font>
	</td>
	</tr>

	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>お名前(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input type="text" size='35' name="NAME" value="$name"$xslash><br$xslash>
	<font color="#ff0000">☆実在のお名前。\　例) 鈴木　一郎</font>
	</td>
	</tr>
EOF
if($ent_aux){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>$ent_aux(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input type="text" size='35' name="KANA" value="$kana"$xslash>
<font color='#ff0000'>$ent_aux2</font>
	</td>
	</tr>
EOF
}
if($born_yes){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>生年月日</td>
	<td bgcolor='#ffffff'> 
<input style='ime-mode:disabled;text-align:right;' maxlength='4' size='4' name='YEAR' value="$year"$xslash>年 
<input style='ime-mode:disabled;text-align:right;' maxlength='2' size='2' name='MONTH' value="$month"$xslash>月 
<input style='ime-mode:disabled;text-align:right;' maxlength='2' size='2' name='DAY' value="$day"$xslash>日
\　\　 年齢<input style='ime-mode:disabled;text-align:right;' maxlength='2' size='2' name='OLD' value="$old"$xslash>才<br$xslash>
<font color='#ff0000'>例）1980年10月25日</font>
</td>
	</tr>
EOF
}
if($sex_yes){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>性別</td>
	<td bgcolor='#ffffff'> 
	<input type='radio' value='男' name='SEX' $man$xslash>男性 <input type='radio' value='女' name='SEX' $weman$xslash>女性
	</td>
	</tr>
EOF
}
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ﾒｰﾙｱﾄﾞﾚｽ(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='35' name="MAIL"  value="$mail"$xslash>
	</td>
	</tr>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ﾒｰﾙｱﾄﾞﾚｽ(確認)(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='35' name="MAIL2" value="$mail"$xslash><br$xslash>
	<font color="#ff0000">☆上記の確認用。</font>
	</td>
	</tr>
EOF
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ホームページURL</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='20' name='FAX' value="$fax"$xslash></td>
	</tr>
EOF
if($addr_yes){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>ご住所(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'>〒<input style='ime-mode:disabled;' size='13' name='POST' value="$post"$xslash><font color="#ff0000">\　例) 3101234</font>$zipcode_site<br$xslash>
<select name="KEN">
$ken_set
</select>
      <input size='50' name='ADDR' value="$addr"$xslash><br$xslash>
      <font color="#ff0000">☆商品をお届けする実在の住所。\　例) 市区町村、番地、アパート名、部屋番号まで。</font>
	</td>
	</tr>
EOF
}
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>電話番号(<font color="#ff0000">※</font>)</td>
	<td bgcolor='#ffffff'> 
	<input style='ime-mode:disabled;' type="text" size='20' name="TEL" value="$tel_C"$xslash><font color="#ff0000">\　例) 03-○○○○-××××<BR>(ご連絡のとれるお電話番号をご記入下さい。)</font>
	</td>
	</tr>
EOF
if($special_mem){
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>$special_mem</td>
	<td bgcolor='#ffffff'> 
<input style='ime-mode:disabled;' size='20' name="DAY_TEL"  value="$day_tel" readonly$xslash> 
<select name="TEL_SYU">
$tel_set
</select>
	<br$xslash>
	<font color="#ff0000">$special_mem2</font></td>
	</tr>
EOF
}
	print <<"EOF";
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align='center'>メールマガジン配信</td>
	<td bgcolor='#ffffff'> 
	<input type='radio' value='' name='MAG' $mag_yes$xslash>希望する\　<input type='radio' value='1' name='MAG' $mag_no$xslash>希望しない
	</td>
	</tr>
	<tr><td colspan='2' bgcolor='#ffffff'>
	<input type="hidden" name="ID_NAME" value="$identity"$xslash>
	<input type="hidden" name="order" value="$in{'order'}"$xslash>
	<input type="hidden" name="mode" value="renew2"$xslash>
	<input type="submit" value="情報変更[確認]" class='submit'$xslash>\　
	<input type="reset" value="クリア" class='submit'$xslash>
	</td></tr>
	<tr><td  colspan='2' bgcolor='#ffffff'>★これらの情報が公開されることはありません。
	</td></tr>
</table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<script type="text/javascript">
function kakunin(){
  x=document.F1.ID_NAME.value;
  y =x.length;
  if (document.F1.ID_NAME.value != "" && y < 4) {
    alert("会員ＩＤが正しくありません。。");
    document.F1.ID_NAME.focus();
    return(false);
  }
  x=document.F1.PASS.value;
  z =x.length;
  if (document.F1.PASS.value == "" || z < 4) {
    alert("パスワードが正しくありません。");
    document.F1.PASS.focus();
    return(false);
  }
  if (document.F1.NAME.value == "") {
    alert("お名前が入力されていません。");
    document.F1.NAME.focus();
    return(false);
  }
EOF
if($ent_aux){
	print <<"EOF";
  if (document.F1.KANA.value == "") {
    alert("$ent_auxが入力されていません。");
    document.F1.KANA.focus();
    return(false);
  }
EOF
}
	print <<"EOF";
  if (document.F1.MAIL.value == "") {
    alert("メールアドレスが入力されていません。");
    document.F1.MAIL.focus();
    return(false);
  }
  if (document.F1.MAIL2.value != document.F1.MAIL.value) {
    alert("メールアドレスを確認してください。");
    document.F1.MAIL2.focus();
    return(false);
  }
EOF
if($addr_yes){
	print <<"EOF";
  if (document.F1.POST.value == "") {
    alert("郵便番号が入力されていません。");
    document.F1.POST.focus();
    return(false);
  }
  if (document.F1.KEN.selectedIndex == 0) {
    alert("県名が選択されていません。");
    document.F1.KEN.focus();
    return(false);
  }
  if (document.F1.ADDR.value == "") {
    alert("住所が入力されていません。");
    document.F1.ADDR.focus();
    return(false);
  }
EOF
}
	print <<"EOF";
  if (document.F1.TEL.value == "") {
    alert("電話番号が入力されていません。");
    document.F1.TEL.focus();
    return(false);
  }
}
</script>
EOF


print "<br$xslash>$foot</body></html>\n" ;

}

sub renew2{
if ($in{'MAIL'} eq "") {
	&error("[戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'MAIL'} ne $in{'MAIL2'}) {
	&error("[戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'MAIL'} ne "" && $in{'MAIL'} !~ /[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
	&error("[戻る] ボタンで戻って、メールアドレスを確認してください。");
}
if ($in{'ID_NAME'} =~ /[^a-zA-Z0-9\-\_\@\.]/) {
	&error("[戻る] ボタンで戻って、会員ＩＤを確認してください。");
}
if ($in{'PASS'} eq "") {
	&error("[戻る] ボタンで戻って、パスワードを確認してください。");
}
if ($in{'PASS'} ne "" && $in{'PASS'} =~ /[^a-zA-Z0-9]/) {
	&error("[戻る] ボタンで戻って、パスワードを確認してください。");
}

if ($in{'NAME'} eq "") {
	&error("[戻る] ボタンで戻って、お名前を確認してください。");
}
if($addr_yes){
	if ($in{'POST'} eq "") {
		&error("[戻る] ボタンで戻って、郵便番号を確認してください。");
	}
	if ($in{'POST'} =~ /[^0-9\-]/) {
		&error("[戻る] ボタンで戻って、郵便番号を確認してください。");
	}
	if ($in{'KEN'} eq "@kenmei[0]") {
		&error("[戻る] ボタンで戻って、都道府県を確認してください。");
	}
	if ($in{'ADDR'} eq "") {
		&error("[戻る] ボタンで戻って、住所を確認してください。");
	}
}
if ($in{'TEL'} eq "") {
	&error("[戻る] ボタンで戻って、電話番号を確認してください。");
}
if ($in{'TEL'} =~ /[^0-9\-]/) {
	&error("[戻る] ボタンで戻って、電話番号を確認してください。");
}

if($in{'MAG'} ne 1){
	$mag_set ='希望する';
}else{
	$mag_set ='希望しない';
}

&html_header();
$t_width =$t_width -5;
print <<"EOF";
<br$xslash>
<table border='0' cellspacing='0' cellpadding='5' align='center' width="$t_width">
<tr><td bgcolor="$color_adm_r" align='center'><b>会員情報変更確認</b></td></tr>
</table>
<br$xslash>
EOF

print <<"EOF";
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
	<tr><td valign='top' align="center">
<table bgcolor="$color_d" border='0' width="$t_width" cellpadding="0" cellspacing='0'><tr><td>
<table bgcolor="$color_d" border='0' cellpadding="3" cellspacing='1' width="$t_width">
<tr>
	<td align="center" bgcolor="$color_adm_r" height="22" width="25%">ＩＤ</td>
	<td bgcolor="#ffffff" height="22" width="75%">$in{"ID_NAME"}</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r" height="20">パスワード</td>
	 <td bgcolor="#ffffff" height="20">$in{"PASS"}</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r">お名前</td>
	<td bgcolor="#ffffff">$in{"NAME"}</td>
</tr>
EOF
if($ent_aux){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">$ent_aux</td>
	<td bgcolor="#ffffff">$in{"KANA"}</td>
</tr>
EOF
}
if($sex_yes){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">性別</td>
	<td bgcolor="#ffffff">$in{"SEX"}</td>
</tr>
EOF
}
if($born_yes){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">生年月日</td>
	<td bgcolor="#ffffff">$in{"YEAR"}年$in{"MONTH"}月$in{"DAY"}日\　\　 年齢$in{"OLD"}才</td>
</tr>
EOF
}
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">メール</td>
	<td bgcolor="#ffffff">$in{"MAIL"}</td>
</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r">ホームページURL</td>
	<td bgcolor="#ffffff">$in{"FAX"}</td>
</tr>
EOF
if($addr_yes){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">住所</td>
	<td bgcolor="#ffffff">〒$in{"POST"}<br$xslash>
      $in{"KEN"}$in{"ADDR"}</td>
    </tr>
EOF
}
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">電話番号</td>
	<td bgcolor="#ffffff">$in{"TEL"}</td>
	</tr>
EOF
if($special_mem){
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">$special_mem</td>
	<td bgcolor="#ffffff">$in{"DAY_TEL"} [$in{"TEL_SYU"}]</td>
</tr>
EOF
}
print <<"EOF";
<tr>
	<td align="center" bgcolor="$color_adm_r">メールマガジン配信</td>
	<td bgcolor="#ffffff">$mag_set</td>
	</tr>
</table>
</td></tr></table>

<table width="100%" cellpadding="0" cellspacing="0" bgcolor="$color_adm_d">
<tr><td style='text-align:right;' width="50%" bgcolor="#ffffff">

<form action="$script_e" method="post" style='margin-top:10px;margin-bottom:3px;margin-right:10px'>
<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
<input type="hidden" name="PASS" value="$in{'PASS'}"$xslash>
<input type="hidden" name="NAME" value="$in{'NAME'}"$xslash>
<input type="hidden" name="MAIL" value="$in{'MAIL'}"$xslash>
<input type="hidden" name="POST" value="$in{'POST'}"$xslash>
<input type="hidden" name="KEN" value="$in{'KEN'}"$xslash>
<input type="hidden" name="ADDR" value="$in{'ADDR'}"$xslash>
<input type="hidden" name="TEL" value="$in{'TEL'}"$xslash>
<input type="hidden" name="FAX" value="$in{'FAX'}"$xslash>
<input type="hidden" name="DAY_TEL" value="$in{'DAY_TEL'}"$xslash>
<input type="hidden" name="TEL_SYU" value="$in{'TEL_SYU'}"$xslash>
<input type="hidden" name="MAG" value="$in{'MAG'}"$xslash>
<input type="hidden" name="SEX" value="$in{'SEX'}"$xslash>
<input type="hidden" name="YEAR" value="$in{'YEAR'}"$xslash>
<input type="hidden" name="MONTH" value="$in{'MONTH'}"$xslash>
<input type="hidden" name="DAY" value="$in{'DAY'}"$xslash>
<input type="hidden" name="KANA" value="$in{'KANA'}"$xslash>
<input type="hidden" name="OLD" value="$in{'OLD'}"$xslash>
<input type="hidden" name="order" value="$in{'order'}"$xslash>
<input type="hidden" name="mode" value="renew3"$xslash>
<input type="submit" value="情報変更[送信]" class='submit'$xslash><br$xslash>
</form>

</td>
<td style='text-align:left;' width="50%" bgcolor="#ffffff">

<form style='margin-top:10px;margin-bottom:3px;margin-left:10px'>
<input type='button' value='前の画面に戻る' onclick='history.back()' class='submit'$xslash>
</form>
</td>
</tr></table>

</td></tr></table>
EOF



	print <<"EOF";
<img src="$dir_p/line.gif" border="0" width="$t_width" height="1" alt=''$xslash>
EOF

	print "<br$xslash>$foot</body></html>\n" ;	


}

sub renew3{

&get_file_name();

#=====ロック処理=======================
if ($lockkey ne 0) { &lock_list(); }

&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}

	$exist_flag = 0;
	foreach $member_data(@BASE) {
	
		($entry_no,$identity,$password,$name,$fax,$keitai,$mail,$post,$addr,$tel,$date,$point,$mag,$kana,$born,$old,$sex,$kisyu) = split(/\<\>/,$member_data);

		if($entry_no eq '' || $entry_no eq "\n"){next;}

    	if($in{'ID_NAME'} eq $identity){
    		$kisyu =~ s/\r\n//g;
			$kisyu =~ s/\r//g;
			$kisyu =~ s/\n//g;
			$member_data = "$entry_no<>$in{'ID_NAME'}<>$in{'PASS'}<>$in{'NAME'}<>$in{'FAX'}<>$in{'DAY_TEL'}|$in{'TEL_SYU'}<>$in{'MAIL'}<>$in{'POST'}<>$in{'KEN'}:$in{'ADDR'}<>$in{'TEL'}<>$date<>$point<>$in{'MAG'}<>$in{'KANA'}<>$in{'YEAR'}/$in{'MONTH'}/$in{'DAY'}<>$in{'OLD'}<>$in{'SEX'}<>$kisyu\n"
    	}
    	
    	push (@NEW,$member_data); 

	}


open (OUT,">$list_file") || &error("オープンエラー",'指定された書込みファイルが開けません。');
print OUT (@NEW);
close (OUT);

#=====ファイルロック解除===============
if ($lockflag) { &unlock_list; }

if($in{'MAG'} ne 1){
	$mag_set ='希望する';
}else{
	$mag_set ='希望しない';
}

if($ent_aux){
	$ent_aux_put ="【$ent_aux】$in{'KANA'}\n";
}
if($born_yes){
	$born_yes_put =<<"EOF";
【生年月日】$in{'YEAR'}年$in{'MONTH'}月$in{'DAY'}日
【年齢】$in{'OLD'}
EOF
}
if($addr_yes){
	$addr_yes_put =<<"EOF";
【住所】 〒$in{'POST'} 
         $in{'KEN'}$in{'ADDR'}
EOF
}
if($sex_yes){
	$sex_yes_put ="【性別】$in{'SEX'}\n";
}
if($special_mem){
	$special_mem_put ="【$special_mem】 $in{'DAT_TEL'} [$in{'TEL_SYU'}]\n";
}

$mailbody = <<"END_OF_DATA";
$m_header
$in{'NAME'} 様

当店のご利用に感謝致します。
以下のように会員情報が変更されましたのでご確認下さい。

【会員ＩＤ】 $in{'ID_NAME'}
【パスワード】 $in{'PASS'}
【お名前】 $in{'NAME'}
$ent_aux_put$born_yes_put$sex_yes_put【メールアドレス】 $in{'MAIL'}
【ホームページURL】 $in{'FAX'}
$addr_yes_put【電話番号】 $in{'TEL'}
$special_mem_put【メールマガジン配信】 $mag_set

$m_footer
END_OF_DATA

$mailto ="$in{'MAIL'}";
$fromname =$shop_name;
$frommail =$info_mail;
$subject ='会員情報変更';

$mailbody2 =$mailbody;	#控えの送信のための保存

if($mem_mail_ok){&mail_send();}

#===============控えの送信===============
$addr = $ENV{'REMOTE_ADDR'};
$host = $ENV{'REMOTE_HOST'};

	if ($host eq "" || $host eq $addr) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
	}

$reprot2 ="【IPアドレス】$addr"."\n"."【ホスト名】$host"."\n\n";
$mailbody =$reprot2.$mailbody2;

$mailto =$info_mail;
$fromname =$in{'NAME'};
$frommail =$in{'MAIL'};
$subject ="会員情報変更".'《控え》';

if($mem_mail_ok){&mail_send();}
#==========================================================

&html_header();
$t_width =$t_width -5;
	
print <<"EOF";
<br$xslash>
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
<tr><td valign='top' align="center">
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>会員情報変更完了</b></td></tr>
</table>
<br$xslash>
EOF
	print "<br$xslash><center>$in{'ID_NAME'} 様の会員情報の変更が完了しました。</center>\n";
	print "<br$xslash><center>当店のご利用に感謝致します。</center></td></tr></table>\n";

	print "<br$xslash><hr size='1' width=\"$t_width\"$xslash><br$xslash>$foot</body></html>\n" ;	


}
#===============================================================
sub delet0{

	$function_mess = '会員情報削除';
	$function = 'delet1';
	&id_kensaku();

}

#===================
sub delet1{

&input_check();

&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

&html_header();
$t_width =$t_width -5;

print <<"EOF";
<br$xslash>
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>会員情報削除確認</b></td></tr>
</table>
<br$xslash>
EOF


print <<"EOF";
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
	<tr><td valign='top' align="center">
<table bgcolor="$color_d" border='0' width="$t_width" cellpadding="0" cellspacing='0'><tr><td>
<table bgcolor="$color_d" border='0' cellpadding="3" cellspacing='1' width="$t_width">
<tr>
	<td align="center" width="25%" bgcolor="$color_adm_r" height="22">ＩＤ</td>
	<td bgcolor="#ffffff" width="75%" height="22">$identity</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r" height="20">パスワード</td>
	 <td bgcolor="#ffffff" height="20">$password</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r">お名前</td>
	<td bgcolor="#ffffff">$name</td>
</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r">メール</td>
	<td bgcolor="#ffffff">$mail</td>
</tr>

</table>
</td></tr></table>
<form action="$script_e" method="post" style='margin-top:10px'>
<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
<input type="hidden" name="PASS" value="$in{'PASS'}"$xslash>
<input type="hidden" name="order" value="$in{'order'}"$xslash>
<input type="hidden" name="mode" value="delet2"$xslash>
<input type="hidden" name="log_out" value="yes"$xslash>
<input type="submit" value="会員削除" class='submit'$xslash><br$xslash>
</form>
<font color='#ff0000'>※会員データがすべて失われます。</font>
</td></tr></table>
EOF

	print <<"EOF";
<img src="$dir_p/line.gif" border="0" width="$t_width" height="1" alt=''$xslash>
EOF

	print "<br$xslash>$foot</body></html>\n" ;	

}

sub delet2{


&get_file_name();

#=====ロック処理=======================
if ($lockkey ne 0) { &lock_list(); }

&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

#クッキーの設定
print &setCookie("ID_NAME", '');
print &setCookie("ID_PASS", '');

	$exist_flag = 0;
	foreach $member_data(@BASE) {
	
		($entry_no,$identity,$password,$name,$fax,$keitai,$mail,$post,$addr,$tel,$date,$point,$mag,$kana,$born,$old,$sex,$kisyu) = split(/\<\>/,$member_data);

		if($entry_no eq '' || $entry_no eq "\n"){next;}

    	if($in{'ID_NAME'} eq $identity && $in{'PASS'} eq $password){
    		($entry_no_d,$identity_d,$password_d,$name_d,$fax_d,$keitai_d,$mail_d,$post_d,$addr_d,$tel_d,$date_d,$point_d,$mag_d,$kana_d,$born_d,$old_d,$sex_d,$kisyu_d) = split(/\<\>/,$member_data);
			next;
    	}
    	
    	push (@NEW,$member_data); 

	}


open (OUT,">$list_file") || &error("$list_fileオープンエラー14",'指定された書込みファイルが開けません。');
print OUT (@NEW);
close (OUT);

#=====ファイルロック解除===============
if ($lockflag) { &unlock_list; }

$addr_d =~ s/\://g;
($day_tel,$tel_syu) = split(/\|/,$keitai_d);

$mailbody = <<END_OF_DATA;
$m_header
$name_d 様

当店のご利用に感謝致します。
以下の会員情報が削除されましたのでお知らせ致します。

【会員ＩＤ】 $identity_d
【お名前】 $name_d
【フリガナ】$kana_d
【メールアドレス】 $mail_d

$m_footer
END_OF_DATA

$mailto ="$mail_d";
$fromname =$shop_name;
$frommail =$info_mail;
$subject ='会員削除';

&mail_send();

&html_header();
$t_width =$t_width -5;
	
print <<"EOF";
<br$xslash>
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
<tr><td valign='top' align="center">
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>会員削除完了</b></td></tr>
</table>
<br$xslash>
EOF
	print "<br$xslash><center>$in{'ID_NAME'} の会員の削除が完了しました。</center>\n";
	print "<br$xslash><center>当店のご利用に感謝致します。</center></td></tr></table>\n";

	print "<br$xslash><hr size='1' width=\"$t_width\"$xslash><br$xslash>$foot</body></html>\n" ;	

}

#=========================================================================================
sub info0{

	$function_mess = '会員窓口';
	$function = 'info1';
	&id_kensaku();

}

#=======================
sub info1{

&input_check();

&read_list();
if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

&html_header();
$t_width =$t_width -5;

print <<"EOF";
<br$xslash>
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>会員窓口（会員用お問合せフォーム）</b></td></tr>
</table>
<br$xslash>
EOF


print <<"EOF";
<form action="$script_ent" method="post" style='margin-bottom:0px'>
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
	<tr><td valign='top' align="center">
<table bgcolor="$color_d" border='0' width="$t_width" cellpadding="0" cellspacing='0'><tr><td>
<table bgcolor="$color_d" border='0' cellpadding="3" cellspacing='1' width="$t_width">
<tr>
	<td align="center" bgcolor="$color_adm_r" width="25%" height="22">会員ＩＤ</td>
	<td bgcolor="#ffffff" width="75%" height="22">$identity</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r" width="25%" height="22">お名前</td>
	<td bgcolor="#ffffff" width="75%" height="22">$name</td>
</tr>
	<tr> 
	<td $xnowrap bgcolor="$color_adm_r" align="center" width="25%" height="22">用件</td>
	<td bgcolor='#ffffff' width="75%" height="22"> 
	<input type="text" size='35' name="YOUKEN" value=""$xslash><br$xslash>
	</td>
	</tr>
	<tr>
	<td align="center" bgcolor="$color_adm_r" width="25%" height="74">連絡事項</td>
	<td align="left" bgcolor="#ffffff" width="75%" height="74"><textarea name='MESS' rows='10' cols='40'></textarea></td>
	</tr>
	<tr><td colspan='2' bgcolor='#ffffff'>
	<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
	<input type="hidden" name="PASS" value="$in{'PASS'}"$xslash>
	<input type="hidden" name="order" value="$in{'order'}"$xslash>
	<input type="hidden" name="mode" value="info2"$xslash>
	<input type="hidden" name="NAME" value="$name"$xslash>
	<input type="hidden" name="MAIL" value="$mail"$xslash>
	<input type="hidden" name="TEL" value="$tel"$xslash>
	<input type="submit" value="お問合せ[確認]" class='submit'$xslash>\　
	<input type="reset" value="クリア" class='submit'$xslash>
	</td></tr>
</table>
</td></tr></table>
</td></tr></table>
</form>
EOF

	print "<br$xslash>$foot</body></html>\n" ;	

}

#=======================
sub info2{
if ($in{'YOUKEN'} eq "") {
	&error("[戻る] ボタンで戻って、用件を確認してください。");
}
if ($in{'MESS'} eq "") {
	&error("[戻る] ボタンで戻って、問合せ内容を確認してください。");
}

&html_header();
$t_width =$t_width -5;

print <<"EOF";
<br$xslash>
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>お問合せの確認</b></td></tr>
</table>
<br$xslash>
EOF

$in{'MESS'} =~ s/\&/&amp;/g;		#特殊文字の変換
$in{'MESS'} =~ s/\</&lt;/g;
$in{'MESS'} =~ s/\>/&gt;/g;
$in{'MESS'} =~ s/\"/&quot;/g;
$mess_set =$in{'MESS'};
$mess_set =~ s/\n/<br$xslash>/g;

print <<"EOF";
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
	<tr><td valign='top' align="center">
<table bgcolor="$color_d" border='0' width="$t_width" cellpadding="0" cellspacing='0'><tr><td>
<table bgcolor="$color_d" border='0' cellpadding="3" cellspacing='1' width="$t_width">
<tr>
	<td align="center" bgcolor="$color_adm_r" width="25%" height="22">会員ＩＤ</td>
	<td bgcolor="#ffffff" width="75%" height="22">$in{'ID_NAME'}</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r" width="25%" height="22">お名前</td>
	<td bgcolor="#ffffff" width="75%" height="22">$in{'NAME'}</td>
</tr>
	<tr> 
	<td bgcolor="$color_adm_r" align="center" width="25%" height="22">用件</td>
	<td bgcolor='#ffffff' width="75%" height="22">$in{'YOUKEN'}</td>
	</tr>
	<tr>
	<td align="center" bgcolor="$color_adm_r" width="25%" height="74">連絡事項</td>
	<td align="left" valign='top' bgcolor="#ffffff" width="75%" height="74">$mess_set</td>
	</tr>
	<tr><td colspan='2' bgcolor='#ffffff'>

<table width="100%" cellpadding="0" cellspacing="0" bgcolor="$color_adm_d">
<tr><td style='text-align:right;' width="50%" bgcolor="#ffffff">

	<form action="$script_ent" method="post" style='margin-top:10px;margin-bottom:3px;margin-right:10px'>
	<input type="hidden" name="YOUKEN" value="$in{'YOUKEN'}"$xslash>
	<input type="hidden" name="MESS" value="$in{'MESS'}"$xslash>
	<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}"$xslash>
	<input type="hidden" name="PASS" value="$in{'PASS'}"$xslash>
	<input type="hidden" name="order" value="$in{'order'}"$xslash>
	<input type="hidden" name="mode" value="info3"$xslash>
	<input type="hidden" name="NAME" value="$in{'NAME'}"$xslash>
	<input type="hidden" name="MAIL" value="$in{'MAIL'}"$xslash>
	<input type="hidden" name="TEL" value="$in{'TEL'}"$xslash>
	<input type="submit" value="お問合せ[送信]" class='submit'$xslash>\　
	</form>
</td>
<td style='text-align:left;' width="50%" bgcolor="#ffffff">

<form style='margin-top:10px;margin-bottom:3px;margin-left:10px'>
<input type='button' value='前の画面に戻る' onclick='history.back()' class='submit'$xslash>
</form>

</td>
</tr></table>

	</td></tr>
</table>
</td></tr></table>
</td></tr></table>
EOF

	print "$foot</body></html>\n" ;	

}

#=======================
sub info3{ 

$mailbody2 = <<END_OF_DATA;
$m_header
$in{'NAME'} [$in{'ID_NAME'}] 様のお問合せを承りました。

【会員ＩＤ】 $in{'ID_NAME'}
【お名前】 $in{'NAME'}
【メールアドレス】 $in{'MAIL'}
【電話番号】 $in{'TEL'}

【用件】 $in{'YOUKEN'}
【問合せ事項】
$in{'MESS'}

$m_footer
END_OF_DATA

$mailbody =$mailbody2;
$mailto =$in{'MAIL'};
$fromname =$shop_name;
$frommail =$info_mail;
$subject =$in{'NAME'} . "のお問合せを承りました。";
&mail_send();

#===============クライアントのＩＰ＆ホスト名===============
$rem_addr = $ENV{'REMOTE_ADDR'};
$rem_host = $ENV{'REMOTE_HOST'};

if ($rem_host eq "" || $rem_host eq $rem_addr) {
	$rem_host = gethostbyaddr(pack("C4", split(/\./, $rem_addr)), 2) || $rem_addr;
}
$reprot ="【IPアドレス】$rem_addr"."\n"."【ホスト名】$rem_host"."\n\n";

$mailbody=$reprot.$mailbody2;
$mailto ="$info_mail";
$fromname ="$in{'NAME'}";
$frommail =$in{'MAIL'};
$subject ="●会員のお問合[$in{'YOUKEN'}]";
&mail_send();

&html_header();
$t_width =$t_width -5;
	
print <<"EOF";
<br$xslash>
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>お問合せ-送信完了</b></td></tr>
</table>
<br$xslash>
EOF
	print "<br$xslash><center>$in{'ID_NAME'} 様からのお問合せをメールにて受け賜わります。</center>\n";
	print "<br$xslash><center>当店のご利用に感謝致します。</center>\n";

	print "<br$xslash><hr size='1' width=\"$t_width\"$xslash>$foot</body></html>\n" ;	

}

#=========================================================================================
sub point0{

	$function_mess = 'ポイント（会員情報）照会';
	$function = 'point1';
	&id_kensaku();

}

#=======================
sub point1{

&input_check();

&read_list();
if($exist_flag == 0){$identity&error("会員ＩＤが間違っています。"); exit;}
if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

&html_header();
$t_width =$t_width -5;

print <<"EOF";
<br$xslash>
<table border="0" cellpadding="5" align="center" cellspacing="1" width="$t_width">
<tr><td valign='top' align="center">
<table border='0' cellspacing='0' cellpadding='5' width="$t_width" align='center'>
<tr><td bgcolor="$color_adm_r" align='center'><b>ポイント（会員情報）照会</b></td></tr>
</table>
<br$xslash>
EOF


print <<"EOF";
<table bgcolor="$color_d" border='0' width="$t_width" cellpadding="0" cellspacing='0'><tr><td>
<table bgcolor="$color_d" border='0' cellpadding="3" cellspacing='1' width="$t_width">
<tr>
	<td align="center" bgcolor="$color_kago" height="22" width="25%">現在のポイント</td>
	<td bgcolor="#ffffff" height="22" width="75%">$point Ｐ</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r" height="22">ＩＤ</td>
	<td bgcolor="#ffffff" height="22">$identity</td>
	</tr>
<tr>
	<td align="center" bgcolor="$color_adm_r">お名前</td>
	<td bgcolor="#ffffff">$name</td>
</tr>
</table>
</td></tr></table>
</td></tr></table><br$xslash>
EOF

	print <<"EOF";
<img src="$dir_p/line.gif" border="0" width="$t_width" height="1" alt=''$xslash>
EOF

	print "<br$xslash>$foot</body></html>\n" ;	

}

#=========================================================================================
sub link0{

	if($in{'mode'} eq 'link1'){$function = 'link1_1'; }
	if($in{'mode'} eq 'link2'){$function = 'link2_1'; }
	if($in{'mode'} eq 'link3'){$function = 'link3_1'; }

	$function_mess = '会員専用ページ';
	
	&id_kensaku();

}

#=======================
sub link1{
	if($function eq 'link1_1' || $in{'mode'} eq 'link1_1'){$link_url = "$mem_link1";}
	if($function eq 'link2_1' || $in{'mode'} eq 'link2_1'){$link_url = "$mem_link2";}
	if($function eq 'link3_1' || $in{'mode'} eq 'link3_1'){$link_url = "$mem_link3";}

	&input_check();

	&read_list();
	if($exist_flag == 0){&error("会員ＩＤが間違っています。"); exit;}
	if($exist_flag == 1){&error("パスワードが間違っています。"); exit;}

	print "Location: $link_url\n\n";

}
#=========================================================================================

# Cookieに値を書き込むためのSet-Cookie:ヘッダを生成する
#
sub setCookie{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= "expires=Thu, 1-Jan-2050 00:00:00 GMT;\n";
    return($tmp);
}
sub setCookie_0{
    local($tmp, $val);
    $val = $_[1];
    $val =~ s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
    $tmp = "Set-Cookie: ";
    $tmp .= "$_[0]=$val; ";
    $tmp .= ";\n";
    return($tmp);
}
#
# Cookieの値を読み出す
#
sub getCookie {
    local($xx, $name, $value);
    for $xx (split(/; */, $ENV{'HTTP_COOKIE'})) {
        ($name, $value) = split(/=/, $xx);
        $value =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;
        $COOKIE{$name} = $value;
    }
}

sub html_header{

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

if($xhtml_use){
	if($xhtml_use ne 2){print "<?xml version='1.0' encoding='Shift_JIS'?>\n";}
	print "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>\n";
	print "<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='ja' lang='ja'>\n";
}else{
	print "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n";
	print "<html lang='ja'>\n";
}
	print "<head><title>$main_title</title>\n";
	print "<meta content=\"text/html; charset=Shift_JIS\" http-equiv='Content-Type'$xslash>\n";
	print "<meta content='text/css' http-equiv='Content-Style-Type'$xslash>\n";

	print "$style";
	
	print "</head>$body$header\n";
}

#=================ロック処理=================================== 
sub lock_list {
	local($retry)=5;
	# symlink関数式ロック
	if ($lockkey == 1) {
		while (!symlink(".", $lock_file)) {
			if (--$retry <= 0) { &error("Members List is lock.(Entry)"); }
			sleep(1);
		}
	# mkdir関数式ロック
	} elsif ($lockkey == 2) {
		while (!mkdir($lock_file, 0755)) {
			if (--$retry <= 0) { &error("Members List is lock.(Entry)"); }
			sleep(1);
		}
	}
	$lockflag=1;
}
#=====================ロック解除======================
sub unlock_list {
	if ($lockkey == 1) { unlink($lock_file); }
	elsif ($lockkey == 2) { rmdir($lock_file); }
	$lockflag=0;
}
#===============================================================
sub error {
# ファイルロック解除
if (-e $lock_file) { &unlock_list(); }

&html_header();

	print "<br$xslash><br$xslash><center>$_[0]</center>\n";
	print "<center>$_[1]</center>\n";

print <<"EOF";
<br$xslash><center><form>
<input type='button' value='前の画面に戻る' onclick='history.back()' class='submit'$xslash>
</form></center>
EOF

	print "<br$xslash><hr size='1' width=\"$t_width\"$xslash><br$xslash>$foot</body></html>\n";
	exit;
}