#!/usr/bin/perl
#サーバーに合わせて(/usr/local/bin/perlなどに)設定。

###########################################################################
#
# Hal Shopping Cart System(shop_hal_proA7)
#
# スクリプト名：show_log.cgi(2002/09/30)
# 本スクリプトはハル・ネットワークスが書いたものです。
# 本スクリプトついての質問は下記へお願いします。
# info@hal9800.com http://www.hal9800.com/ 
#
###########################################################################

#トップページへのリンクを指定
$top="./frontpage.cgi";

#jcode.plへのパスを指定
require './jcode.pl';

#library.plへのパス
require './library.pl';

#config.plへのパス
require './config.pl';

#基本設定読み込み
&config;


####初期設定ここまで###########################################################

&decode_form;



if ($mode eq 'enter'){&enter;exit;}
if ($mode eq 'member'){&member;exit;}
if ($mode eq 'edit_check'){&edit_check;exit;}
if ($mode eq 'del_check'){&del_check;exit;}
if ($mode eq 'delete'){&delete_log;exit;}
if ($mode eq 'delete2'){&delete_log2;exit;}
if ($mode eq 'sort'){&show_log;exit;}
if ($mode eq 'edit_form'){&edit_form;exit;}
if ($mode eq 'edit'){&edit;exit;}
if ($mode eq 'edit_form2'){&edit_form2;exit;}
if ($mode eq 'edit2'){&edit2;exit;}
if ($mode eq 'add_form'){&add_form;exit;}
if ($mode eq 'add'){&add;exit;}
if ($mode eq 'add_form2'){&add_form2;exit;}
if ($mode eq 'add2'){&add2;exit;}

#&show_log;

exit;

#######################################################################

sub enter{
&header("customer_log");
print<<"EOF";
<center>

<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=#003399>ホーム</font></a>
<a href="http://green.cside3.jp/shop10/link/siharai.html"><br>お支払方法<br>
</a><a href="http://green.cside3.jp/shop10/link/shoplaw.html">販売法表\記<br>
</a><a href="http://green.cside3.jp/shop10/link/toiawase.html">お問い合せ</a></td>
</tr>
<tr><td colspan="2" height=2 bgcolor="#02B4D2"> </td></tr>
<tr><td colspan="2" height=2> </td></tr>
</table>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<table width="679" border="0" cellspacing="2" cellpadding="0" align="center">
<tr> 
<td align=center bgcolor="#669966"><font color=#ffffff><b>$shop</b></font></td>
</tr>
</table>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 width=675 cellpadding=0 cellspacing=0 bgcolor=#336699>

<tr><td align=left>
 <font color=#ffffff><b>&nbsp;顧客管理</b></font>
</td>
<td align=right>
<table border=0 align=right cellpadding=0 cellspacing=0><tr>
<form action="enter_manage.cgi" method="post">
<td>
<input type="hidden" name="mode" value="no_check">
<input type="submit" value="管理メニューに戻る">
</td></form></tr>
</table>


</td>
</tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br><br>


<table border=2 bordercolor=#669966 cellpadding=3 cellspacing=2>
<tr><form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="sort">
<input type="hidden" name="sort" value="date1">

<td bgcolor=#ffffff><font color=#333333>顧客一覧を表\示する</font>
</td><td bgcolor=#e6f6d6>
<input type="submit" value="GO">
</td></form></tr>
<tr><form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="add_form">
<td bgcolor=#ffffff><font color=#333333>顧客を新規に登録する</font>
</td><td bgcolor=#e6f6d6>
<input type="submit" value="GO">
</td></form></tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br><br>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF

&footer;

}


############
#会員入り口
############

sub member{
&header("member");
print<<"EOF";
<center>

<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<td><img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
</table>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<table width="679" border="0" cellspacing="2" cellpadding="0" align="center">
<tr> 
<td align=center bgcolor="#669966"><font color=#ffffff><b>$shop</b></font></td>
</tr>
</table>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 bgcolor=#336699 width=675 cellpadding=2 cellspacing=0 align=center>

<tr><td align=left>
 <font color=#ffffff><b>会員登録</b></font>
</td>
<td align=right>

<table border=0 cellspacing=0 cellpadding=0>
  <tr><td>
<a href=$top><b><font color=#ffffff>&gt;&gt;トップページに戻る</font></b></a>
</td></tr></form></table>
</td></tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br><br>


<table border=0 bgcolor=#666666 cellpadding=3 cellspacing=4>
<tr><form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="add_form2">

<td bgcolor=#669966><font color=#ffffff><b>新規登録</b></font>
</td><td bgcolor=#ffffcc>
<input type="submit" value="GO">
</td></form></tr>
<tr><form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="edit_check">
<td bgcolor=#669966><font color=#ffffff><b>登録更新・ポイント確認</b></font>
</td><td bgcolor=#ffffcc>
<input type="submit" value="GO">
</td></form></tr>
<tr><form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="del_check">
<td bgcolor=#669966><font color=#ffffff><b>登録抹消</b></font>
</td><td bgcolor=#ffffcc>
<input type="submit" value="GO">
</td></form></tr>
</table><br>
パスワードをお忘れの方は<a href=send_pass.cgi?mode=enter target=_blank><font color=#ff6600>こちら</font></a>で確認できます。<br>

<img src="$img_dir/spacer.gif" width="14" height="10"><br><br>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF

&footer;

}

sub edit_check{

&header("会員登録");
print<<"EOF";
<center>
<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
<tr><td colspan="2" height=2 bgcolor="#669966"> </td></tr>
<tr><td colspan="2" height=2> </td></tr>
<tr><td colspan="2" bgcolor="#669966" align="center"><font color="#ffffff"><b>$shop</b></font></td></tr>
<tr><td colspan="2" height=2> </td></tr>
<tr><td colspan="2" height=2 bgcolor="#669966"> </td></tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 bgcolor=#336699 width=675 cellpadding=2 cellspacing=0 align=center>

<tr><td align=left>
 <font color=#ffffff><b>登録情報変更・ポイント確認</b></font>
</td>
<td align=right>

<table border=0 cellspacing=0 cellpadding=0>
  <tr><td>
<a href=$top><b><font color=#ffffff>&gt;&gt;トップページに戻る</font></b></a>
</td></tr></form></table>
</td></tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br><br>


<table border=0 cellspacing=0 cellpadding=5>
<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="edit_form2">
<tr><td colspan=2 height=2 bgcolor=#336699>  
</td></tr>
<tr><td align=right bgcolor=#e8e8e8>
登録電話番号：</td>
<td bgcolor=#e8e8e8>
<INPUT size="24" name="phone">(例：000-000-0000)</td></tr>
<tr><td bgcolor=#e8e8e8 td align=right>
パスワード：</td>
<td bgcolor=#e8e8e8>
<INPUT type="password" maxlength="10" size="10" name="passwd">
</td></tr>
<tr><td colspan=2 height=2 bgcolor=#336699>  
</td></tr>
<tr><td colspan=2 align=center bgcolor=#ffffff>

<input type="submit" value="編集画面へ">
</td></tr>
</form>
</table>

<br>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF

&footer;

}


sub del_check{

&header("会員登録抹消");
print<<"EOF";
<center>
<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=#003399>ホーム</font></a>
<a href="http://green.cside3.jp/shop10/link/siharai.html"><br>お支払方法<br>
</a><a href="http://green.cside3.jp/shop10/link/shoplaw.html">販売法表\記<br>
</a><a href="http://green.cside3.jp/shop10/link/toiawase.html">お問い合せ</a></td>
</tr>
<tr><td colspan="2" height=2 bgcolor="#02B4D2"> </td></tr>
<tr><td colspan="2" height=2> </td></tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 bgcolor=#336699 width=675 cellpadding=2 cellspacing=0 align=center>

<tr><td align=left>
 <font color=#ffffff><b>登録抹消</b></font>
</td>
<td align=right>

<table border=0 cellspacing=0 cellpadding=0>
  <tr><td>
<a href=$top><b><font color=#ffffff>&gt;&gt;トップページに戻る</font></b></a>
</td></tr></form></table>
</td></tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br><br>




<table border=0 cellspacing=0 cellpadding=5>
<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="delete2">
<tr><td colspan=2 height=2 bgcolor=#336699>  
</td></tr>
<tr><td align=right bgcolor=#e8e8e8>
登録電話番号：</td>
<td bgcolor=#e8e8e8>
<INPUT size="24" name="phone">(例：000-000-0000)</td></tr>
<tr><td bgcolor=#e8e8e8 td align=right>
パスワード：</td>
<td bgcolor=#e8e8e8>
<INPUT type="password" maxlength="10" size="10" name="passwd">
</td></tr>
<tr><td colspan=2 height=2 bgcolor=#336699>  
</td></tr>
<tr><td colspan=2 align=center bgcolor=#ffffff>

<input type="submit" value="登録抹消">
</td></tr>
</form>
</table>
<br>



<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF

&footer;

}


##############
#顧客一覧表示
##############
sub show_log{

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

if(!@logs){&kanri_error("登録はありません");}

if ($sort eq "kingaku"){
@logs=sort{(split(/\,/,$b))[8]<=>(split(/\,/,$a))[8];}@logs;}
elsif ($sort eq "name"){
@logs=sort{(split(/\,/,$a))[2] cmp (split(/\,/,$b))[2];}@logs;}
elsif ($sort eq "date1"){
@logs=sort{(split(/\,/,$b))[0] cmp (split(/\,/,$a))[0];}@logs;}
elsif ($sort eq "date2"){
@logs=sort{(split(/\,/,$a))[0] cmp (split(/\,/,$b))[0];}@logs;}
elsif ($sort eq "pref"){
@logs=sort{(split(/\,/,$a))[4] cmp (split(/\,/,$b))[4];}@logs;}
elsif ($sort eq "email"){
@logs=sort{(split(/\,/,$a))[7] cmp (split(/\,/,$b))[7];}@logs;}

&header("顧客管理");
print<<"EOF";
<center>


<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<td><img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
</table>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<table width="679" border="0" cellspacing="2" cellpadding="0" align="center">
<tr> 
<td align=center bgcolor="#669966"><font color=#ffffff><b>$shop</b></font></td>
</tr>
</table>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 width=675 cellpadding=0 cellspacing=0 bgcolor=#336699>

<tr><td align=left>
 <font color=#ffffff><b>&nbsp;顧客管理</b></font>
</td>
<td align=right>
<table border=0 align=right cellpadding=0 cellspacing=0><tr>
<form action="enter_manage.cgi" method="post">
<td>
<input type="hidden" name="mode" value="no_check">
<input type="submit" value="管理メニューに戻る">
</td></form></tr>
</table>


</td>
</tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br>




<table border=0><tr><td>
<form action="show_log.cgi" method="post">
<font color=#ccccff>■</font>データのソ\ート：
<input type="radio" name="sort" value="name">名前
<input type="radio" name="sort" value="date1" checked>日付(降順)
<input type="radio" name="sort" value="date2">日付(昇順)
<input type="radio" name="sort" value="pref">県名
<input type="radio" name="sort" value="email">E-mail
<input type="radio" name="sort" value="kingaku">購入額&nbsp;&gt;&gt;
<input type="hidden" name="mode" value="sort">
<input type="submit" value="実行"></td></form></tr>

<tr><form action="show_log.cgi" method="post">
<td><font color=#ccccff>■</font>新規登録：右のボタンを押して登録画面へお進みください。&nbsp;&gt;&gt;
<input type="hidden" name="mode" value="add_form">
<input type="submit" value="新規登録">
</td></form></tr>
<form action="show_log.cgi" method="post">
<tr><td><font color=#ccccff>■</font>データの削除：削除する項目をチェックして削除ボタンを押してください。&nbsp;&gt;&gt;
<input type="hidden" name="mode" value="delete">
<input type="hidden" name="range" value="this_month">
<input type="submit" value="削除">
</td></tr>
<tr>
<td><font color=#ccccff>■</font>データ編集：「編」をクリックして編集画面へお進みください。
</td></tr>
</table><br>


<table border="2" bordercolor="#669966" width="675" align="center" cellpadding="0">
<tr>
<td bgcolor=#e6f6d6 align=center><font color=#000000>削除</font></td>
<td bgcolor=#e6f6d6 align=center><font color=#000000>編集</font></td>
<td bgcolor=#e6f6d6 align=center><font color=#000000>最終販売日</font></td>
<td bgcolor=#e6f6d6 align=center><font color=#000000>氏名</font></td>
<td bgcolor=#e6f6d6 align=center><font color=#000000>パス</font></td>
<td bgcolor=#e6f6d6 align=center><font color=#000000>県名</font></td>
<td bgcolor=#e6f6d6 align=center><font color=#000000>住所</font></td>
<td bgcolor=#e6f6d6 align=center><font color=#000000>電話番号</font></td>
<td bgcolor=#e6f6d6 align=center width=110><font color=#000000>E-mail</font></td>
<td bgcolor=#e6f6d6 align=center width=60><font color=#000000>購入額</font></td>
</tr>
EOF

foreach $log (@logs){
   ($serial,$date,$namae,$post,$pref,$address,$phone,$email,$subtotal,$furigana,$shiharai,$namae2,$furigana2,$post2,$address2,$phone2,$passwd,$pref2,$mailmgz,$point) = split(/,/,$log);
#   chop $mailmgz;#行末に「,」を挿入(02/09/10)

   if (!$passwd){$passwd="--";}

   print"<tr>\n";
   print"<td align=center>\n";
   print "<input type=\"checkbox\" name=\"del\" value=\"$phone\"></td>\n";
   print"<td align=center>\n";
   print "<A HREF=\"show_log.cgi?mode=edit_form&phone=$phone\"><u>編</u></A></td>\n";
   print"<td>$date</td>\n";
   print"<td>$namae</td>\n";
   print"<td>$passwd</td>\n";
   print"<td>$pref</td>\n";
   print"<td>$address</td>\n";
   print"<td>$phone</td>\n";
   print"<td>$email</td>\n";
   print"<td align=right>\\$subtotal</td>\n";
   print"</tr>\n";
}

print <<"EOF";
</table></form></center>
<br>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF

&footer;

exit;

}

######################
#編集フォーム（管理用）
######################
sub edit_form{

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

   foreach $log (@logs){
      ($e_serial,$e_date,$e_namae,$e_post,$e_pref,$e_address,$e_phone,$e_email,$e_subtotal,$e_furigana,$e_shiharai,$e_namae2,$e_furigana2,$e_post2,$e_address2,$e_phone2,$e_passwd,$e_pref2,$e_mailmgz,$e_point) = split(/,/,$log);

#      chop $c_mailmgz;#行末に「,」を挿入(02/09/10)

      if($phone eq $e_phone){last;}

   }

if ($e_mailmgz eq "yes") { $checkedmmyes="checked";}
elsif ($e_mailmgz eq "no") { $checkedmmno="checked";}


&header("edit_form");
print<<"EOF";
<center>

<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<td><img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
</table>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<table width="679" border="0" cellspacing="2" cellpadding="0" align="center">
<tr> 
<td align=center bgcolor="#669966"><font color=#ffffff><b>$shop</b></font></td>
</tr>
</table>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 width=675 cellpadding=0 cellspacing=0 bgcolor=#336699>

<tr><td align=left>
 <font color=#ffffff><b>&nbsp;登録情報編集</b></font>
</td>
<td align=right>
<table border=0 align=right cellpadding=0 cellspacing=0><tr>
<form action="show_log.cgi" method="post">
<td>
<input type="hidden" name="mode" value="enter">
<input type="hidden" name="sort" value="date1">
<input type="submit" value="顧客管理に戻る">
</td>
</form>
<form action="enter_manage.cgi" method="post">
<td>
<input type="hidden" name="mode" value="no_check">
<input type="submit" value="管理メニューに戻る">
</td></form></tr>
</table>


</td>
</tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="edit">
<table border="0" width="500" cellspacing="2" cellpadding="4">
<tr><td colspan=2  bgcolor="#336633" align=center>
<font color="#ffffff"><b>登録情報編集フォーム</b></font>
</td></tr>
<tr>
<td align="right" bgcolor="#669966" width=100><font color="#ffffff">シリアルNO</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_serial" size="20" value="$e_serial"><font size=-1>（最終販売日の年月日を / を入れずに半角でご記入ください） (一桁の日付は0をつけて20020101のようにして下さい)</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">最終販売日</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_date" size="20"value="$e_date"><font size=-1>（半角でご記入ください）</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">名前</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_namae" size="20" value="$e_namae"></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">パスワード</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_passwd" maxlength="10" size="10" value="$e_passwd">（英数半角10字以内、非会員は空白）</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">郵便番号</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_post" size="20" value="$e_post"><font size=-1>（半角でご記入ください）例：000-0000</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">県名</font></td>
<td bgcolor="#f0f0f0">
    <select name="a_pref" size="1">
		<option selected value="$e_pref">$e_pref</option>
		<option value="北海道">北海道</option>
		<option value="青森県">青森県</option>
		<option value="岩手県">岩手県</option>
		<option value="宮城県">宮城県</option>
		<option value="秋田県">秋田県</option>
		<option value="山形県">山形県</option>
		<option value="福島県">福島県</option>
		<option value="群馬県">群馬県</option>
		<option value="栃木県">栃木県</option>
		<option value="茨城県">茨城県</option>
		<option value="埼玉県">埼玉県</option>
		<option value="千葉県">千葉県</option>
		<option value="東京都">東京都</option>
		<option value="神奈川県">神奈川県</option>
		<option value="山梨県">山梨県</option>
		<option value="静岡県">静岡県</option>
		<option value="長野県">長野県</option>
		<option value="新潟県">新潟県</option>
		<option value="富山県">富山県</option>
		<option value="石川県">石川県</option>
		<option value="岐阜県">岐阜県</option>
		<option value="滋賀県">滋賀県</option>
		<option value="福井県">福井県</option>
		<option value="愛知県">愛知県</option>
		<option value="三重県">三重県</option>
		<option value="京都府">京都府</option>
		<option value="大阪府">大阪府</option>
		<option value="奈良県">奈良県</option>
		<option value="和歌山県">和歌山県</option>
		<option value="兵庫県">兵庫県</option>
		<option value="鳥取県">鳥取県</option>
		<option value="岡山県">岡山県</option>
		<option value="島根県">島根県</option>
		<option value="広島県">広島県</option>
		<option value="山口県">山口県</option>
		<option value="香川県">香川県</option>
		<option value="徳島県">徳島県</option>
		<option value="愛媛県">愛媛県</option>
		<option value="高知県">高知県</option>
		<option value="福岡県">福岡県</option>
		<option value="佐賀県">佐賀県</option>
		<option value="大分県">大分県</option>
		<option value="熊本県">熊本県</option>
		<option value="長崎県">長崎県</option>
		<option value="宮崎県">宮崎県</option>
		<option value="鹿児島県">鹿児島県</option>
		<option value="沖縄県">沖縄県</option>
      </select>
</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">住所</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_address" size="40" value="$e_address"></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">電話番号</font></td>
<td bgcolor="#f0f0f0"><input type="hidden" name="a_phone" value="$e_phone"<font size=-1>$e_phone</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">Email</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_email" size="30" value="$e_email"><font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">メール連絡</font></td>
<td bgcolor="#f0f0f0">
<input type="radio" name="a_mailmgz" value="yes" $checkedmmyes>希望する&nbsp;&nbsp;<input type="radio" name="a_mailmgz" value="no" $checkedmmno>希望しない
</td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">購買額</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_subtotal" size="10" value="$e_subtotal">&nbsp;円<font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">ポイント</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_point" size="10" value="$e_point">&nbsp;<font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="center" colspan="2">
<input type="submit" value="変更">
<input type="reset" value="クリア">
</td>
</tr>
</table>
</form>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF
&footer;

}



##############
#編集（管理用）
##############

sub edit{

#&error("サンプルのため新規作成できません");

if ($a_serial eq ''){&error ('シリアルNOを入力して下さい。');}
if ($a_serial =~ /\D/ ) { &error('シリアルNOは半角数字で入力して下さい'); }

if ($a_date eq '') { &error('最終販売日を入力して下さい');}

if ($a_namae eq '') { &error('顧客名を入力して下さい');}

#if ($a_passwd eq '') { &error('パスワードを入力して下さい');}
if ($a_passwd){
   if ($a_passwd !~ /\w+/) { &error("パスワードの入力が不正です"); }
}

if ($a_post eq ''){&error ('郵便番号を入力して下さい。');}
if ($a_post !~ /^\d{3}-\d{4}$/) { &error("郵便番号の入力が不正です"); }

if ($a_pref eq 'none'){&error ('県名を選択して下さい。');}

if ($a_address eq ''){&error ('住所を入力して下さい。');}

#if ($a_phone eq ''){&error ('電話番号を入力して下さい。');}
#if ($a_phone =~ /[^0-9\-]/) { &error("電話番号は半角数字で入力して下さい"); }
#if ($a_phone!~ /^\d{2,5}-\d{1,4}-\d{4}$/) { &error("電話番号は半角数字でハイフォンで区切って入力して下さい"); }

if ($a_email eq "") { &error("メールアドレスが入力されていません");}
if ($a_email =~ /\s|\,/) { &error("メールアドレスの入力が不正です");}
if ($a_email !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error("メールアドレスは半角で正しくご入力ください");}

if ($a_subtotal eq ''){&error ('購買額を入力して下さい。');}
if ($a_subtotal =~ /\D/ ) { &error('購買額は半角数字で入力して下さい'); }

if ($a_point eq ''){&error ('ポイント数を入力して下さい。');}
if ($a_point =~ /\D/ ) { &error('ポイント数は半角数字で入力して下さい'); }

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

   foreach $log (@logs){
      ($c_serial,$c_date,$c_namae,$c_post,$c_pref,$c_address,$c_phone,$c_email,$c_subtotal,$c_furigana,$c_shiharai,$c_namae2,$c_furigana2,$c_post2,$c_address2,$c_phone2,$c_passwd,$c_pref2,$c_mailmgz,$c_point) = split(/,/,$log);
#      chop $c_mailmgz;#行末に「,」を挿入(02/09/10)

#      if($a_phone eq $c_phone){&error("この電話番号[$a_phone]はすでに登録されています");}


	if($a_phone eq $c_phone){

   		$a_data = "$a_serial,$a_date,$a_namae,$a_post,$a_pref,$a_address,$a_phone,$a_email,$a_subtotal,$c_furigana,$c_shiharai,$c_namae2,$c_furigana2,$c_post2,$c_address2,$c_phone2,$a_passwd,$c_pref2,$a_mailmgz,$a_point,\n";

	}else{

   		$a_data = "$log";

	}
	push(@new,$a_data);

   }


&lock;
open(LOG, "+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @new;
close(LOG);
&unlock;


&header("管理モード");
print<<"EOF";
<center>
<hr color="#336699" size="2" width=600><br>
更新しました<br>

<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="enter">
<input type="hidden" name="sort" value="date1">
<input type="submit" value="顧客管理に戻る">
</form>

</center>
<hr color="#336699" size="2" width=600>

EOF
&footer;

exit;

}

##############################
#会員登録変更フォーム2(顧客用)
##############################
sub edit_form2{

if ($phone eq '') { &error('電話番号を入力して下さい');}
if ($passwd eq '') { &error('パスワードを入力して下さい');}

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

$flag=0;

   foreach $log (@logs){
      ($e_serial,$e_date,$e_namae,$e_post,$e_pref,$e_address,$e_phone,$e_email,$e_subtotal,$e_furigana,$e_shiharai,$e_namae2,$e_furigana2,$e_post2,$e_address2,$e_phone2,$e_passwd,$e_pref2,$e_mailmgz,$e_point) = split(/,/,$log);

#      chop $c_mailmgz;#行末に「,」を挿入(02/09/10)

      if($passwd eq $e_passwd && $phone eq $e_phone){$flag=1;last;}

   }

if ($flag == 0) { &error('登録情報を検索しましたが該当するデータはありませんでした。'); }

if ($e_mailmgz eq "yes") { $checkedmmyes="checked";}
elsif ($e_mailmgz eq "no") { $checkedmmno="checked";}


&header("edit_form");
print<<"EOF";
<center>

<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<td><img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
</table>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<table width="679" border="0" cellspacing="2" cellpadding="0" align="center">
<tr> 
<td align=center bgcolor="#669966"><font color=#ffffff><b>$shop</b></font></td>
</tr>
</table>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>


<table border=0 bgcolor=#336699 width=675 cellpadding=2 cellspacing=0 align=center>

<tr><td align=left>
 <font color=#ffffff><b>登録情報変更・ポイント確認</b></font>
</td>
<td align=right>

<table border=0 cellspacing=0 cellpadding=0>
  <tr><td>
<a href=$top><b><font color=#ffffff>&gt;&gt;トップページに戻る</font></b></a>
</td></tr></form></table>
</td></tr>

</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="edit2">
<table border="0" width="500" cellspacing="2" cellpadding="4">
<tr><td colspan=2 align=right><font color=#ff6600>★</font>
現在お持ちのポイント：<font color="#ff6600"><b>$e_point</b></font>
</td></tr>
<tr><td colspan=2  bgcolor="#336633" align=center>
<font color="#ffffff"><b>登録情報編集フォーム</b></font>
</td></tr>

<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">名前</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_namae" size="20" value="$e_namae"></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">パスワード</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_passwd" maxlength="10" size="10" value="$e_passwd">（英数半角10字以内）</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">郵便番号</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_post" size="20" value="$e_post"><font size=-1>（半角でご記入ください）例：000-0000</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">県名</font></td>
<td bgcolor="#f0f0f0">
    <select name="a_pref" size="1">
		<option selected value="$e_pref">$e_pref</option>
		<option value="北海道">北海道</option>
		<option value="青森県">青森県</option>
		<option value="岩手県">岩手県</option>
		<option value="宮城県">宮城県</option>
		<option value="秋田県">秋田県</option>
		<option value="山形県">山形県</option>
		<option value="福島県">福島県</option>
		<option value="群馬県">群馬県</option>
		<option value="栃木県">栃木県</option>
		<option value="茨城県">茨城県</option>
		<option value="埼玉県">埼玉県</option>
		<option value="千葉県">千葉県</option>
		<option value="東京都">東京都</option>
		<option value="神奈川県">神奈川県</option>
		<option value="山梨県">山梨県</option>
		<option value="静岡県">静岡県</option>
		<option value="長野県">長野県</option>
		<option value="新潟県">新潟県</option>
		<option value="富山県">富山県</option>
		<option value="石川県">石川県</option>
		<option value="岐阜県">岐阜県</option>
		<option value="滋賀県">滋賀県</option>
		<option value="福井県">福井県</option>
		<option value="愛知県">愛知県</option>
		<option value="三重県">三重県</option>
		<option value="京都府">京都府</option>
		<option value="大阪府">大阪府</option>
		<option value="奈良県">奈良県</option>
		<option value="和歌山県">和歌山県</option>
		<option value="兵庫県">兵庫県</option>
		<option value="鳥取県">鳥取県</option>
		<option value="岡山県">岡山県</option>
		<option value="島根県">島根県</option>
		<option value="広島県">広島県</option>
		<option value="山口県">山口県</option>
		<option value="香川県">香川県</option>
		<option value="徳島県">徳島県</option>
		<option value="愛媛県">愛媛県</option>
		<option value="高知県">高知県</option>
		<option value="福岡県">福岡県</option>
		<option value="佐賀県">佐賀県</option>
		<option value="大分県">大分県</option>
		<option value="熊本県">熊本県</option>
		<option value="長崎県">長崎県</option>
		<option value="宮崎県">宮崎県</option>
		<option value="鹿児島県">鹿児島県</option>
		<option value="沖縄県">沖縄県</option>
      </select>
</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">住所</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_address" size="40" value="$e_address"></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">電話番号</font></td>
<td bgcolor="#f0f0f0"><input type="hidden" name="a_phone" value="$e_phone"><font size=-1>$e_phone</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">Email</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_email" size="30" value="$e_email"><font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">メール連絡</font></td>
<td bgcolor="#f0f0f0">
<input type="radio" name="a_mailmgz" value="yes" $checkedmmyes>希望する&nbsp;&nbsp;<input type="radio" name="a_mailmgz" value="no" $checkedmmno>希望しない
</td></tr>
<tr>
<td align="center" colspan="2">
<input type="submit" value="変更">
<input type="reset" value="クリア">
</td>
</tr>
</table>
</form>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF
&footer;

}

######################
#会員登録変更2(顧客用)
######################
sub edit2{

#&error("サンプルのため新規作成できません");

#if ($a_serial eq ''){&error ('シリアルNOを入力して下さい。');}
#if ($a_serial =~ /\D/ ) { &error('シリアルNOは半角数字で入力して下さい'); }

#if ($a_date eq '') { &error('最終販売日を入力して下さい');}

if ($a_namae eq '') { &error('顧客名を入力して下さい');}

if ($a_passwd eq '') { &error('パスワードを入力して下さい');}
if ($a_passwd !~ /\w+/) { &error("パスワードの入力が不正です"); }

if ($a_post eq ''){&error ('郵便番号を入力して下さい。');}
if ($a_post !~ /^\d{3}-\d{4}$/) { &error("郵便番号の入力が不正です"); }

if ($a_pref eq 'none'){&error ('県名を選択して下さい。');}

if ($a_address eq ''){&error ('住所を入力して下さい。');}

#if ($a_phone eq ''){&error ('電話番号を入力して下さい。');}
#if ($a_phone =~ /[^0-9\-]/) { &error("電話番号は半角数字で入力して下さい"); }
#if ($a_phone!~ /^\d{2,5}-\d{1,4}-\d{4}$/) { &error("電話番号は半角数字でハイフォンで区切って入力して下さい"); }

if ($a_email eq "") { &error("メールアドレスが入力されていません");}
if ($a_email =~ /\s|\,/) { &error("メールアドレスの入力が不正です");}
if ($a_email !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error("メールアドレスは半角で正しくご入力ください");}

#if ($a_subtotal eq ''){&error ('購買額を入力して下さい。');}
#if ($a_subtotal =~ /\D/ ) { &error('購買額は半角数字で入力して下さい'); }


open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

   foreach $log (@logs){
      ($c_serial,$c_date,$c_namae,$c_post,$c_pref,$c_address,$c_phone,$c_email,$c_subtotal,$c_furigana,$c_shiharai,$c_namae2,$c_furigana2,$c_post2,$c_address2,$c_phone2,$c_passwd,$c_pref2,$c_mailmgz,$c_point) = split(/,/,$log);
#      chop $c_mailmgz;#行末に「,」を挿入(02/09/10)

#      if($a_phone eq $c_phone){&error("この電話番号[$a_phone]はすでに登録されています");}


	if($a_phone eq $c_phone){

   		$a_data = "$c_serial,$c_date,$a_namae,$a_post,$a_pref,$a_address,$a_phone,$a_email,$c_subtotal,$c_furigana,$c_shiharai,$c_namae2,$c_furigana2,$c_post2,$c_address2,$c_phone2,$a_passwd,$c_pref2,$a_mailmgz,$c_point,\n";

	}else{

   		$a_data = "$log";

	}
	push(@new,$a_data);

   }


&lock;
open(LOG, "+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @new;
close(LOG);
&unlock;


&header("管理モード");
print<<"EOF";
<center>
<hr color="#336699" size="2" width=600><br>
更新しました<br><br>

<a href=$top>トップページに戻る</a><br><br>

</center>
<hr color="#336699" size="2" width=600>

EOF
&footer;

exit;

}












#######################
#登録情報削除(管理用)
#######################
sub delete_log{

#&error("サンプルのため削除できません");

if (@DEL==0 ) {&error("削除する項目にチェックを入れてください");}

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

@new=();

foreach $log (@logs){
   $flag=0;
   ($serial,$date,$namae,$post,$pref,$address,$phone,$email,$subtotal,$furigana,$shiharai,$namae2,$furigana2,$post2,$address2,$phone2,$passwd,$pref2,$mailmgz,$point) = split(/,/,$log);
#   chop $mailmgz;#行末に「,」を挿入(02/09/10)


   foreach $x (@DEL) {
        if ($phone eq "$x") { $flag=1; last; }
   }
   if ($flag == 0) { push(@new,$log); }
}


&lock;
open(LOG,"+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @new;
close(LOG);
&unlock;

&header("顧客管理");
print<<"EOF";
<center>
<hr size=2 color="#336699" width=600><br>
データを削除しました<br>
<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="sort">
<input type="hidden" name="sort" value="date1">
<input type="submit" value="顧客管理画面に戻る">
</form>

</center>
<hr size=2 color="#336699" width=600><br>

EOF
&footer;

exit;
}


#######################
#登録情報削除(顧客用)
#######################

sub delete_log2{

if ($phone eq '') { &error('電話番号を入力して下さい');}
if ($passwd eq '') { &error('パスワードを入力して下さい');}

#&error("サンプルのため削除できません");

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

@new=();

$flag=0;

foreach $log (@logs){

   ($d_serial,$d_date,$d_namae,$d_post,$d_pref,$d_address,$d_phone,$d_email,$d_subtotal,$d_furigana,$d_shiharai,$d_namae2,$d_furigana2,$d_post2,$d_address2,$d_phone2,$d_passwd,$d_pref2,$d_mailmgz,$d_point) = split(/,/,$log);
#   chop $mailmgz;#行末に「,」を挿入(02/09/10)


   if($passwd eq $d_passwd && $phone eq $d_phone){$flag=1;next;}

   push(@new,$log);
}

if ($flag == 0) { &error('登録情報を検索しましたが該当するデータはありませんでした。'); }

&lock;
open(LOG,"+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @new;
close(LOG);
&unlock;

&header("顧客管理");
print<<"EOF";
<center>
<hr size=2 color="#336699" width=600><br>
データを削除しました<br><br>
<a href=$top>トップページに戻る</a><br><br>
</center>
<hr size=2 color="#336699" width=600><br>

EOF
&footer;

exit;
}


###########################
#新規登録フォーム（管理用）
###########################
sub add_form{

&get_date;

&header("add_form");
print<<"EOF";
<center>

<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<td><img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
</table>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<table width="679" border="0" cellspacing="2" cellpadding="0" align="center">
<tr> 
<td align=center bgcolor="#669966"><font color=#ffffff><b>$shop</b></font></td>
</tr>
</table>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 width=675 cellpadding=0 cellspacing=0 bgcolor=#336699>

<tr><td align=left>
 <font color=#ffffff><b>&nbsp;新規登録</b></font>
</td>
<td align=right>
<table border=0 align=right cellpadding=0 cellspacing=0><tr>
<form action="show_log.cgi" method="post">
<td>
<input type="hidden" name="mode" value="enter">
<input type="hidden" name="sort" value="date1">
<input type="submit" value="顧客管理に戻る">
</td>
</form>
<form action="enter_manage.cgi" method="post">
<td>
<input type="hidden" name="mode" value="no_check">
<input type="submit" value="管理メニューに戻る">
</td></form></tr>
</table>


</td>
</tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="add">
<table border="0" width="500" cellspacing="2" cellpadding="4">
<tr><td colspan=2  bgcolor="#336633" align=center>
<font color="#ffffff"><b>新規登録フォーム</b></font>
</td></tr>

<tr>
<td align="right" bgcolor="#669966" width=100><font color="#ffffff">シリアルNO</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_serial" size="20" value="$serial"><font size=-1>（最終販売日の年月日を / を入れずに半角でご記入ください） (一桁の日付は0をつけて20020101のようにして下さい)</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">最終販売日</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_date" size="20"value="$date"><font size=-1>（半角でご記入ください）</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">名前</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_namae" size="20" value=""></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">パスワード</font></td>
<td bgcolor="#f0f0f0"><input type="text" maxlength="10" size="10" name="a_passwd" value="">（英数半角10字以内、非会員は空白）</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">郵便番号</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_post" size="20" value=""><font size=-1>（半角でご記入ください）例：000-0000</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">県名</font></td>
<td bgcolor="#f0f0f0">
    <select name="a_pref" size="1">
		<option selected value="none">　</option>
		<option value="北海道">北海道</option>
		<option value="青森県">青森県</option>
		<option value="岩手県">岩手県</option>
		<option value="宮城県">宮城県</option>
		<option value="秋田県">秋田県</option>
		<option value="山形県">山形県</option>
		<option value="福島県">福島県</option>
		<option value="群馬県">群馬県</option>
		<option value="栃木県">栃木県</option>
		<option value="茨城県">茨城県</option>
		<option value="埼玉県">埼玉県</option>
		<option value="千葉県">千葉県</option>
		<option value="東京都">東京都</option>
		<option value="神奈川県">神奈川県</option>
		<option value="山梨県">山梨県</option>
		<option value="静岡県">静岡県</option>
		<option value="長野県">長野県</option>
		<option value="新潟県">新潟県</option>
		<option value="富山県">富山県</option>
		<option value="石川県">石川県</option>
		<option value="岐阜県">岐阜県</option>
		<option value="滋賀県">滋賀県</option>
		<option value="福井県">福井県</option>
		<option value="愛知県">愛知県</option>
		<option value="三重県">三重県</option>
		<option value="京都府">京都府</option>
		<option value="大阪府">大阪府</option>
		<option value="奈良県">奈良県</option>
		<option value="和歌山県">和歌山県</option>
		<option value="兵庫県">兵庫県</option>
		<option value="鳥取県">鳥取県</option>
		<option value="岡山県">岡山県</option>
		<option value="島根県">島根県</option>
		<option value="広島県">広島県</option>
		<option value="山口県">山口県</option>
		<option value="香川県">香川県</option>
		<option value="徳島県">徳島県</option>
		<option value="愛媛県">愛媛県</option>
		<option value="高知県">高知県</option>
		<option value="福岡県">福岡県</option>
		<option value="佐賀県">佐賀県</option>
		<option value="大分県">大分県</option>
		<option value="熊本県">熊本県</option>
		<option value="長崎県">長崎県</option>
		<option value="宮崎県">宮崎県</option>
		<option value="鹿児島県">鹿児島県</option>
		<option value="沖縄県">沖縄県</option>
      </select>
</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">住所</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_address" size="40" value=""></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">電話番号</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_phone" size="20" value=""><font size=-1>（半角でご記入ください）例：000-000-0000</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">Email</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_email" size="30" value=""><font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">メール連絡</font></td>
<td bgcolor="#f0f0f0">
<input type="radio" name="a_mailmgz" value="yes" checked>希望する&nbsp;&nbsp;<input type="radio" name="a_mailmgz" value="no">希望しない
</td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">購買額</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_subtotal" size="10" value="0">&nbsp;円<font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">ポイント</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_point" size="10" value="0">&nbsp;<font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="center" colspan="2">
<input type="submit" value="登録">
<input type="reset" value="クリア">
</td>
</tr>
</table>
</form>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF
&footer;

}

sub add{

#&error("サンプルのため新規作成できません");

if ($a_serial eq ''){&error ('シリアルNOを入力して下さい。');}
if ($a_serial =~ /\D/ ) { &error('シリアルNOは半角数字で入力して下さい'); }

if ($a_date eq '') { &error('最終販売日を入力して下さい');}

if ($a_namae eq '') { &error('顧客名を入力して下さい');}

#if ($a_passwd eq '') { &error('パスワードを入力して下さい');}
if ($a_passwd){
   if ($a_passwd !~ /\w+/) { &error("パスワードの入力が不正です"); }
}

if ($a_post eq ''){&error ('郵便番号を入力して下さい。');}
if ($a_post !~ /^\d{3}-\d{4}$/) { &error("郵便番号の入力が不正です"); }

if ($a_pref eq 'none'){&error ('県名を選択して下さい。');}

if ($a_address eq ''){&error ('住所を入力して下さい。');}

if ($a_phone eq ''){&error ('電話番号を入力して下さい。');}
#if ($a_phone =~ /[^0-9\-]/) { &error("電話番号は半角数字で入力して下さい"); }
if ($a_phone!~ /^\d{2,5}-\d{1,4}-\d{4}$/) { &error("電話番号は半角数字でハイフォンで区切って入力して下さい"); }

if ($a_email eq "") { &error("メールアドレスが入力されていません");}
if ($a_email =~ /\s|\,/) { &error("メールアドレスの入力が不正です");}
if ($a_email !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error("メールアドレスは半角で正しくご入力ください");}

if ($a_subtotal eq ''){&error ('購買額を入力して下さい。');}
if ($a_subtotal =~ /\D/ ) { &error('購買額は半角数字で入力して下さい'); }

if ($a_point eq ''){&error ('ポイント数を入力して下さい。');}
if ($a_point =~ /\D/ ) { &error('ポイント数は半角数字で入力して下さい'); }

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

   foreach $log (@logs){
      ($c_serial,$c_date,$c_namae,$c_post,$c_pref,$c_address,$c_phone,$c_email,$c_subtotal,$c_furigana,$c_shiharai,$c_namae2,$c_furigana2,$c_post2,$c_address2,$c_phone2,$c_passwd,$c_pref2,$c_mailmgz,$c_point) = split(/,/,$log);
#      chop $c_mailmgz;#行末に「,」を挿入(02/09/10)

      if($a_phone eq $c_phone){&error("この電話番号[$a_phone]はすでに登録されています");}

   }

   $a_data = "$a_serial,$a_date,$a_namae,$a_post,$a_pref,$a_address,$a_phone,$a_email,$a_subtotal,$a_furigana,$a_shiharai,$a_namae2,$a_furigana2,$a_post2,$a_address2,$a_phone2,$a_passwd,$a_pref2,$a_mailmgz,$a_point,\n";
   unshift(@logs,$a_data);

&lock;
open(LOG, "+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @logs;
close(LOG);
&unlock;


&header("管理モード");
print<<"EOF";
<center>
<hr color="#336699" size="2" width=600><br>
登録しました<br>

<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="enter">
<input type="hidden" name="sort" value="date1">
<input type="submit" value="顧客管理に戻る">
</form>

</center>
<hr color="#336699" size="2" width=600>

EOF
&footer;

exit;

}

###########################
#新規登録フォーム2(顧客用)
###########################

sub add_form2{

&get_date;

&header("add_form");
print<<"EOF";
<center>

<table border=0 cellpadding=0 cellspacing=0 width=675 align=center><tr><td align=left>
<td><img src="$img_dir/logo.gif"></td>
</td><td align=right>
<a href=$home><font color=ff6600>home</font></a></td></tr>
</table>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<table width="679" border="0" cellspacing="2" cellpadding="0" align="center">
<tr> 
<td align=center bgcolor="#669966"><font color=#ffffff><b>$shop</b></font></td>
</tr>
</table>
<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#669966">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="2"></td>
</tr>
</table>

<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<table border=0 bgcolor=#336699 width=675 cellpadding=2 cellspacing=0 align=center>

<tr><td align=left>
 <font color=#ffffff><b>新規登録</b></font>
</td>
<td align=right>

<table border=0 cellspacing=0 cellpadding=0>
  <tr><td>
<a href=$top><font color=#ffffff><b>&gt;&gt;トップページに戻る</b></font></a>
</td></tr></form></table>
</td></tr>

</table>
<img src="$img_dir/spacer.gif" width="14" height="10"><br>

<form action="show_log.cgi" method="post">
<input type="hidden" name="mode" value="add2">
<input type="hidden" name="a_serial" size="20" value="$serial">
<input type="hidden" name="a_date" size="20"value="$date">
<input type="hidden" name="a_subtotal" size="10" value="0">
<table border="0" width="500" cellspacing="2" cellpadding="4">
<tr><td colspan=2  bgcolor="#336633" align=center>
<font color="#ffffff"><b>新規登録フォーム</b></font>
</td></tr>

<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">名前</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_namae" size="20" value=""></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">パスワード</font></td>
<td bgcolor="#f0f0f0"><input type="text" maxlength="10" size="10" name="a_passwd" value="">（英数半角10字以内）</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">郵便番号</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_post" size="20" value=""><font size=-1>（半角でご記入ください）例：000-0000</font></td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">県名</font></td>
<td bgcolor="#f0f0f0">
    <select name="a_pref" size="1">
		<option selected value="none">　</option>
		<option value="北海道">北海道</option>
		<option value="青森県">青森県</option>
		<option value="岩手県">岩手県</option>
		<option value="宮城県">宮城県</option>
		<option value="秋田県">秋田県</option>
		<option value="山形県">山形県</option>
		<option value="福島県">福島県</option>
		<option value="群馬県">群馬県</option>
		<option value="栃木県">栃木県</option>
		<option value="茨城県">茨城県</option>
		<option value="埼玉県">埼玉県</option>
		<option value="千葉県">千葉県</option>
		<option value="東京都">東京都</option>
		<option value="神奈川県">神奈川県</option>
		<option value="山梨県">山梨県</option>
		<option value="静岡県">静岡県</option>
		<option value="長野県">長野県</option>
		<option value="新潟県">新潟県</option>
		<option value="富山県">富山県</option>
		<option value="石川県">石川県</option>
		<option value="岐阜県">岐阜県</option>
		<option value="滋賀県">滋賀県</option>
		<option value="福井県">福井県</option>
		<option value="愛知県">愛知県</option>
		<option value="三重県">三重県</option>
		<option value="京都府">京都府</option>
		<option value="大阪府">大阪府</option>
		<option value="奈良県">奈良県</option>
		<option value="和歌山県">和歌山県</option>
		<option value="兵庫県">兵庫県</option>
		<option value="鳥取県">鳥取県</option>
		<option value="岡山県">岡山県</option>
		<option value="島根県">島根県</option>
		<option value="広島県">広島県</option>
		<option value="山口県">山口県</option>
		<option value="香川県">香川県</option>
		<option value="徳島県">徳島県</option>
		<option value="愛媛県">愛媛県</option>
		<option value="高知県">高知県</option>
		<option value="福岡県">福岡県</option>
		<option value="佐賀県">佐賀県</option>
		<option value="大分県">大分県</option>
		<option value="熊本県">熊本県</option>
		<option value="長崎県">長崎県</option>
		<option value="宮崎県">宮崎県</option>
		<option value="鹿児島県">鹿児島県</option>
		<option value="沖縄県">沖縄県</option>
      </select>
</td>
</tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">住所</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_address" size="40" value=""></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">電話番号</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_phone" size="20" value=""><font size=-1>（半角でご記入ください）例：000-000-0000</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">Email</font></td>
<td bgcolor="#f0f0f0"><input type="text" name="a_email" size="30" value=""><font size=-1>（半角でご記入ください）</font></td></tr>
<tr>
<td align="right" bgcolor="#669966"><font color="#ffffff">メール連絡</font></td>
<td bgcolor="#f0f0f0">
<input type="radio" name="a_mailmgz" value="yes" checked>希望する&nbsp;&nbsp;<input type="radio" name="a_mailmgz" value="no">希望しない
</td></tr>
<tr>
<td align="center" colspan="2">
<input type="submit" value="登録">
<input type="reset" value="クリア">
</td>
</tr>
</table>
</form>

<table width="675" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#336633">
<tr> 
<td><img src="$img_dir/spacer.gif" width="14" height="1"></td>
</tr>
</table>
<img src="$img_dir/spacer.gif" width="14" height="8"><br>

EOF
&footer;

}

###################
#新規登録2(顧客用)
###################

sub add2{

#&error("サンプルのため新規作成できません");

#if ($a_serial eq ''){&error ('シリアルNOを入力して下さい。');}
#if ($a_serial =~ /\D/ ) { &error('シリアルNOは半角数字で入力して下さい'); }

#if ($a_date eq '') { &error('最終販売日を入力して下さい');}

if ($a_namae eq '') { &error('顧客名を入力して下さい');}

if ($a_passwd eq '') { &error('パスワードを入力して下さい');}
if ($a_passwd){
   if ($a_passwd !~ /\w+/) { &error("パスワードの入力が不正です"); }
}

if ($a_post eq ''){&error ('郵便番号を入力して下さい。');}
if ($a_post !~ /^\d{3}-\d{4}$/) { &error("郵便番号の入力が不正です"); }

if ($a_pref eq 'none'){&error ('県名を選択して下さい。');}

if ($a_address eq ''){&error ('住所を入力して下さい。');}

if ($a_phone eq ''){&error ('電話番号を入力して下さい。');}
#if ($a_phone =~ /[^0-9\-]/) { &error("電話番号は半角数字で入力して下さい"); }
if ($a_phone!~ /^\d{2,5}-\d{1,4}-\d{4}$/) { &error("電話番号は半角数字でハイフォンで区切って入力して下さい"); }

if ($a_email eq "") { &error("メールアドレスが入力されていません");}
if ($a_email =~ /\s|\,/) { &error("メールアドレスの入力が不正です");}
if ($a_email !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error("メールアドレスは半角で正しくご入力ください");}

#if ($a_subtotal eq ''){&error ('購買額を入力して下さい。');}
#if ($a_subtotal =~ /\D/ ) { &error('購買額は半角数字で入力して下さい'); }

open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

@new=();

$exist=0;

foreach $log (@logs){
   ($c_serial,$c_date,$c_namae,$c_post,$c_pref,$c_address,$c_phone,$c_email,$c_subtotal,$c_furigana,$c_shiharai,$c_namae2,$c_furigana2,$c_post2,$c_address2,$c_phone2,$c_passwd,$c_pref2,$c_mailmgz,$c_point) = split(/,/,$log);
#   chop $c_mailmgz;

      if($a_phone eq $c_phone && $a_passwd eq $c_passwd){&error("すでに登録されています");}

      if($a_phone eq $c_phone){
           $exist=1;
	   $cdata = "$a_serial,$a_date,$a_namae,$a_post,$a_pref,$a_address,$a_phone,$a_email,$a_subtotal,$a_furigana,$a_shiharai,$a_namae2,$a_furigana2,$a_post2,$a_address2,$a_phone2,$a_passwd,$a_pref2,$a_mailmgz,0,\n";#行末に「,」を挿入(02/09/10)
           push(@new,$cdata);
      }else{

           push(@new,$log);

      }

  }

if ($exist==0){
   $cdata3 = "$a_serial,$a_date,$a_namae,$a_post,$a_pref,$a_address,$a_phone,$a_email,$a_subtotal,$a_furigana,$a_shiharai,$a_namae2,$a_furigana2,$a_post2,$a_address2,$a_phone2,$a_passwd,$a_pref2,$a_mailmgz,0,\n";#行末に「,」を挿入(02/09/10)
   unshift(@new,$cdata3);
  }

&lock;
open(LOG, "+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @new;
close(LOG);
&unlock;



&header("管理モード");
print<<"EOF";
<center>
<hr color="#336699" size="2" width=600><br>
登録しました<br><br>
<a href=$top>トップページに戻る</a><br><br>
</center>
<hr color="#336699" size="2" width=600>

EOF
&footer;

exit;

}



sub add2_bak{

#&error("サンプルのため新規作成できません");

if ($a_serial eq ''){&error ('シリアルNOを入力して下さい。');}
if ($a_serial =~ /\D/ ) { &error('シリアルNOは半角数字で入力して下さい'); }

if ($a_date eq '') { &error('最終販売日を入力して下さい');}

if ($a_namae eq '') { &error('顧客名を入力して下さい');}
if ($a_passwd eq '') { &error('パスワードを入力して下さい');}
if ($a_passwd){
   if ($a_passwd !~ /\w+/) { &error("パスワードの入力が不正です"); }
}

if ($a_post eq ''){&error ('郵便番号を入力して下さい。');}
if ($a_post !~ /^\d{3}-\d{4}$/) { &error("郵便番号の入力が不正です"); }

if ($a_pref eq 'none'){&error ('県名を選択して下さい。');}

if ($a_address eq ''){&error ('住所を入力して下さい。');}

if ($a_phone eq ''){&error ('電話番号を入力して下さい。');}
#if ($a_phone =~ /[^0-9\-]/) { &error("電話番号は半角数字で入力して下さい"); }
if ($a_phone!~ /^\d{2,5}-\d{1,4}-\d{4}$/) { &error("電話番号は半角数字でハイフォンで区切って入力して下さい"); }

if ($a_email eq "") { &error("メールアドレスが入力されていません");}
if ($a_email =~ /\s|\,/) { &error("メールアドレスの入力が不正です");}
if ($a_email !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error("メールアドレスは半角で正しくご入力ください");}

if ($a_subtotal eq ''){&error ('購買額を入力して下さい。');}
if ($a_subtotal =~ /\D/ ) { &error('購買額は半角数字で入力して下さい'); }


open(LOG,"$logfile1") || &error("$logfile1を開けません");
@logs = <LOG>;
close(LOG);

   foreach $log (@logs){
      ($c_serial,$c_date,$c_namae,$c_post,$c_pref,$c_address,$c_phone,$c_email,$c_subtotal,$c_furigana,$c_shiharai,$c_namae2,$c_furigana2,$c_post2,$c_address2,$c_phone2,$c_passwd,$c_pref2,$c_mailmgz,$c_point) = split(/,/,$log);
#      chop $c_mailmgz;#行末に「,」を挿入(02/09/10)

      if($a_phone eq $c_phone){&error("この電話番号[$a_phone]はすでに登録されています");}

   }

   $a_data = "$a_serial,$a_date,$a_namae,$a_post,$a_pref,$a_address,$a_phone,$a_email,$a_subtotal,$a_furigana,$a_shiharai,$a_namae2,$a_furigana2,$a_post2,$a_address2,$a_phone2,$a_passwd,$a_pref2,$a_mailmgz,0,\n";
   unshift(@logs,$a_data);

&lock;
open(LOG, "+< $logfile1") || &error("$logfile1に書き込めません","unlock");
truncate(LOG,0);
seek(LOG,0,0);
print LOG @logs;
close(LOG);
&unlock;


&header("管理モード");
print<<"EOF";
<center>
<hr color="#336699" size="2" width=600><br>
登録しました<br><br>
<a href=$top>トップページに戻る</a><br><br>
</center>
<hr color="#336699" size="2" width=600>

EOF
&footer;

exit;

}



sub decode_form{
	if($ENV{'REQUEST_METHOD'}eq"POST"){
		read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	}else { 
		$buffer = $ENV{'QUERY_STRING'}; 
	}
#	if($buffer>5120){&error("投稿量が大きすぎます");}

	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {

	($name, $value) = split(/=/, $pair);
	$name =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	# 記録するデータはsjisに統一する
	&jcode'convert(*name,'sjis');
	&jcode'convert(*value,'sjis');

	$value =~ s/,//g;
#改行が入ると別のデータになる
	$value =~ s/\r\n/<br>/g;
	$value =~ s/\r/<br>/g;
	$value =~ s/\n/<br>/g;
#「"」「'」を削除
	$value =~ s/\"//g;
	$value =~ s/\'//g;


	if ($name eq "del") { push(@DEL,$value); }

    $in{$name} = $value;

	}

	$mode = $in{'mode'};
	$sort = $in{'sort'};

	$phone = $in{'phone'};
#	$e_phone = $in{'e_phone'};
	$passwd = $in{'passwd'};

	$a_serial = $in{'a_serial'};
	$a_date = $in{'a_date'};
	$a_namae = $in{'a_namae'};
	$a_passwd = $in{'a_passwd'};
	$a_post = $in{'a_post'};
	$a_pref = $in{'a_pref'};
	$a_address = $in{'a_address'};
	$a_phone = $in{'a_phone'};
	$a_email = $in{'a_email'};
	$a_mailmgz = $in{'a_mailmgz'};
	$a_subtotal = $in{'a_subtotal'};
	$a_point = $in{'a_point'};

}


#-------------------------------------
#----エラー処理
#-------------------------------------
sub kanri_error{
&header;
print<<"EOF";
<br>
<center>
<hr size=2 color="#336699" width=600><br>
<font color=red>$_[0]</font><br><br>

<table border=0 align=center><tr>
<form action="show_log.cgi" method="post">
<td>
<input type="hidden" name="mode" value="enter">
<input type="submit" value="顧客管理に戻る">
</td></form></tr>
</table><br>
</center>
<hr size=2 color="#336699" width=600>

EOF
&footer;
exit;
}