🚀 go-pugleaf

＝＝＝＝HTMLコード＝＝＝＝

<HTML><HEAD><TITLE>メール送信</TITLE></HEAD>
<BODY>
メールプログラムです。
<FORM METHOD="POST" ACTION="comment.cgi">
お名前は？ <INPUT TYPE="text" NAME="name"><BR>
コメントTEXTAREA NAME="comment" COLS=60 ROWS=5></TEXTAREA>
<P>
送信する→<INPUT TYPE="submit"><br>
やり直す→<INPUT TYPE="reset">
</FORM>
</BODY>
</HTML>

＝＝＝＝CGIプログラム＝＝＝＝

#!/usr/bin/perl

$sendmail = '/usr/lib/sendmail';
$address=ppp@mas.ne.jp;

require 'cgi-lib.pl';
require 'jcode.pl';

&ReadParse;

$message = <<END_OF_MESSAGE;
Subject: A comment to Web
Reply-To: $in{'address'}

[Name]
$in{'name'}

[Comment]
$in{'comment'}
END_OF_MESSAGE

&jcode'convert(*message,'jis');

open(MAIL,"|$sendmail $address");
print MAIL $message;
close(MAIL);

print <<END_OF_HTML;
Content-type: text/html
<HTML><HEAD><TITLE>ありがとう</TITLE></HEAD>
<BODY>ありがとう。</BODY>
</HTML>
END_OF_HTML


のような場合はmyaddress=ppp@mas.ne.jpに一意的にメールが送信されます。
ところでHTML上から任意の宛先にメールを送りたいと思うのですが、どうすれ
ばよいのでしょうか？
自分なりに考え、HTMLコードに
送り先のアドレスは？ <INPUT TYPE="text" NAME="myaddress"><BR>
の１行を加えます。
CGIプログラムに多少手を加え、最終的に
open(MAIL,"|$sendmail $address");
で送ろうとしたのですが「Internal Server Error」がでます。
どうしたら、HTML上から任意の宛先にメールを遅れますか？以下の変更後
のCGIプログラムで送れないので、ご教授いただければと存じます。

＝＝＝変更後のCGIプログラム＝＝＝


#!/usr/bin/perl

$sendmail = '/usr/lib/sendmail';

require 'cgi-lib.pl';
require 'jcode.pl';

&ReadParse;

$address=$in{'address'};

$message = <<END_OF_MESSAGE;
Subject: A comment to Web
Reply-To: $in{'address'}

[Name]
$in{'name'}

[Comment]
$in{'comment'}
END_OF_MESSAGE

&jcode'convert(*message,'jis');

open(MAIL,"|$sendmail $address");
print MAIL $message;
close(MAIL);

print <<END_OF_HTML;
Content-type: text/html
<HTML><HEAD><TITLE>ありがとう</TITLE></HEAD>
<BODY>ありがとう。</BODY>
</HTML>
END_OF_HTML