#!/usr/bin/perl

require './pack.pl';

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

# 分かりやすいように、個々の変数にコピーします
$M_name = '$name'; #名前
$M_from = '$from'; #送信元アドレス
$M_subject = '$subject';#タイトル
$M_message = '$body'; #本文
$M_to = '$mail';#送信先アドレス

if($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'}); }
else { $QUERY_DATA = $ENV{'QUERY_STRING'}; }

@pairs = split(/&/,$QUERY_DATA);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$QUERY{$name} = $value;
}
$M_name = $QUERY{'name'};
$M_from = $QUERY{'from'};
$M_subject = $QUERY{'subject'};
$M_to = $QUERY{'mail'};
$M_to = "$M_to,$M_from";
$M_message = $QUERY{'body'};
$M_message = "【送信者】 $M_name\n ================ \n$M_message";

main::sdmail($sendmail,$M_to,$M_name,$M_from,$M_subject,$M_message);

print "Content-type: text/html\n\n";
print "<div style='font-size:30px; font-weight:bold; line-height:60px; background:#ddfdbd;' align=center margin-top:100px;><hr><p>";
print "送信成功";
print "<p><input type=button onClick=location.replace('../hogehoge.html') value='閉じる'>";
print "<p><input type=button onClick=window.open('http://honyarara.html/','_top') value='戻る'>";
print "</div><hr>";
exit;

sub error {
print "Content-type: text/html\n\n";
print "$_[0]";
exit;
}

package main;
sub sdmail {

require './jcode.pl';

($sendmail,$to,$name,$from,$subject,$message) = @_ ;

#$sendmail #sendmailのパス
#$name #名前
#$from #送信元アドレス
#$subject #タイトル
#$message #本文
#$to #送信先アドレス

#文字コードをJISに変換する
&jcode'convert(*subject, 'jis');
&jcode'convert(*message, 'jis');

unless (-e $sendmail) { &error("sendmailのパスが不正です。"); exit; }

# sendmailをパイプで書き込みオープンします
open(MAIL, "| $sendmail -t") || &error("送信失敗");

# メールを送る

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "$message\n";

# パイプを閉じる
close (MAIL);

}

1;

はじめまして。囲碁好きなPerlプログラマーです。
sendmail でBCCにメールを送る場合、オプションに -t をつけるといいです。

ソースが全文出ていなかったので、どこにどのようにつければいいかアドバイスできないのですが、これがヒントになればよいと思います。

おそらく、$sendmail に '-t' が追記されるイメージで、さらに main::sendmail で6番目の引数からBCCが渡ってくるのを処理するコードを追記すればよいと思います。

junichiroさん、アドバイスありがとうございます。

$sendmail = '/usr/sbin/sendmail';
を
$sendmail = '/usr/sbin/sendmail -t
とし
main::sdmail($sendmail,$M_to,$M_name,$M_from,$M_subject,$M_message,-t$M_bcc);
とすればよろしいのでしょうか。

senmail.cgiのソース全文を本記事の追記に記載しました。

ええ、方向性はあっています。
$sendmail = '/usr/sbin/sendmail';
$sendmail = '/usr/sbin/sendmail -t';

ここまではOK(かもしれません)。
「かもしれません」というのは、実は pack.pl の中身を見てみないことにはなんとも言えないからです。
pack.pl の中に sub sdmail { ... という部分があると思いますので、その中身をちょっと修正しなければなりません。そこだけでも掲載して頂ければ、アドバイスだけではなく、完全な修正方法も提示できると思います。

junichiroさん、おはようございます。
　アドバイスありがとうざいます。
　pack.plが影響するとは全然知りませんでした。(ドシロウトのアホですね）
　sub sdmail｛　は複数行にわたっているので記事の追記のところに記入しました。
　おんぶにだっこで恐縮ですがよろしくお願いします。

$sendmail = '/usr/sbin/sendmail';
ここはもとのままで良かったです。

次にsdmailの中身を修正します。

■6行目
($sendmail,$to,$name,$from,$subject,$message) = @_ ;
↓
($sendmail,$to,$name,$from,$subject,$message,$bcc) = @_ ;

■26行目と27行目の間に下記の1行を挿入
print MAIL "Bcc: $bccn";

この時点で一度動くことを確認してください。(BCCにはまだメールが送られません)
この修正で、pack.pl の sdmail という関数が6番目の引数のBCCを解釈できるようになりました。

その後にsendmail.cgi に対して、最初に島谷さんがやった修正をしてみてください。

下記の部分と
$M_bcc = "$M_to,$M_from";

下記の部分ですね。
main::sdmail($sendmail,$M_to,$M_name,$M_from,$M_subject,$M_message,$M_bcc);

今手元に動作環境がないので、私の方で確認はできていませんが、これで動くようになると思います。

junichiroさん、アドバイスありがとうざいます。
　おかげさまでBCC送信ができるようになりました。♪└|∵|┐♪└|∵|┘♪┌|∵|┘♪

　好奇心で$M_bcc="$M_to,$M_from";ではなく$M_bcc="$M_from"にして試したところサーバーエラーになりました。
　スクリプトの挙動は私には不可解です。

　お忙しいところをご丁寧に教えていただき心から感謝します。
　これからもよろしくお願いいたします。

おめでとうございます！

ただ、$M_bcc="$M_from";にしても動くはずなんですけどね。
セミコロンをつけ忘れてしまっていたりとか...

何はともあれ、いま動いているのであればそれで良いと思います。

　セミコロンはちゃんとつけたのです。コロンではありません。＾＾
　アホな癖に好奇心だけは旺盛なので$_fromのところに直接アドレスを記入してもエラーになりました。私にとっては謎だらけです。
　目的を達成できたので心から喜んでいます。
　junichiroさん、本当にありがとうございました。