#!/usr/bin/perl

sub main {

	if ($value{'mode'} eq "regist") { &regist; }
	elsif ($value{'mode'} eq "check") { &check; }
	else { &init; }

}

# ------------------------------------------------------------------------------

sub init {

	$value{'sid'} =~ s/ //g;
	$value{'sid'} =~ s/　//g;
	if ($value{'sid'} ne "") {
		$mmstfile = $file . '/mmst.cgi';
		if (!open(MMST,"$mmstfile")) { &error("ファイルが開けませんでした。mmstfile","管理者までご連絡ください。"); }
		@mmst = <MMST>;
		close(MMST);
		$f = 0;
		foreach $mmst (@mmst) {
			$mmst =~ s/\n//g;
			&mmst_split;
			if ($mm_mid eq $value{'sid'}) { $f = 1; last; }
		}
		if (!$f) { $value{'sid'} = ""; }
		else {
			$up = qq(紹介者ＩＤ:$value{'sid'}<br>);
		}
	}

	&header("資料請求");

	$html  .= qq(
<form method="post" action="$script02">
<input type=hidden name="mode" value="check">
<input type=hidden name="sid" value="$value{'sid'}">
◆お名前<br>
<input type=text name="name" value="" size=20><br>
◆メールアドレス<br>
<input type=text name="mail" value="" size=20$styl2><br>
$up
<br>
<input type=submit value="確認画面へ">
<br>
</form>
);

	&footer;

}

# ------------------------------------------------------------------------------

sub check {

	$mmstfile = $file . '/mmst.cgi';
	if (!open(MMST,"$mmstfile")) { &error("ファイルが開けませんでした。$mmstfile","管理者までご連絡ください。"); }
	@mmst = <MMST>;
	close(MMST);

	$value{'sid'} =~ s/ //g;
	$value{'sid'} =~ s/　//g;
	if ($value{'sid'} ne "") {
		$f = 0;
		foreach $mmst (@mmst) {
			$mmst =~ s/\n//g;
			&mmst_split;
			if ($mm_mid eq $value{'sid'}) { $f = 1; last; }
		}
		if (!$f) { $value{'sid'} = ""; }
		else {
			$up = qq(紹介者ＩＤ:$value{'sid'}<br>);
		}
	}

	if (!$value{'name'}) { &error("入力がありません","お名前"); }
	if (!$value{'mail'}) { &error("入力がありません","メールアドレス"); }
	elsif ($value{'mail'} !~ /^[\w.-]+\@([\w-]+\.)+\w+$/) { &error("メールアドレスエラー","メールアドレスを半角英数字と-_.\@で入力してください。"); }

	&header("資料請求");

	$html  .= qq(
<form method="post" action="$script02">
<input type=hidden name="mode" value="regist">
<input type=hidden name="sid" value="$value{'sid'}">
◆お名前<br>
$value{'name'}<br>
<input type=hidden name="name" value="$value{'name'}">
◆メールアドレス<br>
$value{'mail'}<br>
<input type=hidden name="mail" value="$value{'mail'}">
$up
<br>
<input type=submit value="　送　信　">
</form>
);

	&footer;

}

# ------------------------------------------------------------------------------

sub regist {

	$mmstfile = $file . '/mmst.cgi';
	if (!open(MMST,"$mmstfile")) { &error("ファイルが開けませんでした。mmstfile","管理者までご連絡ください。"); }
	@mmst = <MMST>;
	close(MMST);

	$value{'sid'} =~ s/ //g;
	$value{'sid'} =~ s/　//g;
	if ($value{'sid'} ne "") {
		$f = 0;
		foreach $mmst (@mmst) {
			$mmst =~ s/\n//g;
			&mmst_split;
			if ($mm_mid eq $value{'sid'}) { $f = 1; last; }
		}
		if (!$f) { $value{'sid'} = ""; }
	}

	if (!$value{'name'}) { &error("入力がありません","お名前"); }
	if (!$value{'mail'}) { &error("入力がありません","メールアドレス"); }
	elsif ($value{'mail'} !~ /^[\w.-]+\@([\w-]+\.)+\w+$/) { &error("メールアドレスエラー","メールアドレスを半角英数字と-_.\@で入力してください。"); }

	&sendmail1;

	&header("資料請求");

	$html  .= qq(
資料請求受け付けました
<br>
<br>
メールを送信しましたのでメールボックスをご確認ください
<br>
（プロバイダによってメールが到着するまで３分から１５分かかります）
);

	&footer;

}

# ------------------------------------------------------------------------------

sub sendmail1 {

	$entry = "$script01\?sid=$value{'sid'}";

	$mr_head0 =~ s/<br>/\n/g;
	$mr_head0 =~ s/\%name/$value{'name'}/g;
	$mr_head0 =~ s/\%url/$entry/g;
	$mr_foot0 =~ s/<br>/\n/g;
	$mr_foot0 =~ s/\%name/$value{'name'}/g;
	$mr_foot0 =~ s/\%url/$entry/g;

	$subject = $mr_sub0;
	$from = mimeencode(jcode'jis($mr_mail0));
	$to = mimeencode(jcode'jis($mr_mail0));

	if (!open(OUT,"| $sendmail -t")) { &error('システム異常','申し訳ありませんが何らかの原因で処理できません.'); }
	print OUT "X-MSMail-priority: High\n";
	print OUT "X-Mailer: Microsoft Outlook Express 6.00.2720.3000\n";
	print OUT "X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2600.0000\n";
	print OUT "To: $value{'mail'}\n";
	print OUT "From: $from\n";
	&jis("Subject: $subject"); print OUT "$msg\n";
	print OUT "Content-Transfer-Encoding: 7bit\n";
	print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";

	&jis("$mr_head0"); print OUT "$msg\n";

	$mailstr = "$bar
お名前：$value{'name'}
メールアドレス：$value{'mail'}$mid
$bar";

	&jis("$mailstr"); print OUT "$msg\n";

	&jis("$mr_foot0"); print OUT "$msg\n";

	print OUT "\n";
	close(OUT);

	$subject = "$mr_sub0【管理者コピー】";

	if (!open(OUT,"| $sendmail -t")) { &error('システム異常','申し訳ありませんが何らかの原因で処理できません.'); }
	print OUT "X-MSMail-priority: High\n";
	print OUT "X-Mailer: Microsoft Outlook Express 6.00.2720.3000\n";
	print OUT "X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.2600.0000\n";
	print OUT "To: $to\n";
	print OUT "From: $from\n";
	&jis("Subject: $subject"); print OUT "$msg\n";
	print OUT "Content-Transfer-Encoding: 7bit\n";
	print OUT "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";

	&jis("$mr_head0"); print OUT "$msg\n";

	&jis("$mailstr"); print OUT "$msg\n";

	&jis("$mr_foot0"); print OUT "$msg\n";

	print OUT "\n";
	close(OUT);

}
1;
