#!/usr/bin/perl

sub main {

	if ($value{'mode'} eq "sendpass") { &sendpass; }
	else { &init; }

}

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

sub init {

	&header;

	$html  .= qq(<br>ＩＤ／パスワード再発行
<br>
（お申\し込み時のメールアドレスを入力してください）
<form method="post" action="./reissue.cgi">
<input type=hidden name="mode" value="sendpass">
<input type=text name="mail" value="" size=20>
<br>
<br>
<input type=submit value="　再　発　行　">
</form>
);

	&footer;

}

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

sub sendpass {

	if (!open(MMST,"$mmstfile")) { &error("ファイルが開けませんでした。mmstfile","管理者までご連絡ください。"); }
	@mmst = <MMST>;
	close(MMST);
	$f = 0;
	foreach $mmst (@mmst) {
		$mmst =~ s/\n//g;
		&mmst_split;
		if ($value{'mail'} eq $mm_mail) { $f = 1; last; }
	}
	if (!$f) { &error("メールアドレスエラー","登録がありません（$value{'mail'}）"); }

	$mr_head2 =~ s/<br>/\n/g;
	$mr_head2 =~ s/\%name/$mm_name/g;
	$mr_foot2 =~ s/<br>/\n/g;
	$mr_foot2 =~ s/\%name/$mm_name/g;

	$subject = "$mr_sub2";
	$from = mimeencode(jcode'jis($mr_mail2));

	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: $mm_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_head2"); print OUT "$msg\n";

	$mailstr = "$bar
■会員ページ
$script12\?mid=$mm_mid\&pass=$mm_pass
ＩＤ：$mm_mid
パスワード：$mm_pass
$bar";

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

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

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

	&header;

	$html  .= qq(<br>ＩＤ／パスワード再発行
<br>
<br>
ＩＤ／パスワードをメールにて送信しました
<br>
メールボックスをご確認ください
<br>
（プロバイダによってメールが到着するまで３分から１５分かかります）
<br>
);

	&footer;

}
1;
