| 記事No | ： 11188 |
| 投稿日 | ： 2012/11/22(Thu) 17:24:25 |
| タイトル | ： WebMartのメール送信 |
| ID情報 | ： masa1016 |
| 投稿者 | ： retall |
| URL | ： http://www.f-shop.sakura.ne.jp/mart/mart.html |
お世話になります。
先日、order.cgiの動作不具合でお世話になったものです。
無事、返信メールまでの確認も出来ました。
ところで管理者がメールを受け取ると同時に
商品配送部へもメールが届くようにしたいのですが
mail2.txtを新規に作成。
その内容を配送部あてに送るように考えています。
注文メールは届くのですが
新規追加した配送部へは届かず
完了画面でエラー出ます。
URLは
http://www.f-shop.sakura.ne.jp/mart/mart.html
以下order.cgiの558行目くらいから追加している内容です。
何度もすみません。
よろしくお願いいたします。
# オーダー本文テンプレート読出（配送部宛）
my $mbody3;
open(IN,"$cf{tmpldir}/mail2.txt") or &error("open err: mail2.txt");
while( my $data = <IN> ) {
$data =~ s/!(\w+)!/$in{$1}/g;
$mbody3 .= $data;
}
close(IN);
# コード変換
$mbody1 = Jcode->new($mbody1, 'utf8')->jis;
$mbody2 = Jcode->new($mbody2, 'utf8')->jis;
$mbody3 = Jcode->new($mbody3, 'utf8')->jis;
# タグ復元
$mbody1 = &tag($mbody1);
$mbody2 = &tag($mbody2);
$mbody3 = &tag($mbody3);
# sendmailコマンド
my $scmd1 = "$cf{sendmail} -t -i";
my $scmd2 = "$cf{sendmail} -t -i";
my $scmd3 = "$cf{sendmail} -t -i";
if ($cf{sendm_f} == 1) {
$scmd1 .= qq| -f $in{email}|;
$scmd2 .= qq| -f $cf{master}|;
# 配送部アドレスです。
$scmd3 .= qq| -f $in{'m7@sakura.ne.jp'}|;
}
# 配送部へ送信
open(MAIL,"| $scmd3") or &error("メール送信失敗");
print MAIL "To: $in{'m7@sakura.ne.jp'}\n";
print MAIL "From: $cf{master}\n";
print MAIL "$mhead\n";
print MAIL "$mbody3\n";
close(MAIL);