※ ChatGPTを利用し、要約された質問です（原文：メーリングリストのスクリプトが動かない。）
メーリングリストスクリプトの実行エラー
このQ&Aのポイント
メーリングリストのスクリプトが動かない理由について教えてください。
KCachを使用してもエラーメッセージが表示される理由を教えてください。
スクリプトの内容と問題点について詳しく教えてください。
簡単なプログラムの間違いかもしれませんが、KCachを使っても分かりません。教えて下さい。
KCach では
[flashMail.cgi:97:die] Execution of /home/websys21.com/websys_new/mail/flashMail.cgi aborted due to compilation errors. > }
というメッセージが出ています。
スクリプトは以下の通りです。
#!/usr/local/bin/perl
BEGIN {use KCatch qw(source);}
$sendmail='/usr/sbin/sendmail';
$myaddress='info@hogehoge.com';
require 'cgi-lib.pl';
require 'jcode.pl';
&ReadParse;
$subject=$in{'currentValue'};
$campany=$in{'campany'};
$name=$in{'name'};
$mailfrom=$in{'mailfrom'};
if(mailfrom !~/.+@.+\..+/){&error('mailfrom');}
$url=$in{'url'};
if(url!~/^http\:\/\//){&error('url');}
$inquiry=$in{'inquiry'};
$inquiry=~s/</</g;
$inquiry=^s/>/>/g;
$message=<<END_OF_MESSAGE;
Subject:Message form hogehoge.com Site
Reply-To: $mailfrom
[件 名]：$subject
・
・
省略
・
END_OF_MESSAGE
&jcode'convert(*message,'jis');
open (MAIL,"|/usr/sbin/$sendmail -t -oi");
print MAIL $message;
close MAIL;
print <<END_OF_HTML;
Content-type: text/html
<HTML>
<HEAD>
<TITLE>受信しました</TITLE></HEAD>
<BODY><center><table width="200"><tr><td>
<b>受信しました。</b>
</td></tr></table>
</center>
</BODY>
</HTML>
END_OF_HTML
sub error{
$errormsg= $_[ 0 ];
print <<ERROER_HTML;
Content-type: text/html
<HTML>
<HEAD><TITLE>エラーメッセージ</TITLE></HEAD>
<BODY><center><table width=200><tr><td>
<h2>エラーです。</h1>
$errormsg
</td></tr></table>
</center>
</BODY></HTML>
ERROER_HTML
exit;
}
お礼
retr様 有り難うございました。何度か見直したのですが気がつきませんでした。 おかげさまでうまくいきました。