sendmail 送信先を複数設定するには？

質問

sendmailが使えるCGIを設置して分からないことが出てきました
自分は設置程度は出来ますが、書き換え等は初心者ですm(_ _)m

http://www.supra.cx/joyful2chMe/index.html
こちらを設置したのですが、新着投稿を複数のアドレスに送るにはどうしたらよいでしょうか
PCアドレスと携帯に転送したいと思います。$mailto = '×××@yahoo.co.jp';の先に
アドレス追加してみたのですが最初のアドレスにしか届きませんでした

# 投稿があるとメール通知する (sendmail必須)
# 0 : 通知しない
# 1 : 通知するが、自分の投稿記事はメールしない。
# 2 : 通知する。自分の投稿記事も通知する。
$mailing = 2;
$mailto = '×××@yahoo.co.jp';
# メールアドレス(メール通知する時)
$mail_title = '新規投稿'; # 通知メールのタイトル
$mail_form = 'master <×××@yahoo.co.jp>'; # 通知メールの差出人
$sendmail = '/usr/lib/sendmail'; # sendmailパス（メール通知する時）

windows2000
ロリポップサーバーを使ってます。

宜しくお願いします

回答No.3

Dpop

#1 です。

ちょっと修正です。foreach の () が抜けていました。

foreach my $wmailto split(m/,/, $mailto) {

は

foreach my $wmailto (split(m/,/, $mailto)) {

として下さい。

foreach my $wmailto (split(m/,/, $mailto)) {
open(MAIL,"| $sendmail -t");
print MAIL "To: $wmailto\n";
print MAIL "From: $email\n";
print MAIL "Subject: $mail_sub\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 "X-Mailer: $ver\n\n";
print MAIL "--------------------------------------------------------\n";
print MAIL "$mail_body\n";
print MAIL "--------------------------------------------------------\n";
close(MAIL);
}

と

foreach my $wmailto (split(m/,/, $mailto)) {
open(MAIL,"| $sendmail -t");
print MAIL "To: $wmailto\n";
print MAIL "From: $mail_form\n";
print MAIL "Subject: $mail_sub\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 "X-Mailer: $ver\n\n";
print MAIL "$mail_body\n";
close(MAIL);
}

です。

お礼

重ね重ねありがとうございます、上手くできたら報告したいと思いますm(_ _)m