#!/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(
	<tr>
		<td align=center colspan=2 bgcolor="#ffffff">
			<b>紹介者ＩＤ：$value{'sid'}</b>
		</td>
	</tr>
);
		}
	}

	&header("資料請求");

	$html  .= qq(
<form method="post" action="$script02">
<input type=hidden name="mode" value="check">
<input type=hidden name="sid" value="$value{'sid'}">
<table border="0" cellpadding="5" cellspacing="1" bgcolor="#000000">
	<tr>
		<td align=left valign=top bgcolor="#f0f0ff" width=140>
			<b>お名前</b>
		</td>
		<td valign=middle bgcolor="#ffffff" width=240>
			<input type=text name="name" value="" size=20>
		</td>
	</tr>
	<tr>
		<td align=left valign=top bgcolor="#f0f0ff">
			<b>メールアドレス</b>
		</td>
		<td valign=middle bgcolor="#ffffff">
			<input type=text name="mail" value="" size=50>
		</td>
	</tr>
$up
	<tr>
		<td colspan=2 align=center valign=middle bgcolor="#ffffff">
			<input type=submit value="確認画面へ">
		</td>
	</tr>
</table>
</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(
	<tr>
		<td align=center colspan=2 bgcolor="#ffffff">
			<b>紹介者ＩＤ：$value{'sid'}</b>
		</td>
	</tr>
);
		}
	}

	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'}">
<table border="0" cellpadding="5" cellspacing="1" bgcolor="#000000">
	<tr>
		<td align=left valign=top bgcolor="#f0f0ff" width=140>
			<b>お名前</b>
		</td>
		<td valign=middle bgcolor="#ffffff" width=240>
			<FONT color="#000000">$value{'name'}</FONT>
			<input type=hidden name="name" value="$value{'name'}">
		</td>
	</tr>
	<tr>
		<td align=left valign=top bgcolor="#f0f0ff">
			<b>メールアドレス</b>
		</td>
		<td valign=middle bgcolor="#ffffff">
			<FONT color="#000000">$value{'mail'}</FONT>
			<input type=hidden name="mail" value="$value{'mail'}">
		</td>
	</tr>
$up
	<tr>
		<td colspan=2 align=center valign=top bgcolor="#ffffff">
			<input type=submit value="　送　信　">
		</td>
	</tr>
</table>
</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(
<center>
<h4><FONT color="#0080C0"><u>資料請求受け付けました</u></FONT></h4>
メールを送信しましたのでメールボックスをご確認ください
<BR>
<FONT color="#0000a0">（プロバイダによってメールが到着するまで３分から１５分かかります）</FONT>
</center>

);

	&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;
