#!/usr/local/bin/perl
#      ↑ここにあなたの加入しているプロバイダのperl言語のパスを指定します
#	ほとんどの場合、｢#!/usr/local/bin/perl｣だと思われます
#↓jcode変換ライブラリ
require '/usr/lib/jcode.pl';
require '/usr/lib/perl-lib.pl';
#============================================================================
#					BladMail Ver2001.10
#============================================================================

#メールを格納しているサーバーのsendmailパス
#Windowsの場合はBlatjのパス
$sendmail = 'c:\usr\lib\blatj.exe';
#------------------------------------------------------------
#世界標準時との時差　日本の場合は9時間
$timelag = 9;
#============================================================================
#					設定はここまで
#============================================================================
$DATE_NOW = localtime(time + $timelag * 3600);

readparts('QUERY', '<>=', 'sjis');
$QUERY{'cmd_to'} !~ /.+\@.+\..+/) && &Error('送信先メールアドレスが不正です');
#----------------------------------------------------------------------------
#　入力確認ページの生成
#----------------------------------------------------------------------------
if ($QUERY{'cmd_checked'}) {
	html_head('#FFFFFF', '#000000', '#0000FF', '#FF0000', '#00FF00', '', 10, 10, 'TryTheHomePage PublicMail Service');
	print "<center>\n";
	print "<form method=POST action=/usr/cgi-bin/blatmail.cgi>\n";
		print "<table border=1>\n";
			print "<tr><td colspan=2 align=center bgcolor=#000080><font color=#FFFFFF><b>入力確認</b></font></td></tr>\n";
			foreach (@QUERY) {
				/name=\"(.*)\";\svalue=\"(.*)\"/;
				$name = $1; $value = $2;
				$name =~ s/&eq;/=/g; $name =~ s/&lt;/</g; $name =~ s/&gt;/>/g;
				$value =~ s/&eq;/=/g; $value =~ s/&lt;/</g; $value =~ s/&gt;/>/g;
				$value =~ s/\0/\,/g;
				if ($name !~ /cmd_checked/) {
					print "<input type=hidden name=$name value=\"$value\">\n";
				}
				if ($name && $name !~ /^cmd_/i) {
					print "<tr><td align=center><font size=2>$name</font></td>\n";
					print "<td><font size=2>";
					if ($value) {
						print $value;
					} else {
						print "　";
					}
					print "</font></td></tr>\n";
				}
			}
		print "</table>\n";
		print "<input type=submit value=\"確認 OK メールを送信する\">\n";
	print "</form>\n";
	print "</body></html>\n";
	exit;
}
#----------------------------------------------------------------------------
#　確認済または、直接送信の場合はメールを送信する
#----------------------------------------------------------------------------
$QUERY{'email'} !~ /.+\@.+\..+/) && ($QUERY{'email'} = 'nobody@xxxxxx.com');
foreach (@QUERY) {
	if ($_ !~ /^cmd_/i) {
		/name=\"(.*)\";\svalue=\"(.*)\"/;
		$name = $1; $value = $2;
		$name =~ s/&eq;/=/g; $name =~ s/&lt;/</g; $name =~ s/&gt;/>/g;
		$value =~ s/&eq;/=/g; $value =~ s/&lt;/</g; $value =~ s/&gt;/>/g;
		if ($body) { $body .= "$name=$value\n"; }
		else { $body = "$name=$value\n"; }
	}
}
$body =~ s/\r/\n/g;
$QUERY{'cmd_cc'} && ($QUERY{'cc'} = $QUERY{'cmd_cc'});
$QUERY{'cmd_bcc'} && ($QUERY{'bcc'} = $QUERY{'cmd_bcc'});
send_email($sendmail, '', $QUERY{'subject'}, $QUERY{'email'}, $QUERY{'cmd_to'}, $QUERY{'cc'}, $QUERY{'bcc'}, $body) && &Error('原因不明のエラーにより処理を継続できません');
html_head('#FFFFFF', '#000000', '#0000FF', '#FF0000', '#00FF00', '', 10, 10, 'TryTheHomePage PublicMail Service');
	print "<center>\n";
	print "<table border=1 width=70%>\n";
		print "<tr><td align=center bgcolor=#000080><font color=#FFFFFF><b>正常終了</b></font></td></tr>\n";
		print "<tr><td align=center>\n";
		print "<p>ありがとうございました。正常にメールを送信しました。<br>\n";
		print "Thank you. Mail was transmitted normally.</p>\n";
		if ($QUERY{'cmd_return'}) {
			print "<p>[ <a href=$QUERY{'cmd_return'}>Return Page</a> ]\n";
		}
		print "<br></td></tr>\n";
	print "</table>\n";
	print <font size=1><a href=http://www.tryhp.net/>Copyrite(C)TryTheHomePage</a></font>
	print "</center>\n";
print "</body></html>\n";
exit;
#----------------------------------------------------------------------------
#　エラーメッセージの表示
#----------------------------------------------------------------------------
sub Error {
	my($err) = $_[0];
	html_head('#FFFFFF', '#000000', '#0000FF', '#FF0000', '#00FF00', '', 10, 10, 'TryTheHomePage PublicMail Service');
		print "<center>\n";
		print "<table border=1 width=70%>\n";
			print "<tr><td align=center bgcolor=#FF0000><font color=#FFFFFF><b>ERROR</b></font></td></tr>\n";
			print "<tr><td align=center>\n";
			print "<p>$err</p>\n";
			if ($QUERY{'cmd_return'}) {
				print "<p>[ <a href=$QUERY{'cmd_return'}>Return Page</a> ]\n";
			}
			print "<br></td></tr>\n";
		print "</table>\n";
		print "</center>\n";
	print "</body></html>\n";
	exit;
}
#-----------------------------End Of Script BlatMail-------------------------