フォームで入力されたアドレスに内容のコピーを自動返信

質問

下記フォームのＣＧＩに、フォームで入力したアドレスに内容のコピーを自動で返信したいと考えています。
htmlフォームのメールの項目は、name="mail"です。

$clength = $ENV{'CONTENT_LENGTH'};
if ($clength ne '') {
read(STDIN, $query_string, $clength);
@elements = split(/&/, $query_string);
$i = 0;
foreach $element (@elements) {
($key, $buf) = split(/=/, $element);
$key =~ tr/+/ /;
$key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*key, 'jis');
@name[$i] = $key;
$buf =~ tr/+/ /;
$buf =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
&jcode'convert(*buf, 'jis');
@value[$i] = $buf;
$i++;
}

$mail = $FORM{'mail'};

&jcode'convert(*sname, 'jis');
&jcode'convert(*subject, 'jis');
&jcode'convert(*ftitle, 'jis');

open (MAIL, "| $sendmail -f $smail $trans");
if ($sname ne '') {
print MAIL "From: \"$sname\" <$smail>\n";
} else {
print MAIL "From: $smail\n";
}
print MAIL "Content-Type: text/plain; charset=\"ISO-2022-JP\"\n";
print MAIL "Subject: $subject\n";
print MAIL "\n";

print MAIL "$ftitle\n";
print MAIL "\n";

$tmp = '送信内容';
&jcode'convert(*tmp, 'jis');
print MAIL "$tmp\n";

print MAIL "----------------------------------\n";
for($j = 0; $j < $i; $j++) {
print MAIL $j+1 . ": @name[$j] => @value[$j]\n";
}
print MAIL "------------------------------------\n";
close(MAIL);
print "Location: $query_file\n\n";
}

回答No.1

umasikajiro

何を聞きたいのかは判りませんが、どっちみち答えでは有りませんけど
入力したアドレスにメールを送るCGIというのは、CGIの入門書では
「作ってはいけないCGIの例」として書かれていることがあります
何故なら、スパムや連続メールで他者(あるいは他者のサーバー)を攻撃するものとして利用されてしまうからです。

どうしても作るのでしたら、同じ人からは一定時間が経過しないと2通目のメールを送れなくするとか
内容をよくチェックするようにするとかの注意が必要です。

年寄りのいらん心配だったかな？？、、、