NTサーバーでメール送信フォームを使いたい

サムソン [E-Mail] 1999/11/26(金) 14:46:15
初めまして。とほほさんのメール送信フォームをNTサーバーで動かそ
うとしているのですが、もう少しのところで上手くいきません。

「検索」でNTサーバーでの使用に必要と書かれていた「BLATJ」を探
すと「BLADJはこうやって組み込む!」というのが見あたらなかったの
で下記のたむらさんの書き込みにある「cmail」を使ってみました。
../199902/99020018.htm

なんとかフォームからメールが送られるようにはなったのですが、
どうしても送信結果を正しく表示する事ができないのです。
スクリプトの変更部分は
http://www.tohoho-web.com/cgi-bin/wwwmail.txt　の
★ メール送信コマンド
　$sendmail = '/usr/lib/sendmail';　を　$sendmail = 'cmail';
★ サブジェクト(件名)
　$subject = 'MAIL FROM WWWMAIL';　を　$subject = '"test"';
★ メール送信コマンド
　if (-x $sendmail) {
　 unless (open(OUT, "| $sendmail -n -t")) {　を
　#if (-x $sendmail)
　{
　 unless (open(OUT, "| $sendmail $mailto -s $subject")) {
です。

フォームに項目を入力し「送信」ボタンを押すとメールは送信される
のですがネスケの場合以下のファイルの保存画面になってしまいます。
http://www.geocities.co.jp/Athlete/8812/wwwmail.txt
(ファイル名は「wwwmail.cgi」)

どうやら　Content-type: text/html　の上に
本文を入力　～　送信完了
とあるのでネスケがはじいてしまうみたいですが(IEだと無理矢理
表示する)、この「本文を入力　～　送信完了」部分を表示しない
ようにしたい訳です。
「Content-type: text/html」を書き出す前にそれまでの出力した
内容をクリアすれば良いのかなと思いましたが、Perlのソースを
見るのは今回が初めてで本を読んでもどうすれば良いかわかりませ
んでした。　

長文になってしまい申し訳ありません。できればアドバイスお願いいたします。

無責任官庁 1999/11/26(金) 17:02:49
これって、cmail.exe が出してるメッセージなんで、
cmail.exe の標準出力データをキャンセルすれば大丈夫です。

で、やり方ですけど、

open(OUT, "| $sendmail $mailto -s $subject")

の部分を、

open(OUT, "| $sendmail $mailto -s $subject > NUL")

に変更。

サムソン 1999/11/26(金) 17:22:38
[[解決]]
無責任官庁さんのおっしゃるとおりに変更したらばっちりでした。
こんなにだらだらと長い質問に答えて頂き、ホントにホントに
本当にありがとうございました。

僕がかわいい女の子だったら感謝のキスでも送りたいところですが
ただの野郎ですので感謝の言葉でお礼申し上げます。

[上に] [前に] [次に]