CGI-BBS > 電子掲示板 > Trees > Treesの設置で投稿を管理者にメール連絡できるようにしたい。


(株)友林堂
(株)友林堂


質問者 smokefree  投稿日 2006/11/8(水) 16:29:52
新規投稿を管理者にメール連絡できるようにしたい。

【習熟度】多少の改造ができる

回答者 いのちゃん  [削除]  投稿日 2006/11/15(水) 17:22:55
http://www.kcb-net.ne.jp/ki-net/trees2.10/trees.cgi
この分のTreesの件でしたら次ぎのurlを開いて見てください。
http://www.kcb-net.ne.jp/ki-net/trees2.10/trees.txt


Line 39辺り、
#-------- 第1段階改造
$s_mail = 1; # メール配信 0:off 1:on
$mailto = 'ki-net@kcb-net.ne.jp'; # 送信先Eメール
$sendmail = '/usr/lib/sendmail'; # サーバのsendmailパス
#--------第1段階改造

Line 1304辺り、
#--------第2段階改造
   $DAT{'number'}++;
   if ($s_mail) {
        $vsubject = $in{'subject'}; if($vsubject eq '') { $vsubject = 
        "No.$in{'base'}へのコメント"; }
         &s_mail("$title_bar新着情報",$in{'uname'},$in{'email'},$in{'url'}
        ,$vsubject,$in{'value'});
       }
#--------第2段階改造

Line 1771辺り、
#--------第3段階改造
sub s_mail {

        @mv = @_;
        $mv[4] =~ s/\r/\n/g;

        if (!open(OUT,"| $sendmail -t")) { return; }

        print OUT "To: $mailto\n";
        if ($FORM{'email'} ne '') { print OUT "From: $FORM{'email'}\n"; }
        else { print OUT "From: $mailto\n"; }

        &jis("Subject: $mv[0]"); print OUT "$msg\n";
        print OUT "Content-Transfer-Encoding: 7bit\n";
        print OUT 'Content-Type: text/plain; charset=iso-2022-jp' . "\n\n\n";

        &jis("投稿者: $mv[1]"); print OUT "$msg\n";
        &jis("Eメール: $mv[2]"); print OUT "$msg\n";
        &jis("url: $mv[3]"); print OUT "$msg\n";
        &jis("題名: $mv[4]"); print OUT "$msg\n";
        &jis("内容: $mv[5]"); print OUT "$msg\n\n";

        close(OUT);
}

sub jis { $msg = $_[0]; &jcode'convert(*msg, 'jis'); }

#1
#--------第3段階改造

ご使用の場合は当然乍ら改造分を挿入後、trees.txtをtrees.cgiに書き換えてご使用してください。

質問者 smokefree  [削除]  投稿日 2006/11/15(水) 21:00:53
ありがとうございました。うまくいきました。
本文まで転送されるんですね! すごいです!

このページは終了したので返信(回答)は書きこめません
 


Web裏技