#!/usr/local/bin/perl
require './jcode.pl';
##    以上はシステム環境に合わせて変更
## -------------------------------------------------------------------
$MKNAME  = 'MINO Mail Ver.1.0';
$MKURL   = 'http://www.m-hokko.com/';
## -------------------------------------------------------------------
## このスクリプトはフリーソフトです。このスクリプトを使用したいかなる
## 損害も作者はその責を負いません。
## このスクリプトに関する、ご質問、ご要望は、http://www.mino.net/cgi/ へ
## -------------------------------------------------------------------
## --- 基本設定 任意に修正 [*]項目は任意 省略する場合""
## -------------------------------------------------------------------
$CGIFILE  = './minomail.cgi';				# このファイル
$TITLE    = '�潟}シナリーホッコーです';	# タイトル
$TO_MAIL  = 'm-hokko@m-hokko.com';				# 送信メールアドレス
$MAILCMD  = '/usr/sbin/sendmail -t';		# メール送信コマンド
$MAILCHK  = 'ON';							# メールチェック有／無
$BACK_GIF = '';								# 背景画像[*]
$BACK_COL = '#ffffff';						# 背景色
$TEXT_COL = '#660000';						# テキスト色
## --- 基本設定 終了

## -------------------------------------------------------------------
## 引数を取得・解釈
## -------------------------------------------------------------------
if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $form, $ENV{'CONTENT_LENGTH'});
} else { 
    $form = $ENV{'QUERY_STRING'}; 
}
@para = split(/&/,$form);
foreach $pair (@para) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/</＜/g;						#　HTMLタグ禁止
	$value =~ s/>/＞/g;						#　HTMLタグ禁止
	&jcode'convert(*value, 'sjis');
	$FORM{$name} = $value;
}
$ACT  = $FORM{'Act'};
$NAME = $FORM{'Name'};
$MAIL = $FORM{'Mail'};
$SUBJ = $FORM{'Subject'};
$CMT  = $FORM{'Comment'};
$MSG = "";
## -------------------------------------------------------------------
## 処理別に分ける
## -------------------------------------------------------------------
&HtmlStart;
if ($ACT eq ''){ &InputComment; }
elsif ($ACT eq '送信') { &ConfComment; }
elsif ($ACT eq 'ＯＫ') { &SendComment; }
else { $MSG = '現在その機能は使えません。あしからず。'; }
&HtmlEnd;
exit;

## -------------------------------------------------------------------
## 内容入力サブルーチン
## -------------------------------------------------------------------
sub InputComment {
	print "<br><br><font size=+1><u><b>$TITLE宜しくお願いします。</b></u></font><br><br>\n";
	print "貴方のお名前、メールアドレス、題名、内容を入力の上、送信ボタンをクリックして下さい。<br>\n";
	print "<font color=\"#FF0000\">文字化けしますので半角カタカナは使わないで下さい。</font><br><br>\n";
	print "<form method=\"POST\" action=\"$CGIFILE\">\n";
	print "<table border=2>\n";
	print "<tr><td>お名前</td><td>\n";
	print "<input type=\"text\" name=\"Name\" size=40 maxlength=40 value=\"\">\n";
	print "</td></tr><tr><td>メールアドレス</td><td>\n";
	print "<input type=\"text\" name=\"Mail\" size=40 maxlength=64 value=\"\">\n";
	print "</td></tr><tr><td>題名</td><td>\n";
	print "<input type=\"text\" name=\"Subject\" size=40 maxlength=64 value=\"\">\n";
	print "</td></tr><tr><td colspan=2 align=center>内容\n";
	print "</td></tr><tr><td colspan=2>\n";
	print "<textarea name=\"Comment\" rows=10 cols=60 wrap=\"off\"></textarea>\n";
	print "</td></tr>\n";
	print "</table><br><input type=\"submit\" name=\"Act\" value=\"送信\">\n";
	print "<font size=-1>JavaScriptを有効にして下さい。</font></form>\n";
	return;
}
## -------------------------------------------------------------------
## 内容確認サブルーチン
## -------------------------------------------------------------------
sub ConfComment {
	# 入力内容チェック
	if ($NAME eq '') {$MSG = 'お名前が入力されていません。';return;}
	if ($MAILCHK eq 'ON' && $MAIL eq '' ) {
		$MSG = 'メールアドレスが入力されていません。';
		return;
	}
	if ($MAIL ne '') {
		if ($MAIL !~ /^[\.!#%&\-_0-9a-z]+\@[!#%&\-_0-9a-z]+(\.[!#%&\-_0-9a-z]+)+$/i)
		{
			$MSG = 'メールアドレスのフォーマットが正しくありません。';
			return;
		}
	}
	if ($SUBJ eq '') {$MSG = '題名が入力されていません。';return;}
	if ($CMT eq '') {$MSG = '内容が入力されていません。';return;}
	if ($CMT =~ /\./ ) {$MSG = '内容に.を入れることは出来ません。';return;}

	# 入力内容表示
	print "<br><br><font size=+1><u><b>以下の$TITLEを送信します。</b></u></font><br><br>\n";
	print "<form method=\"POST\" action=\"$CGIFILE\">\n";
	print "<input type=\"hidden\" name=\"Name\" value=\"$NAME\">\n";
	print "<input type=\"hidden\" name=\"Mail\" value=\"$MAIL\">\n";
	print "<input type=\"hidden\" name=\"Subject\" value=\"$SUBJ\">\n";
	print "<input type=\"hidden\" name=\"Comment\" value=\"$CMT\">\n";
	print "<table border=2>\n";
	print "<tr><td>お名前　　　　：$NAME</td></tr>\n";
	print "<tr><td>メールアドレス：$MAIL</td></tr>\n";
	print "<tr><td>題名　　　　　：$SUBJ</td></tr>\n";
	print "<tr><td><pre>$CMT</pre></td></tr>\n";
	print "</table>以上の通りです。よろしいですか？ \n";
	print "<input type=\"submit\" name=\"Act\" value=\"ＯＫ\">\n";
	print "<input type=\"button\" onClick=\"history.back()\" value=\"やり直し\"></form>\n";
}
## -------------------------------------------------------------------
## 内容送信サブルーチン
## -------------------------------------------------------------------
sub SendComment {
	# 入力内容チェック
	if ($NAME eq '') {$MSG = 'お名前が入力されていません。';return;}
	if ($MAILCHK eq 'ON' && $MAIL eq '' ) {
		$MSG = 'メールアドレスが入力されていません。';
		return;
	}
	if ($MAIL ne '') {
		if ($MAIL !~ /^[\.!#%&\-_0-9a-z]+\@[!#%&\-_0-9a-z]+(\.[!#%&\-_0-9a-z]+)+$/i)
		{
			$MSG = 'メールアドレスのフォーマットが正しくありません。';
			return;
		}
	}
	if ($SUBJ eq '') {$MSG = '題名が入力されていません。';return;}
	if ($CMT eq '') {$MSG = '内容が入力されていません。';return;}
	&MailSend;
	return;
}
## -------------------------------------------------------------------
## HTMLヘッダー表示
## -------------------------------------------------------------------
sub HtmlStart {
	print "Content-type: text/html\n\n";
	print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=Shift_JIS\">\n";
	print "<html><head><title>$TITLE</title></head>\n";
	if ( $BACK_GIF ne '' ) { print "<body background=\"$BACK_GIF\" text=\"$TEXT_COL\">\n"; }
	else { print "<body bgcolor=\"$BACK_COL\" text=\"$TEXT_COL\">\n"; }
	print "<script language=\"JavaScript\">\n";
	print "<!---\n";
	print "window.open(\"\",\"_self\",\"location=0,directories=0,status=1,scrollbars=1,menubar=0,toolbar=0,resizable=1\");\n";
	print "// -->\n";
	print "</script>\n";
	return;
}    
## -------------------------------------------------------------------
## HTMLフッター表示
## -------------------------------------------------------------------
sub HtmlEnd {
	print "<form method=\"POST\" action=\"$CGIFILE\"><hr>\n";
	if ( $MSG ne "" ) {
		print "<br><br><h3><font color=\"#ff0000\">$MSG</font></h3>\n";
		print "<input type=\"button\" onClick=\"history.back()\" value=\"戻る\">\n";
	}
	print "<input type=\"button\" onClick=\"window.close()\" value=\"終了\">\n";
	print "<a href=\"$MKURL\" target=\"_blank\">$MKNAME</a>\n";
	print "</form></body></html>\n";
	exit;
}
## -------------------------------------------------------------------
## メール送信
## -------------------------------------------------------------------
sub MailSend {
	$SUBJECT = &Base64Encode( $TITLE );
	if ( $MAIL eq '' ) { $MAIL = $TO_MAIL; }
	$mail_mess = <<EndOfMail;
From: $MAIL
To : $TO_MAIL
Subject: $SUBJECT
Errors-To: $TO_MAIL
X-WebSite: $MKURL
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-2022-JP"
X-Mailer: $MKNAME


$TITLEを受け取りましたので送付致します。

名          前：$NAME
メールアドレス：$MAIL
題          名：$SUBJ
内          容：
--------------------------------------------------------------
$CMT
--------------------------------------------------------------
REMOTE_ADDR    : $ENV{'REMOTE_ADDR'}
REMOTE_HOST    : $ENV{'REMOTE_HOST'}
HTTP_USER_AGENT: $ENV{'HTTP_USER_AGENT'}
--------------------------------------------------------------
以上です。
EndOfMail
	&jcode'convert(*mail_mess,'jis');
	if( open( SENDMAIL, "| $MAILCMD" )){
		print SENDMAIL $mail_mess;
		close (SENDMAIL);
		$MSG = 'ありがとうございました。';
	} else {
		$MSG = '送信に失敗しました。管理者までお問い合わせ下さい。';
	}
	print "<script language=\"JavaScript\">\n";
	print "<!---\n";
	print "alert(\"$MSG\");\n";
	print "window.close();\n";
	print "// -->\n";
	print "</script>\n";
	return;
}
## -------------------------------------------------------------------
## Base64エンコード
## -------------------------------------------------------------------
sub Base64Encode {
	local($target) = @_;
	local($base) = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
					. "abcdefghijklmnopqrstuvwxyz"
					. "0123456789+/";
	local($xx, $yy,$zz, $i);

	&jcode'convert(*target, "jis");
	$xx = unpack("B*", $target);
	for ($i = 0; $yy = substr($xx, $i, 6); $i += 6) {
		$zz .= substr($base, ord(pack("B*", "00" . $yy)), 1);
		if (length($yy) == 2) { $zz .= "=="; }
		elsif (length($yy) == 4) { $zz .= "="; }
	}
	return("=?iso-2022-jp?B?$zz?=");
}