KENT-WEB サポートコーナー 過去ログ [ 0492 ]


記事No: 11188
投稿日: 2012/11/22(Thu) 17:24:25
タイトルWebMartのメール送信
ID情報: masa1016
投稿者: retall
URLhttp://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);


[検索ページ] [掲示板]