#!/usr/local/bin/perl

# 外部ファイル取り込み
require './chkurl.cgi';
&chkurl;
require './jcode.pl';
require './init.cgi';
require './cook.cgi';
require './conf.pl';

$htp = 0;
&decode;

#-------------------------------------------------
#  登録画面
#-------------------------------------------------

if ($b_check eq "ezweb" or $b_check eq "mobile"){

	if ($b_check eq "ezweb"){
		$domain = 'http://imutl.ezweb.ne.jp/cgi2001/utl_menu.cgi';
	} elsif ($k_check eq "jsky"){
		$domain = 'http://www.softbank.jp/scripts/japanese/mobile/mailaddress.jsp?';
	} else {
		$domain = 'http://docomo.ne.jp/cp/mailsetst.cgi';
	}	
	&header;
	$headflag = 3;
	&headern;
	$master_len = length($master);
	print <<EOM;
<form action="$admin" method="post">
各項目を入力して送信ボタンを押してください。<br>
<font color="red">お名前とE-mailは必須です。（*印、他は任意）</font><br>
お客様より入力されたﾛｸﾞｲﾝIDにより仮ﾊﾟｽﾜｰﾄﾞを発行し、ﾒｰﾙにて通知いたします。<br>
<font color="red">又、ﾒｰﾙﾌｨﾙﾀをかけている方は、指定受信ﾘｽﾄに、<input type="text" name="from" size="$master_len" value="$master">をｺﾋﾟｰして加えてください。
EOM
if ($k_check ne "sPhone"){
print <<EOM;
<a href="$domain">［ドメイン指定の設定］</a></font><br>
EOM
} else {
print <<EOM;
ドメイン指定の設定の解除を行ってください。</font><br>
EOM
}
print <<EOM;
<input type=hidden name=mode value="newUser">
<input type=hidden name=retadr value="$cgi_adr/newadmin.cgi">
EOM

	&mobileform($htp,$in{'id'},$in{'name'},$in{'eml1'},$in{'eml2'},$in{'tp'},$in{'kana'},$in{'sex'},$in{'bir1'},$in{'bir2'},$in{'bir3'},$in{'tel'},$in{'fax'},$in{'ptel'},$in{'pcd'},$in{'ad1'},$in{'ad2'},$in{'ad3'},$in{'ad4'},$in{'cmp1'},$in{'cmp2'},$in{'dis'},$in{'poi'},$in{'memo'});
	print <<EOM;
<br>
<hr color="#000000">
</body>\n</html>
EOM

} else {
	&header;
	print "<script src=\"$script_url/ajaxzip2/prototype.js\"></script>";
	print "<script src=\"$script_url/ajaxzip2/ajaxzip2.js\" charset=\"UTF-8\"></script>";
	print "<script>AjaxZip2.JSONDATA = \'$script_url/ajaxzip2/data\';";
	print "</script>";
	$headflag = 3;
	&headern;
	print <<EOM;
<div align=left><h3>$titleへようこそ！</h3><br>

<li>各項目を入力して送信ボタンを押してください。</li>
<li>お名前とE-mailは必須です。（*印、他は任意）</li>
<li>お客様より入力されたログインIDにより仮パスワードを発行し、メールにて通知いたします。</li>
<form action="$admin" method="post">
<input type=hidden name=mode value="newUser">
EOM

	&form($htp);

	print "</div></body></htrml>\n";
	exit;
}

#-------------------------------------------------
#  修正画面
#-------------------------------------------------
sub edit_form {
local($id,$nam,$eml,$tp,$kna,$sex,$bi1,$bi2,$bi3,$tel,$fax,$ptel,$pcd,$ad1,$ad2,$ad3,$ad4,$cmp1,$cmp2,$dis,$poi,$memo) = @_;

if ($b_check eq "ezweb" or $b_check eq "mobile"){

	&header;
	&headern;

if ($htp == 0){
	print "以下のﾌｫｰﾑより、登録情報を変更します。<br>\n";
} else {
	print "以下のﾌｫｰﾑより、<b>$id</b> の属性情報を変更します。<br>\n";
}
print <<EOM;
変更する箇所のみ修正して送信ﾎﾞﾀﾝを押してください。<br>
<form action="$admin" method="post">
<input type="hidden" name="pass" value="$in{'pass'}">
<input type="hidden" name="job" value="edit2">
<input type="hidden" name="id" value="$in{'id'}">
EOM
	&mobileform($htp,$id,$nam,$eml,$eml,$tp,$kna,$sex,$bi1,$bi2,$bi3,$tel,$fax,$ptel,$pcd,$ad1,$ad2,$ad3,$ad4,$cmp1,$cmp2,$dis,$poi,$memo);


	print <<EOM;
<div><hr color="#000000">
以下のﾌｫｰﾑより、ﾊﾟｽﾜｰﾄﾞを強制変更します。
<form action="$admin" method="post">
<input type="hidden" name="pass" value="$in{'pass'}">
<input type="hidden" name="job" value="pwchg">
<input type="hidden" name="id" value="$in{'id'}">
パスワード:<br>
<input type="text" name="pw" size="8" maxlength="8"><font color="green">(8文字以内)</font></td>
<input type="submit" value="強制変更する">
</form></div>
<br>
<hr color="#000000">
</body>\n</html>
EOM

} else {
	&header;
	print "<script src=\"$script_url/ajaxzip2/prototype.js\"></script>";
	print "<script src=\"$script_url/ajaxzip2/ajaxzip2.js\" charset=\"UTF-8\"></script>";
	print "<script>AjaxZip2.JSONDATA = \'$script_url/ajaxzip2/data\';";
	print "</script>";
	&headern;
	print <<EOM;
<form>
<input type="button" value="前画面に戻る" onclick="history.back()">
</form>
<ul>
EOM
if ($htp == 0){
	print "<li>以下のフォームより、登録情報を変更します。\n";
} else {
	print "<li>以下のフォームより、<b>$id</b> の属性情報を変更します。\n";
}
print <<EOM;
<li>変更する箇所のみ修正して送信ボタンを押してください。
</ul>
<form action="$admin" method="post">
<input type="hidden" name="pass" value="$in{'pass'}">
<input type="hidden" name="job" value="edit2">
<input type="hidden" name="id" value="$in{'id'}">
EOM

	&form($htp,$id,$nam,$eml,$eml,$tp,$kna,$sex,$bi1,$bi2,$bi3,$tel,$fax,$ptel,$pcd,$ad1,$ad2,$ad3,$ad4,$cmp1,$cmp2,$dis,$poi,$memo);

	print <<EOM;
<hr>
<ul>
<li>以下のフォームより、パスワードを強制変更します。
</ul>
<form action="$admin" method="post">
<input type="hidden" name="pass" value="$in{'pass'}">
<input type="hidden" name="job" value="pwchg">
<input type="hidden" name="id" value="$in{'id'}">
<table border="1" cellspacing="0" cellpadding="4">
<tr>
  <th class="l">パスワード</th>
  <td class="r">
	<input type="text" name="pw" size="8" maxlength="8" style="ime-mode:inactive">
	<font color="green">(8文字以内)</font></td>
</tr>
</table>
<p>
<input type="submit" value="強制変更する">
</form>
</body>
</html>
EOM
}
	exit;
}

#-------------------------------------------------
#  フォーム
#-------------------------------------------------
sub form {
	local($htp,$id,$nam,$eml1,$eml2,$tp,$kna,$sex,$bi1,$bi2,$bi3,$tel,$fax,$ptel,$pcd,$ad1,$ad2,$ad3,$ad4,$cmp1,$cmp2,$dis,$poi,$memo) = @_;
	$memo =~ s/<br>/\n/g;

	print <<EOM;
<table border="1" cellspacing="0" cellpadding="4">
<tr>
  <th class="l">*お名前</th>
  <td class="r"><input type="text" name="name" size="30" value="$nam" style="ime-mode:active">様</td>
</tr>
<tr>
  <th class="l">*フリガナ</th>
  <td class="r"><input type="text" name="kana" size="30" value="$kna" style="ime-mode:active"></td>
</tr>
<tr>
  <th class="l">*E-mail</th>
  <td class="r"><input type="text" name="eml1" size="30" value="$eml1" style="ime-mode:inactive"><br>
  <input type="text" name="eml2" size="30" value="$eml2" style="ime-mode:inactive">再入力</td>
</tr>
<!-- 
<tr>
 <th class="l">*ログインID</th> -->
EOM

=pod
	if ($id eq "") {
		print "<td class=\"r\">";
		print "<input type=\"text\" name=\"id\" size=\"8\" style=\"ime-mode:inactive\">\n";
		print "<font color=\"green\">(メールアドレスをお勧めします。)</font></td></tr>\n";
#		print "<tr><th class=\"l\">パスワード</th>\n";
#  		print "<td class=\"r\"><input type=\"text\" name=\"pw\" size=\"8\" maxlength=\"8\" style=\"ime-mode:inactive\">\n";
#		print "<font color=\"green\">(8文字以内)</font></td></tr>\n";
	} else {
		print "<td class=\"r\">$id</td></tr>\n";
	}
=cut
        if ($htp eq "1" or $htp eq "2" or $htp eq "3") {
                print "<tr>";
                print "<th class=\"l\">種別</th>";
                if ($tp eq "0") {
                print "<td class=\"r\"><input type=\"radio\" name=\"type\" value=\"0\" checked>$typ0<br>";
		} else {
                print "<td class=\"r\"><input type=\"radio\" name=\"type\" value=\"0\">$typ0<br>";
                }
#		if ($tp eq "1") {
#		print "<input type=\"radio\" name=\"type\" value=\"1\" checked>$typ1<br>";
#		} else {
#		print "<input type=\"radio\" name=\"type\" value=\"1\">$typ1<br>";
#		}
#		if ($tp eq "2") {
#		print "<input type=\"radio\" name=\"type\" value=\"2\" checked>$typ2<br>";
#		} else {
#		print "<input type=\"radio\" name=\"type\" value=\"2\">$typ2<br>";
#		}
		if ($htp eq $typp){
		if ($tp eq "3") {
                print "<input type=\"radio\" name=\"type\" value=\"3\" checked>$typ3<br>";
		} else {
                print "<input type=\"radio\" name=\"type\" value=\"3\">$typ3<br>";
		}
#		if ($tp eq "4") {
#		print "<input type=\"radio\" name=\"type\" value=\"4\" checked>$typ4<br>";
#		} else {
#		print "<input type=\"radio\" name=\"type\" value=\"4\">$typ4<br>";
#		}
		}
		print "</tr>"
        }
	print "<tr>";
	print "<th class=\"l\">性別</th>";
	if ($sex eq "男"){
        print "<td class=\"r\"><input type=\"radio\" name=\"sex\" value=\"男\" checked>男 ";
		} else {
	print "<td class=\"r\"><input type=\"radio\" name=\"sex\" value=\"男\">男 ";
		}
	if ($sex eq "女"){
        print "<input type=\"radio\" name=\"sex\" value=\"女\" checked>女<br>";
		} else {
	print "<input type=\"radio\" name=\"sex\" value=\"女\">女<br>";
		}

	print <<EOM;
</tr>
<tr>
  <th class="l">生年月日</th>
  <td class="r"><input type="text" name="bir1" size="4" value="$bi1" style="ime-mode:inactive">年
  <input type="text" name="bir2" size="2" value="$bi2" style="ime-mode:inactive">月
  <input type="text" name="bir3" size="2" value="$bi3" style="ime-mode:inactive">日</td>
</tr>
<tr>
  <th class="l">電話番号</th>
  <td class="r"><input type="text" name="tel" size="13" value="$tel" style="ime-mode:inactive"></td>
</tr>
<tr>
  <th class="l">FAX番号</th>
  <td class="r"><input type="text" name="fax" size="13" value="$fax" style="ime-mode:inactive"></td>
</tr>
<tr>
  <th class="l">携帯電話</th>
  <td class="r"><input type="text" name="ptel" size="13" value="$ptel" style="ime-mode:inactive"></td>
</tr>
<tr>
  <th class="l">郵便番号</th>
  <td class="r"><input type="text" name="pcd" size="9" value="$pcd" style="ime-mode:inactive" onKeyUp="AjaxZip2.zip2addr(this,'ad1','ad2');"></td>
</tr>
<tr>
  <th class="l">住所</th>
  <td class="r"><select name="ad1">
<option value=$ad1>$ad1</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><br>
  <input type="text" name="ad2" size="30" value="$ad2" style="ime-mode:active"><br>
  <input type="text" name="ad3" size="30" value="$ad3" style="ime-mode:active"><br>
  <input type="text" name="ad4" size="30" value="$ad4" style="ime-mode:active">
</tr>
EOM

        if ($htp eq "3") {
                print "<tr>";
                print "<th class=\"l\">掛率</th>";
                print "<td class=\"r\"><input type=\"text\" name=\"dis\" value=$dis style=\"ime-mode:inactive\"><br>";
		print "</tr>";
                print "<tr>";
                print "<th class=\"l\">ポイント</th>";
                print "<td class=\"r\"><input type=\"text\" name=\"poi\" value=$poi style=\"ime-mode:inactive\"><br>";
		print "</tr>"
        }
	else{
                if ($dis ne ""){
			print "<tr>";
	                print "<th class=\"l\">掛率</th>";
        	        print "<td class=\"r\">$dis<br>";
			print "</tr>";
		}
                if ($poi ne ""){
	                print "<tr>";
        	        print "<th class=\"l\">ポイント</th>";
                	print "<td class=\"r\">$poi<br>";
			print "</tr>"
		}
	}
	print <<EOM;
<tr>
  <th class="l">お知らせメール</th>
  <td class="r"><input type="radio" name="inform" value="0" CHECKED>受信する　<input type="radio" name="inform" value="1" >受信しない　<br></td>
</tr>
<tr>
  <th class="l">備考</th>
  <td class="r"><textarea name="memo" cols="30" rows="4" style="ime-mode:active">$memo</textarea></td>
</tr>
</table>
<p>
<input type="submit" value="送信する"><input type="reset" value="リセット">
</form>
EOM
}

#-------------------------------------------------
#  フォーム
#-------------------------------------------------
sub mobileform {
	local($htp,$id,$nam,$eml1,$eml2,$tp,$kna,$sex,$bi1,$bi2,$bi3,$tel,$fax,$ptel,$pcd,$ad1,$ad2,$ad3,$ad4,$cmp1,$cmp2,$dis,$poi,$memo) = @_;
	$memo =~ s/<br>/\n/g;

	print <<EOM;
*お名前:<br>
<input type="text" name="name" size="30" value="$nam"><br>
*ﾌﾘｶﾞﾅ:<br>
<input type="text" name="kana" size="30" value="$kna"><br>
*E-mail:<br>
<input type="text" name="eml1" size="30" value="$eml1" istyle="3" MODE="alphabet"><br>
*E-mail(再入力）:<br>
<input type="text" name="eml2" size="30" value="$eml2" istyle="3" MODE="alphabet"><br>
<!-- *ﾛｸﾞｲﾝID:<br> -->
EOM
=pod
#	if ($id eq "") {
		print "<input type=\"text\" name=\"id\" size=\"15\" value=\"$id\" istyle=\"3\" MODE=\"alphabet\"><br>\n";
		print "<font color=\"green\">(ﾒｰﾙｱﾄﾞﾚｽをお勧めします。)</font><br>\n";
#		print "パスワード:<br>\n";
#  		print "<input type=\"text\" name=\"pw\" size=\"8\" maxlength=\"8\" >\n";
#		print "(8文字以内)<br>\n";
#	} else {
#		print "$id<br>\n";
#	}
=cut
        if ($htp eq "1" or $htp eq "2" or $htp eq "3") {
                print "種別:<br>";
                if ($tp eq "0") {
                print "<input type=\"radio\" name=\"type\" value=\"0\" checked>$typ0<br>";
		} else {
                print "<input type=\"radio\" name=\"type\" value=\"0\">$typ0<br>";
                }
#		if ($tp eq "1") {
#		print "<input type=\"radio\" name=\"type\" value=\"1\" checked>$typ1<br>";
#		} else {
#		print "<input type=\"radio\" name=\"type\" value=\"1\">$typ1<br>";
#		}
#		if ($tp eq "2") {
#		print "<input type=\"radio\" name=\"type\" value=\"2\" checked>$typ2<br>";
#		} else {
#		print "<input type=\"radio\" name=\"type\" value=\"2\">$typ2<br>";
#		}
		if ($htp eq $typp){
		if ($tp eq "3") {
                print "<input type=\"radio\" name=\"type\" value=\"3\" checked>$typ3<br>";
		} else {
                print "<input type=\"radio\" name=\"type\" value=\"3\">$typ3<br>";
		}
#		if ($tp eq "4") {
#		print "<input type=\"radio\" name=\"type\" value=\"4\" checked>$typ4<br>";
#		} else {
#		print "<input type=\"radio\" name=\"type\" value=\"4\">$typ4<br>";
#		}
		}
        }
	print "性別:<br>";
	if ($sex eq "男"){
        print "<input type=\"radio\" name=\"sex\" value=\"男\" checked>男 ";
		} else {
	print "<input type=\"radio\" name=\"sex\" value=\"男\">男 ";
		}
	if ($sex eq "女"){
        print "<input type=\"radio\" name=\"sex\" value=\"女\" checked>女<br>";
		} else {
	print "<input type=\"radio\" name=\"sex\" value=\"女\">女<br>";
		}

	print <<EOM;
生年月日:<br>
<input type="text" name="bir1" size="4" value="$bi1" istyle="4" MODE="numeric">年
<input type="text" name="bir2" size="2" value="$bi2" istyle="4" MODE="numeric">月
<input type="text" name="bir3" size="2" value="$bi3" istyle="4" MODE="numeric">日<br>
電話番号:<br>
<input type="text" name="tel" size="13" value="$tel" istyle="4" MODE="numeric"><br>
FAX番号:<br>
<input type="text" name="fax" size="13" value="$fax" istyle="4" MODE="numeric"><br>
携帯電話:<br>
<input type="text" name="ptel" size="13" value="$ptel" istyle="4" MODE="numeric"><br>
郵便番号:<br>
<input type="text" name="pcd" size="9" value="$pcd" istyle="4" MODE="numeric"><br>
住所:<br>
<select name="ad1" size=1>
<option value=$ad1>$ad1
<option value="北海道">北海道<option value="青森県">青森県
<option value="岩手県">岩手県<option value="宮城県">宮城県
<option value="秋田県">秋田県<option value="山形県">山形県
<option value="福島県">福島県<option value="茨城県">茨城県
<option value="栃木県">栃木県<option value="群馬県">群馬県
<option value="埼玉県">埼玉県<option value="千葉県">千葉県
<option value="東京都">東京都<option value="神奈川県">神奈川県
<option value="新潟県">新潟県<option value="富山県">富山県
<option value="石川県">石川県<option value="福井県">福井県
<option value="山梨県">山梨県<option value="長野県">長野県
<option value="岐阜県">岐阜県<option value="静岡県">静岡県
<option value="愛知県">愛知県<option value="三重県">三重県
<option value="滋賀県">滋賀県<option value="京都府">京都府
<option value="大阪府">大阪府<option value="兵庫県">兵庫県
<option value="奈良県">奈良県<option value="和歌山県">和歌山県
<option value="鳥取県">鳥取県<option value="島根県">島根県
<option value="岡山県">岡山県<option value="広島県">広島県
<option value="山口県">山口県<option value="徳島県">徳島県
<option value="香川県">香川県<option value="愛媛県">愛媛県
<option value="高知県">高知県<option value="福岡県">福岡県
<option value="佐賀県">佐賀県<option value="長崎県">長崎県
<option value="熊本県">熊本県<option value="大分県">大分県
<option value="宮崎県">宮崎県<option value="鹿児島県">鹿児島県
<option value="沖縄県">沖縄県
</select><br>
<input type="text" name="ad2" size="30" value="$ad2"><br>
<input type="text" name="ad3" size="30" value="$ad3"><br>
<input type="text" name="ad4" size="30" value="$ad4"><br>
EOM

        if ($htp eq "3") {
                print "掛率:<br>";
                print "<input type=\"text\" name=\"dis\" value=$dis><br>";
                print "ポイント:<br>";
                print "<td class=\"r\"><input type=\"text\" name=\"poi\" value=$poi><br>";
        }
	else{
                if ($dis ne ""){
	                print "掛率:<br>";
        	        print "$dis<br>";
		}
                if ($poi ne ""){
	                print "ポイント:<br>";
        	        print "$poi<br>";
		}
	}
	print <<EOM;
お知らせメール:<br>
<input type="radio" name="inform" value="0" CHECKED>受信する　<input type="radio" name="inform" value="1" >受信しない　<br>
備考:<br>
<textarea name="memo" cols="30" rows="4">$memo</textarea><br>
<p>
<input type="submit" value="送信する"><input type="reset" value="リセット">
</form>
送信しますと、仮ﾊﾟｽﾜｰﾄﾞを発行し、ﾒｰﾙにて通知いたします。<br>
EOM
}

#-------------------------------------------------
#  BASE64変換
#-------------------------------------------------
#		とほほのWWW入門で公開されているルーチンを
#		参考にしました。( http://tohoho.wakusei.ne.jp/ )
sub base64 {
	local($sub) = @_;
	&jcode'convert(*sub, 'jis', 'sjis');

	$sub =~ s/\x1b\x28\x42/\x1b\x28\x4a/g;
	$sub = "=?iso-2022-jp?B?" . &b64enc($sub) . "?=";
	$sub;
}
sub b64enc {
	local($ch)="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
	local($x, $y, $z, $i);
	$x = unpack("B*", $_[0]);
	for ($i=0; $y=substr($x,$i,6); $i+=6) {
		$z .= substr($ch, ord(pack("B*", "00" . $y)), 1);
		if (length($y) == 2) {
			$z .= "==";
		} elsif (length($y) == 4) {
			$z .= "=";
		}
	}
	$z;
}


__END__