http://genesis.vis.ne.jp/cgi/i/f_board/
ここで配布しているフリースクリプトを設置したのですが
書き込みに対してメールを送ると、メール本文に件名が
表示されていて、本来の件名部分には「無題」と
なってしまいます。
以下がメール送信部分だと思うので貼り付けました。
おかしいところがあったら教えてください。
sub sendmail_ {
$subject="$FORM{'SYSTEM14'}";
&jcode'convert(*subject, "jis");
#&jcode'convert($SYSTEM[14], "jis");
open (MAIL,"| $SYSTEM[12] -t -f $SYSTEM[13]") || &error("sendmailが使用できませんでした。");
print MAIL "To: $tomail\n";
if ($SYSTEM[9]) { print MAIL "Bcc: $SYSTEM[13]\n"; }
print MAIL "From: $frommail\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-Type: text/plain\; charset=\"ISO-2022-JP\"\n\n";
print MAIL "$dateに$fromnameさんから$tonameさんに送信がありました。\n";
print MAIL "+-+-+-+-+-+-+-+\n";
print MAIL "mail: $frommail\n";
print MAIL "+-+-+-+-+-+-+-+\n";
print MAIL "$title\n";
print MAIL "-+-----+-\n";
print MAIL "$message\n";
print MAIL "+-+-+-+-+-+-+-+\n";
if ($SYSTEM[11]) {
print MAIL "HOST:$host\n";
print MAIL "IP:$ip\n";
print MAIL "+-+-+-+-+-+-+-+\n";
}
print MAIL "$SYSTEM[2]\n";
print MAIL "$SYSTEM[3]\n";
close (MAIL);
$_ = "";
}
ActivePerl-5.8.0 Build 805とApach 2.0.44でhtmllintによるＨＴＭＬ文書の文法チェックをしたいのですが、チェックができません。
ローカルでhtmllintのサイトのページを127.0.0.1/a/・・というふうに呼び出すことはできますが、いざ文法チェックをさせそうとすると、ＵＲＬ、ＤＡＴＡ、ＦＩＬＥのどれもまったくチェックできません。
『
Internal Server Error
The server encountered an internal error or misconfiguration and was unable
to complete your request.
Please contact the server administrator, メールアドレス and inform them of
the time the error occurred, and anything you might have done that may have
caused the error.
More information about this error may be available in the server error log.
--
Apache/2.0.44 (Win32) Server at 127.0.0.1 Port 80
』
というエラーページにいきます。
ActivePerl 805とApachはd:/aへ、htmllintはd:/a/bにいれているので、htmllint.envでのパスもそれに倣って記入しています。
$RULEDIR = 'd:/a/b/htmllint/'; # 規則ファイルの場所
など
また、
# デフォルト規則ファイル (Windows/Macでは . から始まるファイルは無効)
$HTMLLINTRC = 'htmllintrc';
＜htmllintrcのファイル名の始めの．を消しました＞
Jcode-0.82の下のJcode.pmとJcodeというディレクトリをPerlのsiteライブラリにコピーしています。
htmllint関係のサイトの説明どおりにしたつもりですが、どこがいけないか分かりませんか？
よろしくお願いします。
