YY-BOARD掲示板に書き込みがあった時にメールで知らせてくれる機能があるのだが
オリジナルのままでは文字化けでなんのメールかさっぱりわらない。
それで色々いじくる訳ですが...ここまでが私の限界のようです。
regist.cgiを下の様に編集した。
# 題名をBASE64化
#$msub = &base64("$title (No.$no)");
use MIME::Base64;
# コード変換
#&jcode::convert(¥$mbody, 'jis', 'sjis');
# メールアドレスがない場合は管理者アドレスに置き換え
if ($in{'email'} eq "") { $email = $mailto; }
else { $email = $in{'email'}; }
open(MAIL,"| $sendmail -t -i") || &error("メール送信失敗");
print MAIL "To: $mailto¥n";
print MAIL "From: $email¥n";
#print MAIL "Subject: $msub¥n";
print MAIL "Subject: (No.$no)¥n";
print MAIL "MIME-Version: 1.0¥n";
#print MAIL "Content-type: text/plain; charset=iso-2022-jp¥n";
print MAIL "Content-type: text/plain; charset=utf-8¥n";
#print MAIL "Content-Transfer-Encoding: 7bit¥n";
print MAIL "Content-Transfer-Encoding: encode_base64¥n";
print MAIL "X-Mailer: $ver¥n¥n";
print MAIL "--------------------------------------------------------¥n";
print MAIL "$mbody¥n";
print MAIL "--------------------------------------------------------¥n";
close(MAIL);
}
Comments