#! /usr/local/bin/perl
#
#-------------------------------------------------------------
# sendmail
#	フォームから送信してきたE-Mailアドレスにメールを送ります
#-------------------------------------------------------------
#

# フォームデータの受け取り
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	}
	else {
		$buffer = $ENV{'QUERY_STRING'};
	}

	@pairs = split(/&/, $buffer);
	foreach $pair (@pairs) {
		($key, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$form{$key} = $value;
	}

# 送り先のメールアドレスを取得
	$mailto = $form{'email'};

# 送り先の名前を取得
	$name = $form{'name'};

# E-Mailアドレスをチェックします
	if ($mailto !~ /[a-zA-Z0-9\-_]\@.*[a-z0-9\-_]\.[a-z0-9\-_]/) {
		exit;
	}

# sendmailオープン
	if (!open(FILE, "| /usr/lib/sendmail $mailto")) {		# sendmailのディレクトリ指定
		exit;
	}

	print FILE "From:sea_blue\@mx1.freemail.ne.jp\n";		# メールの送り元
	print FILE "Subject:$nameさん、こんにちは\n";			# メールの題名
	print FILE "テストメールで〜す\n";				# メールの内容

	close(FILE);

	exit;