書き込みがあったら指定のアドレスへメールを送る方法

質問

自分でPERLで掲示板を作りました。
書き込みがあると何日かほっぽとく状態にあります。
書き込みがあったときだけからメールでいいので送信できるようにしたいです。どんな方法があるでしょうか？もし本文も送れる方法があったら教えてください。

回答No.2

noname#25358 · ベストアンサー

下記は俺が実際に使ってるものです。
　jcode.pl を読み込んで、下記の関数を呼び出してみてください。

sub mail{

# 掲示板名
$fn = 'AurBBS';

# 管理者ハンドル名
$tn = 'Administrator';

# システムが使用する送信元メールアドレス（通常は送信先と同じ）
$from_mail = 'your-email@domain.co.jp';

# 送信先（受信するメールアドレス）
$to = 'your-email@domain.co.jp';

# タイトル
$sj = '掲示板に更新がありました';

# メッセージ内容
# （ ＵＲＬは、掲示板を設置したフルパス）
$ms = "掲示板に更新がありました\nhttp://wwwwwwwwwwwww/";

# SENDMAIL のパス
$sendmail = '/usr/sbin/sendmail';

# ここからロジック
&jcode'convert(*fn,"jis");
&jcode'convert(*tn,"jis");
&jcode'convert(*sj,"jis");
&jcode'convert(*ms,"jis");

open(MAIL, "|$sendmail $to"); #本番用
# open(MAIL, ">mail.txt"); #テスト用
print MAIL mimeencode("From: $fn <$from_mail>\n");
print MAIL mimeencode("To: $tn <$to>\n");
print MAIL mimeencode("Subject: $sj\n");
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL 'Content-Type: text/plain; charset=iso-2022-jp' . "\n\n";
print MAIL $ms;
close(MAIL);
}

回答No.1

acacia7

CGI RESCUEというサイトに
記入のあったときにメールを送ってくれるCGIがありました。
「WebGUEST」というゲストブック用CGIです。
実際に動くCGIをみてみるのが一番でしょうから、
手に入れてご覧になってはいかがでしょう。

参考URL：

http://www.rescue.ne.jp/