新規投稿を管理者にメール連絡できるようにしたい。

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'; # 送信先Ｅメール
$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("Ｅメール: $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に書き換えてご使用してください。

ありがとうございました。うまくいきました。
本文まで転送されるんですね！　すごいです！