今まで難なく使えていた資料請求用のCGIがさくらサーバーにした途端、以下のような不都合が起こって困っています。

ご回答ありがとうございます。

この部分は既に変更済みです。

#!/usr/bin/perl

require "cgi-lib.pl";

require "jcode.pl";

&ReadParse;

#--------------------------------------------------------------------------------------------------------------------------------------------

#|初期設定|

# フォーム送信先アドレス

$mailto = 'aaa@bbb.co.jp';

$mailto2 = 'ccc@bbb.co.jp';

# フォーム内容を送付するメールのタイトル

$subject = 'ご注文ありがとうございます。';

# 送信完了メッセージ用HTMLのURL

$location = 'thank.html';

# sendmail

$sendmail = '/usr/sbin/sendmail';

#送信元メールアドレス

$From ='ddd@bbb.co.jp';

#オーダーメールのタイトル

$subject2 = 'オーダーメール';

----

省略

請求者宛（届いている方）のメール

---

---

# フォームの送信

sub sendmail {

$mail_data = <<MAIL;</p>

X-Mailer: aaa

To: $mail

From: $From

Subject: $subject

Content-Transfer-Encording: 7bit

Content-Type: text/plain

(略）

MAIL

&jcode'convert(*mail_data,'jis');

open(MAIL, "| $sendmail $mail") || &error("Can\'t sendmail: $!");

print MAIL $mail_data;

close(MAIL);

print "Location: $location\n\n";

これ以下が、上記の続きに書かれたサーバ名（たとえばwww111a.sakura.ne.jp)から届き、宛先は、undisclosed-recipients:;　になって届くメール

---

$mail_data = <<MAIL;</p>

X-Mailer: aaa

To: $From

From: $mail

Subject: $subject2

Content-Transfer-Encording: 7bit

Content-Type: text/plain

（略）

------------------------------------------------------------

REMOTE_ADDR :$ENV{'REMOTE_ADDR'}

HTTP_USER_AGENT:$ENV{'HTTP_USER_AGENT'}

------------------------------------------------------------

MAIL

&jcode'convert(*mail_data,'jis');

open(MAIL, "| $sendmail $mailto2 $mailto") || &error("Can\'t sendmail: $!");

print MAIL $mail_data;

close(MAIL);

print "Location: $location\n\n";

exit;

}

以上です。

これで、おわかりになるでしょうか。

sendmail に関しては、全くわかりません。

10年ぐらい前に知り合いに頼んだものだそうで、今は連絡とれない状態です。

誰かが公開しているものではないと思います。

秀丸メールで詳細を見てみましたが、ヘッダには本文はありませんでした。

ご回答ありがとうございます。

省略しました。

送信元アドレスは設定されています。

お客様への送信元はあっています。

参考のフォームメール、ありがとうございます。

現在のものが使えないと判断した時点で、参考にさせていただきます。