くっつきBBS に投稿があるとメールが送られるように設定。
ログ出力のところをパチって変更しただけ
sub write_comment {
.....
open(F, "|/usr/local/bin/nkf | /var/qmail/bin/sendmail MAIL\@ADDRESS") or die;
print F "Subject: Chalow kuttuki report\n\n";
print F "remote_host: ", $q->remote_host(), "\n";
print F "title: $title\n";
print F "url: $target_url\n";
print F "mail: $email\n";
print F $add;
close(F);
.....