#! /usr/local/bin/perl
####################################################################
# メイングラム名: ネットクルーズメールアドレス追加申込み           #
# サブグラム名: mailadd.cgi                                 #
# このプログラムを無断で転用販売することを禁じます。               #
# copyright:ichiroo kawamoto                                       #
# 作成日付:2000/06/23                                              #
# 修正日付:2000/06/23                                              #
####################################################################
require "jcode.pl";
require "cgi-lib.pl";
require "henkan.pl";
require "syubetu.pl";
require "chkemail.pl";
require "shoki.pl";
&ReadParse;
srand;
$rand = int(rand(10000000000));
@dd = split(/&/,$ENV{'QUERY_STRING'});
$dd[0] = $rand;
$ddd = $ENV{'QUERY_STRING'};


($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime;
if ($year > 50) {$year = "19" . $year;}
		else {$year = "20" . $year;}

$mon++;
@week = ("日","月","火","水","木","金","土");
$wday = $week[$wday];

$time = "$mon月$mday日($wday)$hour時$min分$sec秒";


$NAME = $in{"NAME"};
$STEL = $in{"STEL"};
$TEL = $in{"TEL"};
$MAIL = $in{"MAIL"};
$MAIL1 = $in{"MAIL1"};
$MAIL2 = $in{"MAIL2"};
$MAIL3 = $in{"MAIL3"};
$YEN = $in{"YEN"};


################################# ファイル書き込み ######################################
if ($in{"KAKUTEI2"} eq "確定"){
	if (-d "data" ne 1){
		mkdir("data",0777);
		chmod(0777,"data");
	}
	if (-e "data/data.txt" ne 1){
		open(OUT,">data/data.txt");
		close(OUT);
	}
	else{
		#### 重複チェック #####
		$atta = 0;
		open(IN,"data/data.txt");
		$konma = ',';
		for ($i = 0;$i < 100000;$i++){
			$line = <IN>;
			if ($line eq ""){last;}
			@line = split(/$konma/,$line);
			if (($line[0] eq $HNAME && $line[10] eq $TEL1) || ($line[1] eq $NAME && $line[10] eq $TEL1)){
				$atta = 1;
				last;
			}
		}
		close(IN);
		if ($atta eq 1){
			print "Content-type: text/html\n\n";
			print"<HTML>\n";
			print"<HEAD>\n";
			print'<TITLE>ネットクルーズ会員メールアドレス追加申込み入力エラー</TITLE>'."\n";
			print"</HEAD>\n";
			print"\n";
			print"<BODY bgcolor=\"#e4f5fa\">\n";
			print"<CENTER>\n";
			print"<BR>\n";
			print"<FONT color=\"#ff0080\" size=\"+2\">\n";
			print"<B>\n";
			print'ネットクルーズ会員メールアドレス追加申込み入力エラー'."<BR>\n";
			print"</B>\n";
			print"</FONT>\n";
			print"<HR size=\"10\">\n";
			print"<BR>\n";
	
			print"<TABLE>\n";
			print"<TR>\n";
			print"<TD>\n";
			print"<B>\n";
			print"<FONT color=\"#ff0080\" size=\"+2\">\n";
			print"同一データが既に存在します。<BR><BR>\n";
			print"</FONT>\n";
			print"</B>\n";
			print"</TD>\n";
			print"</TR>\n";
			print"</TABLE>\n";
			print"<BR>\n";
			print"<BR>\n";
			print"<BR>\n";
			print"<B>\n";
			print"<FONT color=\"#000000\" size=\"+2\">\n";
			print"プラウザの[戻る]キーで戻ってフォーム内容を修正して下さい。\n";
			print"</FONT>\n";
			print"</B>\n";
			print"<BR>\n";
			print"<BR>\n";
			print"</CENTER>\n";
			print"<BR>\n";
			exit();
		}
	}







	open(IN,"data/data.txt");
	open(OUT,">data/temp.txt");
	flock(OUT,2);
	print OUT $NAME.',';
	print OUT $STEL.',';
	print OUT $TEL.',';
	print OUT $MAIL.',';
	print OUT $MAIL1.',';
	print OUT $MAIL2.',';
	print OUT $MAIL3.',';
	print OUT $YEN.',';
	print OUT "\n";

	for ($i = 0;$i < 100000;$i++){
		$line = <IN>;
		if ($line eq ""){last;}
		print OUT $line;
	}
	flock(OUT,8);
	close(OUT);
	close(IN);
	rename("data/temp.txt","data/data.txt");
	chmod (0777,"data/data.txt");

	print "Content-type: text/html\n\n";
	print"<HTML>\n";
	print"<HEAD>\n";
	print'<TITLE>フォーム入力終了画面</TITLE>'."\n";
	print"</HEAD>\n";
	print"\n";
	print"<BODY bgcolor=\"#e4f5fa\">\n";
	print"<CENTER>\n";
	print"<BR>\n";
	print"<FONT color=\"#8000ff\" size=\"+2\">\n";
	print"<B>\n";
	print'メールアドレス追加申込みありがとうございます!!'."<BR>\n";
	print"</B>\n";
	print"</FONT>\n";
	print"<BR>\n";
	print"<HR size=\"10\">\n";
	print"<BR>\n";
	print"<BR>\n";

	$err = &make_message($to_email,'webmaster@netcruise.co.jp',$msg2);

	$err = &make_message($MAIL,'webmaster@netcruise.co.jp',$msg);

	print"<TABLE>\n";
	print"<TR>\n";
	print"<TD>\n";
	print"<B>\n";
	print"<FONT color=\"#000000\" size=\"+1\">\n";
	print"フォーム内容は、送信されました。<BR>\n";
	print"確認後、郵送にてメールアドレス追加分のIDとパスワードをお送りさせていただきます。<BR>\n";
	print"<BR>\n";
	print"</FONT>\n";

	print"</TD>\n";
	print"</TR>\n";
	print"</TABLE>\n";
	print"<BR>\n";
	print"<HR size=\"10\">\n";

	print"<FORM action=\"$return\" target=\"_top\">\n";
	print"<TABLE>\n";
	print"<TR>\n";
	print"<TD>\n";
	print"<FONT size=\"+1\">\n";
	print"<INPUT name=\"KAKUTEI\" type=\"submit\" value=\"TOPへ戻る\">\n";
	print"</FONT>\n";
	print"</TD>\n";
	print"</TR>\n";
	print"</TABLE>\n";
	print"</FORM>\n";

	print"</CENTER>\n";
	print"</BODY>\n";
	print"</HTML>\n";
	exit();
}
################################# 入力フォーム確認 ######################################
if ($in{"KAKUTEI"} eq "確定"){

	#print "Content-type: text/html\n\n";
	#print"<HTML>\n";

	# 左右の空白を削除
	$NAME = &henkan'kuuhaku($NAME);
	$STEL = &henkan'kuuhaku($STEL);
	$TEL = &henkan'kuuhaku($TEL);
	$MAIL = &henkan'kuuhaku($MAIL);
	$MAIL1 = &henkan'kuuhaku($MAIL1);
	$MAIL2 = &henkan'kuuhaku($MAIL2);
	$MAIL3 = &henkan'kuuhaku($MAIL3);

	# 文字中の空白を削除
	$NAME = &henkan'kuuhaku2($NAME);
	$STEL = &henkan'kuuhaku2($STEL);
	$TEL = &henkan'kuuhaku2($TEL);
	$MAIL = &henkan'kuuhaku2($MAIL);
	$MAIL1 = &henkan'kuuhaku2($MAIL1);
	$MAIL2 = &henkan'kuuhaku2($MAIL2);
	$MAIL3 = &henkan'kuuhaku2($MAIL3);
	
	# 文字中の"-","-"を削除
	$TEL = &henkan'haihun($TEL);

	$p = 0;
	$atta = 0;
	@err = "";

	#### 重複チェック #####
	#open(IN,"data/data.txt");
	#$konma = ',';
	#for ($i = 0;$i < 100000;$i++){
	#	$line = <IN>;
	#	if ($line eq ""){last;}
	#	@line = split(/$konma/,$line);
	#	if (($line[0] eq $NAME && $line[2] eq $TEL) || $line[2] eq $TEL || ($line[3] eq $MAIL && $MAIL ne "")){
	#		$err[$p] = 'あなたのデータは既に登録済みです。';
	#		$p++;
	#		$atta = 1;
	#		last;
	#	}
	#}
	#close(IN);


	# 必須エラー調査
	if ($NAME eq ""){$err[$p] = 'お名前が記入されていません。';$p++;$atta = 1;}
	if ($STEL eq ""){$err[$p] = '電話番号市外局番が記入されていません。';$p++;$atta = 1;}
	if ($TEL eq ""){$err[$p] = '電話番号が記入されていません。';$p++;$atta = 1;}
	if ($MAIL1 eq "" && $MAIL2 eq "" && $MAIL3 eq ""){$err[$p] = '希望メールアドレスが記入されていません。';$p++;$atta = 1;}


	# ネットクルーズ使用中メールアカウントとの比較

	$matta = 0;
	$satta = 0;
	$mail = substr($MAIL,0,index($MAIL,"@"));
	setpwent;
	for ($i = 0;$i < 1000;$i++){
		($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$homedir,$shell) = getpwent;
		#print "name=$name homedir=$homedir<BR>\n";
		if ($name ne ""){
			if ($name eq $mail){
				$matta = 1;
			}
			if ($name eq $MAIL1){
				$err[$p] = '追加希望Eメールアドレス(1) "'.$name.'" は既に登録済みメールと重複しているので使用できません。';
				$p++;
				$atta = 1;
				$satta = 1;
			}
			if ($name eq $MAIL2){
				$err[$p] = '追加希望Eメールアドレス(2) "'.$name.'" は既に登録済みメールと重複しているので使用できません。';
				$p++;
				$atta = 1;
				$satta = 2;
			}
			if ($name eq $MAIL3){
				$err[$p] = '追加希望Eメールアドレス(3) "'.$name.'" は既に登録済みメールと重複しているので使用できません。';
				$p++;
				$atta = 1;
				$satta = 3;
			}
		}
	}
	endpwent;

	# Eメールが登録しているか
	#if ($matta ne 1){
	#	$err[$p] = 'Eメールアドレスが違います。Eメールアドレスを確認してください。';
	#	$p++;
	#	$atta = 1;
	#}


	# 未登録メールアカウントとの比較
	#print "Content-type: text/html\n\n";
	#print"<HTML>\n";
	open(IN,"data/data.txt");
	$konma = ',';
	for ($i = 0;$i < 100000;$i++){
		$line = <IN>;
		if ($line eq ""){last;}
		if ((index($line,"$konma$MAIL1$konma") > 0 && $MAIL1 ne "" && $satta ne 1)){
			$err[$p] = '追加希望Eメールアドレス(1) "'.$MAIL1.'" は既に申請中メールと重複しているので使用できません。';
			$p++;
			$atta = 1;
			#print "*$konma$MAIL1$konma*<br>\n";
			last;
		}
		if ((index($line,"$konma$MAIL2$konma") > 0 && $MAIL2 ne "" && $satta ne 2)){
			$err[$p] = '追加希望Eメールアドレス(2) "'.$MAIL2.'" は既に申請中メールと重複しているので使用できません。';
			$p++;
			$atta = 1;
			last;
		}
		if ((index($line,"$konma$MAIL3$konma") > 0 && $MAIL3 ne "" && $satta ne 3)){
			$err[$p] = '追加希望Eメールアドレス(3) "'.$MAIL3.'" は既に申請中メールと重複しているので使用できません。';
			$p++;
			$atta = 1;
			last;
		}
	}
	close(IN);

	################ 申請メール内重複チェック ##################
	$MAIL[0] = $MAIL1;
	$MAIL[1] = $MAIL2;
	$MAIL[2] = $MAIL3;

	$end = 0;
	for ($i = 0;$i < 3;$i++){
		for ($j = 0;$j < 3;$j++){
			if ($i ne $j && $MAIL[$i] eq $MAIL[$j] && $MAIL[$i] ne "" && $MAIL[$j] ne ""){
				$err[$p] = '追加希望Eメールアドレス('.$i.') "'.$MAIL[$i].'" と追加希望Eメールアドレス('.$j.') "'.$MAIL[$j].'"は重複しています。';
				$p++;
				$atta = 1;
				$end = 1;
			}
			if ($end eq 1){last;}
		}
	}


	if ($atta ne 1){
		# 全角漢字以外はエラー、数字、記号もだめ
		$atta2 = 0;
		if (index(&syubetu'syubetu1($NAME),'記号') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($NAME),'数字') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($NAME),'半角') >= 0){$atta = 1;$atta2 = 1;}
		if ($atta2 eq 1){$err[$p] = 'お名前が正しく記入されていません。';$p++;}
	
		# 数字以外はエラー
		$atta2 = 0;
		if (index(&syubetu'syubetu1($STEL),'英') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($STEL),'カタカナ') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($STEL),'ひらがな') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($STEL),'記号') >= 0){$atta = 1;$atta2 = 1;}
		if (length($STEL) > 4 || length($STEL) < 2){$atta = 1;$atta2 = 1;}
		if (index(&syubetu'syubetu1($TEL),'英') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($TEL),'カタカナ') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($TEL),'ひらがな') >= 0){$atta = 1;$atta2 = 1;}
		elsif (index(&syubetu'syubetu1($TEL),'記号') >= 0){$atta = 1;$atta2 = 1;}
		if (length($TEL) > 8 || length($TEL) < 6){$atta = 1;$atta2 = 1;}
		if ($atta2 eq 1){$err[$p] = '自宅電話番号が正しく記入されていません。';$p++;}
	
		# 半角英小文字、"-" 記号以外はエラー
		if ($MAIL ne ""){
			$atta2 = 0;
			if (index(&syubetu'syubetu1($MAIL),'全角') >= 0){$atta = 1;$atta2 = 1;}
			elsif (index(&syubetu'syubetu1($MAIL),'カタカナ') >= 0){$atta = 1;$atta2 = 1;}
			elsif (index($MAIL,'@') < 0){$atta = 1;$atta2 = 1;}
			elsif (index($mail,'.') >= 0 || index($mail,':') >= 0){$atta = 1;$atta2 = 1;}
			if ($atta2 eq 1){$err[$p] = 'メールアドレスが正しく記入されていません。';$p++;}
		}

		# 半角英小文字、"-" 記号以外はエラー
		$atta2 = 0;

		for ($i = 0;$i < 3;$i++){
			if ($MAIL[$i] ne ""){
				if (index(&syubetu'syubetu1($MAIL[$i]),'全角') >= 0){$atta = 1;$atta2 = 1;}
				elsif (index(&syubetu'syubetu1($MAIL[$i]),'カタカナ') >= 0){$atta = 1;$atta2 = 1;}
				elsif (index(&syubetu'syubetu1(substr($MAIL[$i],0,1)),'数字') >= 0){$atta = 1;$atta2 = 1;}
				elsif (index(&syubetu'syubetu1($MAIL[$i]),'半角"@-"以外記号') >= 0){$atta = 1;$atta2 = 1;}
				elsif (index($MAIL[$i],'@') > 0){$atta = 1;$atta2 = 1;}
				elsif (index($MAIL[$i],'.') >= 0 || index($MAIL[$i],':') >= 0){$atta = 1;$atta2 = 1;}
				if (length($MAIL[$i]) > 8 || length($MAIL[$i]) < 2){$atta = 1;$atta2 = 1;}
				if ($atta2 eq 1){
					$j = $i + 1;
					$err[$p] = '追加希望Eメールアドレス('.$j.')が正しく記入されていません。';
					$p++;
					last;
				}
			}
		}
	}

	#print"j=$j";

	if ($atta eq 1){
		print "Content-type: text/html\n\n";
		print"<HTML>\n";
		print"<HEAD>\n";
		print'<TITLE>フォーム入力エラー</TITLE>'."\n";
		print"</HEAD>\n";
		print"\n";
		print"<BODY bgcolor=\"#e4f5fa\">\n";
		print"<CENTER>\n";
		print"<BR>\n";
		print"<FONT color=\"#ff0080\" size=\"+2\">\n";
		print"<B>\n";
		print'フォーム入力エラー'."<BR>\n";
		print"</B>\n";
		print"</FONT>\n";
		print"<HR size=\"10\">\n";
		print"<BR>\n";

		print"<TABLE>\n";
		print"<TR>\n";
		print"<TD>\n";
		print"<B>\n";
		print"<FONT color=\"#ff0080\" size=\"+1\">\n";
		for ($p = 0;$p < 5;$p++){
			if ($err[$p] eq ""){last;}
			print"$err[$p]<BR><BR>\n";
		}
		if ($err[$p] ne ""){print"その他にもエラー有り<BR>\n";}
		print"</FONT>\n";
		print"</B>\n";
		print"</TD>\n";
		print"</TR>\n";
		print"</TABLE>\n";
		print"<BR>\n";
		print"<BR>\n";
		print"<BR>\n";
		print"<B>\n";
		print"<FONT color=\"#000000\" size=\"+2\">\n";
		print"プラウザの[戻る]キーで戻ってフォーム内容を修正して下さい。\n";
		print"</FONT>\n";
		print"</B>\n";
		print"<BR>\n";
		print"<BR>\n";

		print"</CENTER>\n";


		print"<BR>\n";
		exit();
	}


	################ 申請メールナンバーの空きを埋める ##################
	for ($i = 0;$i < 3;$i++){
		if ($MAIL[$i] eq ""){
			for ($j = $i + 1;$j < 3;$j++){
				if ($MAIL[$j] ne ""){
					$MAIL[$i] = $MAIL[$j];
					$MAIL[$j] = "";
					last;
				}
			}
			if ($j eq 3){last;}
		}
	}
	$MAIL1 = $MAIL[0];
	$MAIL2 = $MAIL[1];
	$MAIL3 = $MAIL[2];

	print "Content-type: text/html\n\n";
	print"<HTML>\n";
	print"<HEAD>\n";
	print'<TITLE>ネットクルーズ会員メールアドレス追加申込み内容確認</TITLE>'."\n";
	print"</HEAD>\n";
	print"\n";
	print"<BODY bgcolor=\"#cacad9\">\n";
	print"\n";


	print"<FORM action=\"mailadd.cgi\" method=\"POST\">\n";
	print"<CENTER>\n";
	print"<TABLE width=\"681\" cellpadding=\"15\">\n";
	print"<TR>\n";
	print"<TD align=\"center\" bgcolor=\"#e4f5fa\">\n";
	print"<CENTER>\n";
	print"\n";
	print"<TABLE width=\"621\">\n";
	print"\n";
	print"<TR>\n";
	print"<TD align=\"center\" valign=\"middle\" height=\"27\" bgcolor=\"#440097\">\n";
	print"<FONT size=\"+2\" color=\"#ffffff\">\n";
	print"<B>\n";
	print'ネットクルーズ会員メールアドレス追加申込み内容確認'."\n";
	print"</B>\n";
	print"</FONT>\n";
	print"</TD>\n";
	print"</TR>\n";
	print"\n";
	print"<TR>\n";
	print"<TD valign=\"top\">\n";
	print"<TABLE width=\"609\" border=\"3\">\n";
	print"<TR>\n";
	print"<TD align=\"center\" bgcolor=\"#bae3f3\">お名前</TD>\n";
	print"<TD bgcolor=\"#ddf8fb\">\n";
	if ($NAME ne ""){
		print"<B>\n";
		print $NAME;
		print"</B>\n";
	}
	else{
		print" ";
	}
	print"</TD>\n";
	print"</TR>\n";
	print"\n";
	print"<TR>\n";
	print"<TD align=\"center\" bgcolor=\"#bae3f3\">電話番号</TD>\n";
	print"<TD colspan=\"2\" bgcolor=\"#ddf8fb\">\n";
	if ($STEL ne "" || $TEL ne ""){
		print"<B>\n";
		print"$STEL-$TEL";
		print"</B>\n";
	}
	else{
		print" ";
	}
	print"</TD>\n";
	print"</TR>\n";
	print"<TR>\n";
	print"<TD align=\"center\" bgcolor=\"#bae3f3\">メールアドレス</TD>\n";
	print"<TD bgcolor=\"#ddf8fb\">\n";
	if ($MAIL ne ""){
		print"<B>\n";
		print $MAIL."\n";
		print"</B>\n";
	}
	else{
		print" ";
	}
	print"</TD>\n";
	print"</TR>\n";
	print"</TABLE>\n";
	print"<BR>\n";
	print"<TABLE width=\"609\" border=\"3\">\n";
	if ($MAIL1 ne ""){
		print"<TR>\n";
		print"<TD align=\"center\" bgcolor=\"#bae3f3\">追加希望Eメールアドレス(1)</TD>\n";
		print"<TD bgcolor=\"#ddf8fb\">\n";
		print"<B>\n";
		print $MAIL1;
		print"</B>\n";
		print"</TD>\n";
		print"</TR>\n";
	}
	if ($MAIL2 ne ""){
		print"<TR>\n";
		print"<TD align=\"center\" bgcolor=\"#bae3f3\">追加希望Eメールアドレス(2)</TD>\n";
		print"<TD bgcolor=\"#ddf8fb\">\n";
		print"<B>\n";
		print $MAIL2;
		print"</B>\n";
		print"</TD>\n";
		print"</TR>\n";
	}
	if ($MAIL3 ne ""){
		print"<TR>\n";
		print"<TD align=\"center\" bgcolor=\"#bae3f3\">追加希望Eメールアドレス(3)</TD>\n";
		print"<TD bgcolor=\"#ddf8fb\">\n";
		print"<B>\n";
		print $MAIL3;
		print"</B>\n";
		print"</TD>\n";
		print"</TR>\n";
	}
	print"</TABLE>\n";

	print"\n";
	print"</TD>\n";
	print"</TR>\n";
	print"</TABLE>\n";
	print"\n";
	
	print"</TD>\n";
	print"</TR>\n";
	print"</TABLE>\n";
	print"\n";
	print"<BR>\n";
	print"<BR>\n";
	
	print"<INPUT type=\"hidden\" name=\"NAME\" value=\"$NAME\">\n";
	print"<INPUT type=\"hidden\" name=\"STEL\" value=\"$STEL\">\n";
	print"<INPUT type=\"hidden\" name=\"TEL\" value=\"$TEL\">\n";
	print"<INPUT type=\"hidden\" name=\"MAIL\" value=\"$MAIL\">\n";
	print"<INPUT type=\"hidden\" name=\"MAIL1\" value=\"$MAIL1\">\n";
	print"<INPUT type=\"hidden\" name=\"MAIL2\" value=\"$MAIL2\">\n";
	print"<INPUT type=\"hidden\" name=\"MAIL3\" value=\"$MAIL3\">\n";
	print"<INPUT type=\"hidden\" name=\"YEN\" value=\"$YEN\">\n";


	print"<TABLE>\n";
	print"<TR>\n";
	print"<TD>\n";
	print"<FONT size=\"+1\">\n";
	print"<INPUT name=\"KAKUTEI2\" type=\"submit\" value=\"確定\">\n";
	print"</FONT>\n";
	print"</TD>\n";

	print"</FORM>\n";
	print"<FORM action=\"$return\" target=\"_top\">\n";

	print"<TD>\n";
	print"<FONT size=\"+1\">\n";
	print"<INPUT name=\"KAKUTEI2\" type=\"submit\" value=\"TOPへ戻る\">\n";
	print"</FONT>\n";
	print"</TD>\n";
	print"</TR>\n";
	print"</TABLE>\n";
	
	print"</FORM>\n";

	print"<BR>\n";
	print"<BR>\n";
	
	print"</CENTER>\n";
	print"</TD>\n";
	print"</TR>\n";
	print"</TABLE>\n";
	print"\n";
	print"</CENTER>\n";
	print"<BR>\n";
	
	print"<BR>\n";
	print"</BODY>\n";
	print"</HTML>\n";
	exit();
}






print "Content-type: text/html\n\n";
print"<HTML>\n";
print"<HEAD>\n";
print'<TITLE>ネットクルーズ会員メールアドレス追加申込み</TITLE>'."\n";

print'<SCRIPT LANGUAGE="JavaScript">'."\n";
print'function comp(name){'."\n";

print'i=0'."\n";
print'if (name.MAIL1.value!=""){'."\n";
print'i=i+200'."\n";
print'}'."\n";
print'if (name.MAIL2.value!=""){'."\n";
print'i=i+200'."\n";
print'}'."\n";
print'if (name.MAIL3.value!=""){'."\n";
print'i=i+200'."\n";
print'}'."\n";
print'name.YEN.value=i'."\n";
print'}'."\n";
print'</SCRIPT>'."\n";

print"</HEAD>\n";
print"\n";
print"<BODY bgcolor=\"#cacad9\">\n";
print"\n";


print"<CENTER>\n";

print"<FORM action=\"mailadd.cgi\" method=\"POST\">\n";

print"<TABLE cellpadding=\"15\" width=\"700\">\n";
print"<TR>\n";
print"<TD align=\"center\" bgcolor=\"#e4f5fa\">\n";
print"<CENTER>\n";
print"\n";
print"<TABLE>\n";
print"\n";
print"<TR>\n";
print"<TD align=\"center\" valign=\"middle\" height=\"27\" bgcolor=\"#440097\">\n";
print"<FONT size=\"+2\" color=\"#ffffff\">\n";
print"<B>\n";
print'ネットクルーズ会員メールアドレス追加申込み'."\n";
print"</B>\n";
print"</FONT>\n";
print"</TD>\n";
print"</TR>\n";
print"\n";
print"<TR>\n";
print"<TD>\n";
print"<BR>\n";
print"<B>\n";
print"<FONT color=\"#000000\" size=\"+1\">\n";
print"<TT>\n";
print'●既にネットクルーズのメールアドレスをお持ちのお客様で、メールアドレスの追加をご希望される方はこのフォームでお申し込み下さい。<BR>'."\n";
print'確認後、新しいメールIDとパスワードを発行し、書類にて郵送いたします。<BR>'."\n";
print"</TT>\n";
print"</FONT>\n";
print"</B>\n";
print"<BR>\n";
print"</TD>\n";
print"</TR>\n";

print"<TR>\n";
print"<TD valign=\"middle\" height=\"20\" bgcolor=\"#440097\">\n";
print"<B>\n";
print"<FONT color=\"#ffffff\">\n";
print' お申込内容記入欄'."\n";
print"</FONT>\n";
print"</B>\n";
print"</TD>\n";
print"</TR>\n";
print"\n";
print"<TR>\n";
print"<TD valign=\"top\" align=\"center\">\n";
print"<TABLE width=\"620\" border=\"3\">\n";
print"<TR>\n";
print"<TD align=\"center\" bgcolor=\"#bae3f3\"><B>お名前</B>(必須入力)<BR></TD>\n";
print"<TD bgcolor=\"#ddf8fb\">\n";
print"<INPUT name=\"NAME\" size=\"20\">\n";
print"</TD>\n";
print"</TR>\n";
print"\n";
print"<TR>\n";
print"<TD align=\"center\" bgcolor=\"#bae3f3\"><B>自宅電話番号</B>(必須入力)<BR></TD>\n";
print"<TD colspan=\"2\" bgcolor=\"#ddf8fb\">\n";
print"市外局番<INPUT name=\"STEL\" size=\"5\">-<INPUT name=\"TEL\" size=\"20\">\n";
print"</TD>\n";
print"</TR>\n";
print"<TR>\n";
print"<TD align=\"center\" bgcolor=\"#bae3f3\"><B>連絡先メールアドレス</B></TD>\n";
print"<TD bgcolor=\"#ddf8fb\">\n";
print"<INPUT name=\"MAIL\" size=\"30\">\n";
print"</TD>\n";
print"</TR>\n";
print"</TABLE>\n";
print"<BR>\n";


print"<TR>\n";
print"<TD valign=\"middle\" height=\"20\" bgcolor=\"#440097\">\n";
print"<B>\n";
print"<FONT color=\"#ffffff\">\n";
print' 追加するメールアドレス 1メールアドレスにつき月額200円です。'."\n";
print"</FONT>\n";
print"</B>\n";
print"</TD>\n";
print"</TR>\n";
print"\n";
print"<TR>\n";
print"<TD valign=\"top\" align=\"center\">\n";

print"<TABLE width=\"620\" border=\"3\">\n";
print"<TR>\n";
print"<TD align=\"center\" bgcolor=\"#bae3f3\"><B>追加希望Eメールアドレス(1)</B><BR></TD>\n";
print"<TD bgcolor=\"#ddf8fb\">\n";
print"<INPUT name=\"MAIL1\" size=\"10\" onChange=\"comp(this.form)\">";
print'@netcruise.co.jp'."\n";
print"</TD>\n";
print"</TR>\n";
print"<TR>\n";
print"<TD align=\"center\" bgcolor=\"#bae3f3\"><B>追加希望Eメールアドレス(2)</B><BR></TD>\n";
print"<TD bgcolor=\"#ddf8fb\">\n";
print"<INPUT name=\"MAIL2\" size=\"10\" onChange=\"comp(this.form)\">";
print'@netcruise.co.jp'."\n";
print"</TD>\n";
print"</TR>\n";
print"<TR>\n";
print"<TD align=\"center\" bgcolor=\"#bae3f3\"><B>追加希望Eメールアドレス(3)</B><BR></TD>\n";
print"<TD bgcolor=\"#ddf8fb\">\n";
print"<INPUT name=\"MAIL3\" size=\"10\" onChange=\"comp(this.form)\">";
print'@netcruise.co.jp'."\n";
print"</TD>\n";
print"</TR>\n";
print"</TABLE>\n";

print"<BR>\n";
print"使用料(月額)<INPUT name=\"YEN\" size=\"6\" value=\"0\" onChange=\"comp(this.form)\">円";
print"<BR>\n";
print"<TABLE>\n";
print"<TR>\n";
print"<TD>\n";
print"<TT>\n";
print'※半角英数で入力してください。文字数は3文字以上8文字以下の、英字(小文字)、'."<BR>\n";
print'「-」(ハイフン)は使えますが、「.」(ピリオド)、「:」(コロン)は、使用できません。'."<BR>\n";
print'例えば、tanakaとかsaitooとかにします。'."<BR>\n";
print"<BR>\n";
print'※3つ以上のメールアドレスを取得したい場合は、再度このフォームにてお申し込み下さい。'."<BR>\n";
print"</TT>\n";

print"</TD>\n";
print"</TR>\n";
print"</TABLE>\n";

print"</TD>\n";
print"</TR>\n";
print"</TABLE>\n";
print"\n";

print"</TD>\n";
print"</TR>\n";
print"</TABLE>\n";
print"\n";
print"<BR>\n";

print"<TABLE>\n";
print"<TR>\n";
print"<TD>\n";
print"<FONT size=\"+1\">\n";
print"<INPUT name=\"KAKUTEI\" type=\"submit\" value=\"確定\">\n";
print"</FONT>\n";
print"</TD>\n";

print"</FORM>\n";
print"<FORM action=\"$return\" target=\"_top\">\n";

print"<TD>\n";
print"<FONT size=\"+1\">\n";
print"<INPUT name=\"KAKUTEI\" type=\"submit\" value=\"TOPへ戻る\">\n";
print"</FONT>\n";
print"</TD>\n";
print"</TR>\n";
print"</TABLE>\n";

print"</FORM>\n";



print"<BR>\n";
print"<BR>\n";

print"</CENTER>\n";
print"</TD>\n";
print"</TR>\n";
print"</TABLE>\n";
print"\n";
print"</CENTER>\n";


print"<BR>\n";
print"<BR>\n";
print"<BR>\n";
print"</BODY>\n";
print"</HTML>\n";
exit();


sub make_message{

	local($TO_EMAIL,$EMAIL,$BUN) = @_;

	$sendmail = `which sendmail`;
	chop($sendmail);

	if (index($sendmail,'/sendmail') < 0){
		$sendmail = `which mail`;
		chop($sendmail);
	}



	$message = '';
	$message = $message . "From:$EMAIL\n";
	$message = $message . "To:$TO_EMAIL\n";
	$message = $message . 'Subject:ネットクルーズメールアドレス追加申し込みフォームよりの通知'."\n";
	#$message = $message . 'Name:wooman.jpg'."\n";
	#$message = $message . "Type:JPEG Image (image/jpeg)\n";
	#$message = $message . "Encoding:base64\n";


	$message = $message . $BUN;
	$message = $message . "\n";
	$message = $message . "<入力内容>\n";
	$message = $message . 'メールアドレス追加申込み'."\n";
	$message = $message . "お名前:$NAME\n";
	$message = $message . "電話番号:$STEL-$TEL\n";
	$message = $message . "メールアドレス:$MAIL\n";
	$message = $message . "\n";
	$message = $message . "<追加希望メール名>\n";
	if ($MAIL1 ne ""){
		$message = $message . "メール1:$MAIL1\n";
	}
	if ($MAIL2 ne ""){
		$message = $message . "メール2:$MAIL2\n";
	}
	if ($MAIL3 ne ""){
		$message = $message . "メール3:$MAIL3\n";
	}
	if ($YEN ne ""){
		$message = $message . "\n";
		$message = $message . "<追加分メール使用料(月)>\n";
		$message = $message . "$YEN円\n";
	}


	#print "sendmail=$sendmail<BR>\n";
	&jcode'convert(*message,'jis');
	$err = "";
	$err = open (MAIL,"|$sendmail $TO_EMAIL");
	print MAIL $message;
	close (MAIL);
	return $err;
}