#!/usr/bin/perl

#///////////////////////////////////////////////////////////////////////////////
#             

#                     ----- ant -----
#                                 info@ant3.jp
#                                 http://ant3.jp

#///////////////////////////////////////////////////////////////////////////////
#================================ [注意事項] ===================================
# このスクリプトはシェアウエアです。このスクリプトを使用したいかなる損害に対して
# も作者は一切の責任を負いません。
#====================================使用法=====================================
# 次のようにして呼び出してください。
#			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>
	<TBODY>
	<TR><TD>
	<DIV align="center">
EOF
}

#===== 戻り先========================================================
$script_back ="$script_e?order=$order_encode";
$modoru ="$script_back&mode=m_manager&pass=$in{'pass'}&E_NO=$in{'E_NO'}&M_ID=$in{'M_ID'}&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 '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>";
	&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{

&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'>会員ＩＤ及びパスワードを記憶する。<br>";
}

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>
	<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><center>$function_mess</center></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 nowrap bgcolor="$color_adm_r"><b>会員ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=35 name="ID_NAME" value="$in{'ID_NAME'}">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>パスワード</b></td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="password" SIZE=35 name="PASS" value="$in{'PASS'}">
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="mode" value="$function">
	<input type="hidden" name="order" value="$in{'order'}">
	$log_persistent
	<input type="submit" value="$id_kensaku">\　
	<input type="reset" value="クリア">
	</td></tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<table border=0 cellspacing=0 cellpadding=0 align=left>
	<tr><td>
	<ul>
	$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 LANGUAGE="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 "<p>$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'});
}else{
	print &setCookie_0("ID_NAME", $in{'ID_NAME'});
	print &setCookie_0("KANJI", $name);
	print &setCookie_0("ID_PASS", $in{'PASS'});	
}
	print "Location: $script?order=$order_encode&log_in=yes&ID_NAME=$in{'ID_NAME'}&persistent=$in{'persistent'}&kanji=$name\n\n";

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

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

	print "Location: $script?order=$order_encode&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&check0=on&check1=on&check2=on&check3=on&check4=on&member_id=$in{'ID_NAME'}&ID_PASS=$in{'PASS'}\n\n";

}

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

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

$id_name_C = $COOKIE{'ID_NAME'};

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

	print <<"EOF";
	<br>
	<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><center>ﾊﾟｽﾜｰﾄﾞ再発行</center></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 nowrap bgcolor="$color_adm_r"><b>会員ＩＤ</b></td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=35 name="ID_NAME" value="$id_name_C">
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>または　 ﾒｰﾙｱﾄﾞﾚｽ</b></td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=35 name="MAIL"  value="$mail_C">
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="order" value="$in{'order'}">
	<input type="hidden" name="mode" value="reissue1">
	<input type="submit" value="ﾊﾟｽﾜｰﾄﾞ再発行[送信]">\　
	<input type="reset" value="クリア">
	</td></tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<table border=0 cellspacing=0 cellpadding=0 align=left>
	<tr><td>
	<ul>
	<li>登録済み会員ＩＤ、又は登録してあるメールアドレスのいずれかを指定してください。</li>
	</ul>
	</td></tr></table>
	</td></tr></table>

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

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

}
// -->
</SCRIPT>
EOF

print "<p>$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><table border="0" cellpadding="5" align="center" cellspacing="1" width=$t_width>
	<tr><td valign=top align="center">
	<table width=$t_width><tr><td align=right>
	<a href="$script_back&mode=renew0"><FONT class='link_color'>▲会員情報変更</font></a>
	</td></tr></table>
	<br><table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>ﾊﾟｽﾜｰﾄﾞ再発行完了</center></b>
	</td></tr></table><br>

EOF
	print "<br><center><b>$identity 様のﾊﾟｽﾜｰﾄﾞをﾒｰﾙで送信しました。</b></center>\n";
	print "<br><center><b>当店のご利用に感謝致します。</b></center></td></tr></table>\n";

	print "<br><hr noshade size=1 width=$t_width><p>$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")) {
	    &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 ='checked';
}else{
	$mag_no ='checked';
}

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

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><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><center>会員登録</center></b></td>
	</tr>
	<TR><TD>
	$input_err_mess
	☆会員情報入力（<FONT color="#ff0000"><B>※</B></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 nowrap bgcolor="$color_adm_r"><b>会員ＩＤ</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input STYLE='ime-mode:disabled;' maxLength=10 type="text" SIZE=35 name="ID_NAME" value="$id_name_C"><br>
	<font color="#ff0000">☆英数半角で４文字以上１０文字以内。無記入のときはﾒｰﾙｱﾄﾞﾚｽが会員ＩＤとなります。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>パスワード</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input STYLE='ime-mode:disabled;' maxLength=10 type="password" SIZE=35 name="PASS" value="$pass_C"><br>
	<font color="#ff0000">☆英数半角で４文字以上１０文字以内。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>お名前</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input type="text" SIZE=35 name="NAME" value="$name_C"><br>
	<font color="#ff0000">☆商品お届先の実在のお名前。\　例) 鈴木　一郎</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>フリガナ</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input type="text" SIZE=35 name="KANA" value="$kana_C"><FONT color='#ff0000'>\　例) スズキ　イチロウ</FONT>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>生年月日/年齢</b></td>
	<td bgcolor=#FFFFFF> 
<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=4 size=4 name=YEAR value="$year_C">年 
<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=2 size=2 name=MONTH value="$month_C">月 
<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=2 size=2 name=DAY value="$day_C">日
\　\　 年齢<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=3 size=2 name=OLD value="$old_C">才<br>
<FONT color=#ff0000>例）1980年10月25日</FONT>
</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>性別</b></td>
	<td bgcolor=#FFFFFF> 
	<INPUT type=radio value=男 name=SEX $man>男性 <INPUT type=radio value=女 name=SEX $weman>女性
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>ﾒｰﾙｱﾄﾞﾚｽ</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=35 name="MAIL" value="$mail_C"><br>
	<font color="#ff0000">☆発送確認などをお送りするメールアドレス。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>ﾒｰﾙｱﾄﾞﾚｽ(確認)(<FONT color="#ff0000"><B>※</B></FONT>)</b></td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=35 name="MAIL2" value="$mail_C"><br>
	<font color="#ff0000">☆上記の確認用。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>ご住所</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF>〒<INPUT  STYLE='ime-mode:disabled;' size=13 name=POST value="$post_C"><font color="#ff0000">\　例) 3101234</font><br>
<select name="KEN">
$ken_set
</select>
      <INPUT size=50 name=ADDR value="$addr_C" ><br>
      <font color="#ff0000">☆商品をお届けする実在の住所。\　例) 市区町村、番地、アパート名、部屋番号まで。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>電話番号(<FONT color="#ff0000"><B>※</B></FONT>)</b></td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=20 name="TEL" value="$tel_C"><br>
	<font color="#ff0000">☆通常の連絡などのための電話番号。\　例) 03-1234-1234</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>FAX番号</b></td>
	<td bgcolor=#FFFFFF> 
	<INPUT  STYLE='ime-mode:disabled;' type="text" SIZE=20 value="$fax_C" name=FAX><FONT color='#ff0000'>\　例) 03-1234-1234</FONT>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>日中連絡先(<FONT color="#ff0000"><B>※</B></FONT>)</b></td>
	<td bgcolor=#FFFFFF> 
	<INPUT  STYLE='ime-mode:disabled;' size=20 name=DAT_TEL value="$day_tel_C">
<select name="TEL_SYU">
$tel_set
</select>
	
	<br>
	<font color="#ff0000">☆日中の連絡などのための電話番号。\　例) 03-1234-1234</font></td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>メールマガジン配信</b></td>
	<td bgcolor=#FFFFFF> 
	<INPUT type=radio value='' name=MAG $mag_yes>希望する\　<INPUT type=radio value='1' name=MAG $mag_no>希望しない
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="souryou" value="$in{'souryou'}">
	<input type="hidden" name="now" value="$in{'now'}">

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

#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="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);
  }
  if (document.F1.KANA.value == "") {
    alert("フリガナが入力されていません。");
    document.F1.KANA.focus();
    return(false);
  }
  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);
  }
  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);
  }
  if (document.F1.TEL.value == "") {
    alert("電話番号が入力されていません。");
    document.F1.TEL.focus();
    return(false);
  }
  if (document.F1.DAT_TEL.value == "") {
    alert("日中連絡先が入力されていません。");
    document.F1.DAT_TEL.focus();
    return(false);
  }

}
// -->
</SCRIPT>
EOF

print "<p>$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 ($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{'DAT_TEL'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、日中連絡先を確認してください。");
}
if ($in{'DAT_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";
<TABLE cellpadding="5" width="$t_width">
  <TBODY>
    <TR>
      <TD align="right" width="$t_width"><A href="$script_back&mode=add0&now=$in{'now'}&souryou=$in{'souryou'}"><FONT class='link_color'>▲戻って訂正</font></A></TD>
    </TR>
  </TBODY>
</TABLE>
<br><table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員登録確認</center></b></td>
	</tr></table><br>
	
<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">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="22"><B>ＩＤ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"ID_NAME"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="20"><B>パスワード</B></TD>
	 <TD bgcolor="#ffffff" height="20">$in{"PASS"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>お名前</B></TD>
	<TD bgcolor="#ffffff">$in{"NAME"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>フリガナ</B></TD>
	<TD bgcolor="#ffffff">$in{"KANA"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>生年月日</B></TD>
	<TD bgcolor="#ffffff">$in{"YEAR"}年$in{"MONTH"}月$in{"DAY"}日\　\　 年齢$in{"OLD"}才</TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>性別</B></TD>
	<TD bgcolor="#ffffff">$in{"SEX"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>メール</B></TD>
	<TD bgcolor="#ffffff">$in{"MAIL"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>住所</B></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399></FONT>〒$in{"POST"}<BR>
      $in{"KEN"}$in{"ADDR"}</TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>電話番号</B></TD>
	<TD bgcolor="#ffffff">$in{"TEL"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>FAX番号</B></TD>
	<TD bgcolor="#ffffff">$in{"FAX"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>日中連絡先</B></TD>
	<TD bgcolor="#ffffff">$in{"DAT_TEL"} [$in{"TEL_SYU"}]</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>メールマガジン配信</B></TD>
	<TD bgcolor="#ffffff">$mag_set</TD>
	</TR>
	</TBODY>
</TABLE>
</TD></TR></table>

<FORM action="$script_e" method="post" style='margin-top:10px'>
<input type="hidden" name="souryou" value="$in{'souryou'}">
<input type="hidden" name="now" value="$in{'now'}">

<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}">
<input type="hidden" name="PASS" value="$in{'PASS'}">
<input type="hidden" name="NAME" value="$in{'NAME'}">
<input type="hidden" name="MAIL" value="$in{'MAIL'}">
<input type="hidden" name="POST" value="$in{'POST'}">
<input type="hidden" name="ADDR" value="$in{'ADDR'}">
<input type="hidden" name="KEN" value="$in{'KEN'}">
<input type="hidden" name="TEL" value="$in{'TEL'}">
<input type="hidden" name="FAX" value="$in{'FAX'}">
<input type="hidden" name="DAT_TEL" value="$in{'DAT_TEL'}">
<input type="hidden" name="TEL_SYU" value="$in{'TEL_SYU'}">
<input type="hidden" name="MAG" value="$in{'MAG'}">
<input type="hidden" name="SEX" value="$in{'SEX'}">
<input type="hidden" name="YEAR" value="$in{'YEAR'}">
<input type="hidden" name="MONTH" value="$in{'MONTH'}">
<input type="hidden" name="DAY" value="$in{'DAY'}">
<input type="hidden" name="KANA" value="$in{'KANA'}">
<input type="hidden" name="OLD" value="$in{'OLD'}">
<input type="hidden" name="mode" value="add2">
<input type="hidden" name="order" value="$in{'order'}">
<INPUT type="submit" value="会員登録[送信]"><BR>
</FORM>

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

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

	print "<p>$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 ='希望しない';
}

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

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

【会員ＩＤ】 $in{'ID_NAME'}
【パスワード】 $in{'PASS'}
【お名前】 $in{'NAME'}
【フリガナ】$in{'KANA'}
【生年月日】$in{'YEAR'}年$in{'MONTH'}月$in{'DAY'}日
【年齢】$in{'OLD'}
【性別】$in{'SEX'}
【メールアドレス】 $in{'MAIL'}
【住所】 〒$in{'POST'} 
         $in{'KEN'}$in{'ADDR'}
【電話番号】 $in{'TEL'}
【FAX番号】 $in{'FAX'}
【日中連絡先】 $in{'DAT_TEL'} [$in{'TEL_SYU'}]
【メールマガジン配信】 $mag_set

$m_footer
END_OF_DATA

$mailto ="$in{'MAIL'}";
$fromname =$shop_name;
$frommail =$info_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><table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員登録完了</center></b>
	</td></tr></table><br>
EOF
	print "<br><center><b>会員登録を完了いたしました。</b></center>\n";

if($in{'now'}){
print <<"EOF";
	<br><center><b>引き続きご購入手続きを続けることができます。</b></center>
	<br><br><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'}">
<input type="hidden" name="PASS" value="$in{'PASS'}">
<input type="hidden" name="souryou" value="$in{'souryou'}">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="mode" value="order_form">
<input type="hidden" name="info" value="1">
<input type="submit" value="購入手続きを続ける">\　
</form>
	</td></tr></table><br>
EOF
}else{

print <<"EOF";
	<br><center><b>当店のご利用に感謝致します。</b></center>
	<br><br><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'}">
<input type="hidden" name="PASS" value="$in{'PASS'}">
<input type="hidden" name="souryou" value="$in{'souryou'}">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="submit" value="ショッピングを続ける">\　\　\　
</form>
	</td><td align=left width="50%">
<form method="post" action="$script_e">
<input type="hidden" name="souryou" value="$in{'souryou'}">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="class" value="$in{'class'}">
<input type="hidden" name="FF" value="$in{'FF'}">
<input type="hidden" name="keyword" value="$in{'keyword'}">
<input type="hidden" name="price_sort" value=$in{"price_sort"}>
<input type="hidden" name="mode" value="log_out0">
\　\　\　<input type="submit" value="ログアウトする">
</form>
	</td></tr></table>
EOF
}
	print "<br><hr noshade size=1 width=$t_width><p>$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 ='checked';
}else{
	$weman ='checked';
}

@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 ='checked';
}else{
	$mag_no ='checked';
}

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

	print <<"EOF";
	<br><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><center>会員登録</center></b></td>
	</tr>
	<TR><TD>
	☆会員情報入力（<FONT color="#ff0000"><B>※</B></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 nowrap bgcolor="$color_adm_r"><b>会員ＩＤ</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	$identity
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>パスワード</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input STYLE='ime-mode:disabled;'  maxLength=10 type="password" SIZE=35 name="PASS" value="$password"><br>
	<font color="#ff0000">☆英数半角で４文字以上１０文字以内。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>お名前</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input type="text" SIZE=35 name="NAME" value="$name"><br>
	<font color="#ff0000">☆商品お届先の実在のお名前。\　例) 鈴木　一郎</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>フリガナ</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input type="text" SIZE=35 name="KANA" value="$kana"><FONT color='#ff0000'>\　例) スズキ　イチロウ</FONT>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>生年月日</b></td>
	<td bgcolor=#FFFFFF> 
<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=4 size=4 name=YEAR value=$year>年 
<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=2 size=2 name=MONTH value=$month>月 
<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=2 size=2 name=DAY value=$day>日
\　\　 年齢<INPUT STYLE='ime-mode:disabled;text-align:right;' maxLength=2 size=2 name=OLD value=$old>才<br>
<FONT color=#ff0000>例）1980年10月25日</FONT>
</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>性別</b></td>
	<td bgcolor=#FFFFFF> 
	<INPUT type=radio value=男 name=SEX $man>男性 <INPUT type=radio value=女 name=SEX $weman>女性
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>ﾒｰﾙｱﾄﾞﾚｽ</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=35 name="MAIL"  value="$mail"><br>
	<font color="#ff0000">☆発送確認などをお送りするメールアドレス。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>ﾒｰﾙｱﾄﾞﾚｽ(確認)</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=35 name="MAIL2" value="$mail"><br>
	<font color="#ff0000">☆上記の確認用。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>ご住所</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF>〒<INPUT  STYLE='ime-mode:disabled;' size=13 name=POST value="$post"><font color="#ff0000">\　例) 3101234</font><br>
<select name="KEN">
$ken_set
</select>
      <INPUT size=50 name=ADDR value="$addr" ><br>
      <font color="#ff0000">☆商品をお届けする実在の住所。\　例) 市区町村、番地、アパート名、部屋番号まで。</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>電話番号</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
	<input  STYLE='ime-mode:disabled;' type="text" SIZE=20 name="TEL" value="$tel"><br>
	<font color="#ff0000">☆通常の連絡などのための電話番号。\　例) 03-1234-1234</font>
	</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>FAX番号</b></td>
	<td bgcolor=#FFFFFF> 
	<INPUT  STYLE='ime-mode:disabled;' type="text" SIZE=20  name='FAX' value="$fax"><FONT color='#ff0000'>\　例) 03-1234-1234</FONT></td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>日中連絡先</b>(<FONT color="#ff0000"><B>※</B></FONT>)</td>
	<td bgcolor=#FFFFFF> 
<INPUT  STYLE='ime-mode:disabled;' size=20 name=DAT_TEL value=$day_tel> 
<select name="TEL_SYU">
$tel_set
</select><FONT color='#ff0000'>\　例) 03-1234-1234</FONT>
</td>
	</tr>
	<tr> 
	<td nowrap bgcolor="$color_adm_r"><b>メールマガジン配信</b></td>
	<td bgcolor=#FFFFFF> 
	<INPUT type=radio value='' name=MAG $mag_yes>希望する\　<INPUT type=radio value='1' name=MAG $mag_no>希望しない
	</td>
	</tr>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="ID_NAME" value="$identity">
	<input type="hidden" name="order" value="$in{'order'}">
	<input type="hidden" name="mode" value="renew2">
	<input type="submit" value="情報変更[確認]">\　
	<input type="reset" value="クリア">
	</td></tr>
	<TR><TD  colspan=2 bgcolor=#FFFFFF>★これらの情報が公開されることはありません。
	</TD></TR>
</table>
	</td></tr></table>
	</td></tr></table>
	</form>
EOF

#=======================入力チェック===================================
	print <<"EOF";
<SCRIPT LANGUAGE="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);
  }
  if (document.F1.KANA.value == "") {
    alert("フリガナが入力されていません。");
    document.F1.KANA.focus();
    return(false);
  }
  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);
  }
  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);
  }
  if (document.F1.TEL.value == "") {
    alert("電話番号が入力されていません。");
    document.F1.TEL.focus();
    return(false);
  }
  if (document.F1.DAT_TEL.value == "" ) {
    alert("日中連絡先が入力されていません。");
    document.F1.DAT_TEL.focus();
    return(false);
  }

}
// -->
</SCRIPT>
EOF


print "<p>$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 ($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{'DAT_TEL'} eq "") {
	&error("ブラウザの [戻る] ボタンで戻って、日中連絡先を確認してください。");
}
if ($in{'DAT_TEL'} =~ /[^0-9\-]/) {
	&error("ブラウザの [戻る] ボタンで戻って、日中連絡先を確認してください。");
}

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

&html_header();
$t_width =$t_width -5;
print <<"EOF";
<CENTER>
<br><table border=0 cellspacing=0 cellpadding=5 align=center width="$t_width">
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員情報変更確認</center></b></td>
	</tr></table><br>
</CENTER>
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">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="22"><B>ＩＤ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$in{"ID_NAME"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="20"><B>パスワード</B></TD>
	 <TD bgcolor="#ffffff" height="20">$in{"PASS"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>お名前</B></TD>
	<TD bgcolor="#ffffff">$in{"NAME"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>フリガナ</B></TD>
	<TD bgcolor="#ffffff">$in{"KANA"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>性別</B></TD>
	<TD bgcolor="#ffffff">$in{"SEX"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>生年月日</B></TD>
	<TD bgcolor="#ffffff">$in{"YEAR"}年$in{"MONTH"}月$in{"DAY"}日\　\　 年齢$in{"OLD"}才</TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>メール</B></TD>
	<TD bgcolor="#ffffff">$in{"MAIL"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>住所</B></TD>
	<TD bgcolor="#ffffff"><FONT color=#333399></FONT>〒$in{"POST"}<BR>
      $in{"KEN"}$in{"ADDR"}</TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>電話番号</B></TD>
	<TD bgcolor="#ffffff">$in{"TEL"}</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>FAX番号</B></TD>
	<TD bgcolor="#ffffff">$in{"FAX"}</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>日中連絡先</B></TD>
	<TD bgcolor="#ffffff">$in{"DAT_TEL"} [$in{"TEL_SYU"}]</TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>メールマガジン配信</B></TD>
	<TD bgcolor="#ffffff">$mag_set</TD>
	</TR>
	</TBODY>
</TABLE>
</TD></TR></table>

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

</TD></TR></table>
EOF



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

	print "<p>$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{'DAT_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 ='希望しない';
}

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

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

【会員ＩＤ】 $in{'ID_NAME'}
【パスワード】 $in{'PASS'}
【お名前】 $in{'NAME'}
【フリガナ】$in{'KANA'}
【生年月日】$in{'YEAR'}年$in{'MONTH'}月$in{'DAY'}日
【年齢】$in{'OLD'}
【性別】$in{'SEX'}
【メールアドレス】 $in{'MAIL'}
【住所】 〒$in{'POST'} 
         $in{'KEN'}$in{'ADDR'}
【電話番号】 $in{'TEL'}
【FAX番号】 $in{'FAX'}
【日中連絡先】 $in{'DAT_TEL'} [$in{'TEL_SYU'}]
【メールマガジン配信】 $mag_set

$m_footer
END_OF_DATA

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

&mail_send();

&html_header();
$t_width =$t_width -5;
	
print <<"EOF";
<br>
<table border="0" cellpadding="5" align="center" cellspacing="1" width=$t_width>
	<tr><td valign=top align="center">
	<table width=$t_width><tr><td align=right>
	<a href="$script_back&mode=renew0"><FONT class='link_color'>▲会員情報変更</font></a>
	</td></tr></table>
	<br><table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員情報変更完了</center></b>
	</td></tr></table><br>

EOF
	print "<br><center><b>$in{'ID_NAME'} 様の会員情報の変更が完了しました。</b></center>\n";
	print "<br><center><b>当店のご利用に感謝致します。</b></center></td></tr></table>\n";

	print "<br><hr noshade size=1 width=$t_width><p>$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";
<CENTER>
	<table width=$t_width><tr><td align=right>
	<a href="$script_back&mode=renew0"><FONT class='link_color'>▲会員情報変更</font></a>
	</td></tr></table>
	<br>
<table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員情報削除確認</center></b></td>
	</tr></table><br>
</CENTER>
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">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="22"><B>ＩＤ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$identity</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="20"><B>パスワード</B></TD>
	 <TD bgcolor="#ffffff" height="20">$password</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>お名前</B></TD>
	<TD bgcolor="#ffffff">$name</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>メール</B></TD>
	<TD bgcolor="#ffffff">$mail</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>住所</B></TD>
	<TD bgcolor="#ffffff">〒$post<BR>
      $ken$addr</TD>
    </TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>電話番号</B></TD>
	<TD bgcolor="#ffffff">$tel</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>FAX番号</B></TD>
	<TD bgcolor="#ffffff">$fax</FONT></TD>
</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>日中連絡先</B></TD>
	<TD bgcolor="#ffffff">$day_tel [$tel_syu]</FONT></TD>
</TR>
	</TBODY>
</TABLE>
</TD></TR></table>
<FORM action="$script_e" method="post" style='margin-top:10px'>
<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}">
<input type="hidden" name="PASS" value="$in{'PASS'}">
<input type="hidden" name="order" value="$in{'order'}">
<input type="hidden" name="mode" value="delet2">
<input type="hidden" name="log_out" value="yes">
<INPUT type="submit" value="会員削除"><BR>
</FORM>

</TD></TR></table>
EOF

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

	print "<p>$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><table border="0" cellpadding="5" align="center" cellspacing="1" width=$t_width>
	<tr><td valign=top align="center">
	<table width=$t_width><tr><td align=right>
	<a href="$script_back&mode=add0"><FONT class='link_color'>▲会員登録</font></a>
	</td></tr></table>
	<br><table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員削除完了</center></b>
	</td></tr></table><br>

EOF
	print "<br><center><b>$in{'ID_NAME'} の会員の削除が完了しました。</b></center>\n";
	print "<br><center><b>当店のご利用に感謝致します。</b></center></td></tr></table>\n";

	print "<br><hr noshade size=1 width=$t_width><p>$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";
<CENTER>
	<br>
<table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>会員窓口（会員用お問合せフォーム）</center></b></td>
	</tr></table><br>
</CENTER>
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>
<FORM action="$script_ent" method="post" style='margin-bottom:0px'>
<TABLE bgcolor="$color_d" border=0 cellpadding="3" cellspacing=1 width="$t_width">
<TBODY>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="22"><B>会員ＩＤ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$identity</TD>
	</TR>
<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r"><B>お名前</B></TD>
	<TD bgcolor="#ffffff">$name</FONT></TD>
</TR>
	<tr> 
	<td nowrap bgcolor="$color_adm_r" align="center"><b>用件</b></td>
	<td bgcolor=#FFFFFF> 
	<input type="text" SIZE=35 name="YOUKEN" value=""><br>
	</td>
	</tr>
	<TR>
	<TD align="center" width="150"bgcolor="$color_adm_r" height="74"><B>連絡事項</B></TD>
	<TD align="left" bgcolor="#ffffff" height="74" width="$ajust"><TEXTAREA name='MESS' rows=4 cols=35></TEXTAREA></TD>
	</TR>
	<tr><td colspan=2 bgcolor=#FFFFFF>
	<input type="hidden" name="ID_NAME" value="$in{'ID_NAME'}">
	<input type="hidden" name="PASS" value="$in{'PASS'}">
	<input type="hidden" name="order" value="$in{'order'}">
	<input type="hidden" name="mode" value="info2">
	<input type="hidden" name="NAME" value="$name">
	<input type="hidden" name="MAIL" value="$mail">
	<input type="hidden" name="TEL" value="$tel">
	<input type="submit" value="お問合せ[送信]">\　
	<input type="reset" value="クリア">
	</td></tr>
	</TBODY>
</TABLE>
</TD></TR></table>
	</FORM>

</TD></TR></table>
EOF

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

}

sub info2{ 

$mailbody = <<END_OF_DATA;
$m_header
$in{'NAME'} [$in{'ID_NAME'}] 様からのお問合せがありました。

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

【用件】 $in{'YOUKEN'}
【連絡事項】 $in{'MESS'}

END_OF_DATA

$mailto ="$info_mail";
$fromname ="$in{'NAME'}";
$frommail =$in{'MAIL'};
$subject ="会員のお問合[$in{'YOUKEN'}]";

&mail_send();

&html_header();
$t_width =$t_width -5;
	
print <<"EOF";
	<br><table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>お問合せ-送信完了</center></b>
	</td></tr></table><br>

EOF
	print "<br><center><b>$in{'ID_NAME'} 様からのお問合せをメールにて受け賜わります。</b></center>\n";
	print "<br><center><b>当店のご利用に感謝致します。</b></center></td></tr></table>\n";

	print "<br><hr noshade size=1 width=$t_width><p>$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><table border="0" cellpadding="5" align="center" cellspacing="1" width=$t_width>
	<tr><td valign=top align="center">
	<table width=$t_width><tr><td align=right>
	<a href="$script_back&mode=renew0"><FONT class='link_color'>▲会員情報変更</font></a>
	</td></tr></table>
	<br>
<table border=0 cellspacing=0 cellpadding=5 width="$t_width" align=center>
	<tr> 
	<td bgcolor="$color_adm_r" align=center><b><center>ポイント（会員情報）照会</center></b>
	</td></tr></table><br>
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">
<TBODY>
<TR>
	<TD align="center" width="150" bgcolor="$color_kago" height="22"><B>現在のポイント</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22"><b>$point Ｐ</b></TD>
	</TR>
<TR>
	<TD align="center" width="150" bgcolor="$color_adm_r" height="22"><B>ＩＤ</B></TD>
	<TD bgcolor="#ffffff" width="$ajust" height="22">$identity</TD>
	</TR>
<TR>
	<TD align="center" width="150" bgcolor="$color_adm_r"><B>お名前</B></TD>
	<TD bgcolor="#ffffff">$name</FONT></TD>
</TR>
	</TBODY>
</TABLE>
</TD></TR></table>
</td></tr></table><br>
EOF

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

	print "<p>$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";
	print "<html><head><title>$main_title</title>\n";
	print "<META content=\"text/html; charset=Shift_JIS\" http-equiv=Content-Type>\n";
	print "<META content=text/css http-equiv=Content-Style-Type>\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><br><center><b>$_[0]</b></center>\n";
	print "<center><b>$_[1]</b></center>\n";

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