以下のCGIでは$MAILTO に送信されますが、追加的に、申込者に自動返信(文章つき)をするにはどのように修正するのですか。
#! c:/perl/bin/perl
require "jcode.pl";
require "mimew.pl";
$SENDMAIL = 'c:\sendmail\sendmail'; # sendmailのパス
$MAILTO = 'のがわ <nogawa@example.net>'; # メールの宛先
# フォームデータの取得
if($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
}
else {
$query = $ENV{'QUERY_STRING'};
}
# フォームデータの復元
foreach $pair (split(/&/, $query)) {
($key, $value) = split(/=/, $pair);
# 文字のデコード
$value =~ tr/+/ /;
$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
$FORM{$key} = $value;
}
# MIMEエンコード
$mail_to = mimeencode($MAILTO);
$mail_from = mimeencode($FORM{'name'});
$mail_subject = mimeencode($FORM{'subject'});
# 文字コードの変換
$body = jcode::jis($FORM{'msg'});
# メールヘッダーの生成
$header = <<END;
To: $mail_to
From: $mail_from<$FORM{'email'}>
Subject: $mail_subject
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
END
# メールの送信
open(MAIL, "| $SENDMAIL -i -t -f $FORM{'email'}")
or die("エラー:sendmailへのパイプが開けません");
print MAIL $header, $body;
close MAIL;
# サーバー出力
print <<END;
Content-type: text/html; charset=Shift_JIS
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>めーるふぉーむ</title></head>
<body>
<p>メールを送信しました。</p>
</body>
</html>
END
No.1ベストアンサー
- 回答日時:
はじめまして。
>申込者に自動返信(文章つき)をするにはどのように修正するのですか。
提示されたソースコードでは「申込者」に該当する部分が見当たらないので、何がしたいのかわかりません。
申し訳ありませんが、具体的に例示していただけませんか。
この回答への補足
申込フォームを記載するのを忘れました。以下です。
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head><title>めーるふぉーむ</title></head>
<body>
<h1>メールフォーム</h1>
<form action="./5-4.cgi" method="POST">
名前:<input type="text" name="name"><br>
電子メール:<input type="text" name="email"><br>
題名:<input type="text" name="subject" size="60"><br>
内容:<textarea name="msg" cols="60" rows="6"></textarea><br>
<input type="submit" value="送信する">
<input type="reset" value="リセット">
</form>
</body>
</html>
「申込者」はemailに相当する部分です。よろしく
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- PHP PHPでCookieを使った訪問回数について 1 2023/05/28 14:10
- HTML・CSS 私の能力からして間違っていないような気がします。 4 2022/09/30 13:24
- PHP PHPでユーザー情報を入力して簡易ログイン機能をつくってみたのですが 1 2023/05/29 08:51
- PHP PHP MySql 画像を取得 1 2022/06/04 14:05
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- PHP PHPのエラーの解消法について教えて下さい。 1 2023/02/06 10:48
- JavaScript ①入力フォーム→②確認表示画面→③送信完了画面のコードを書いているのです、 入力フォームから受け取っ 2 2022/05/10 16:45
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Perlからメール送信で文字化け
-
Application.ScreenUpdating = ...
-
python3について。
-
JSONで文字列が長い時
-
formで特定のinputを送信しない...
-
16進の10進変換について
-
FindFirst を複数条件で検索
-
<SELECT>タグの折り返し
-
セレクトボックスのselected属...
-
文字の横にプルダウンを表示さ...
-
メモリをアドレスを直接指定し...
-
VBA他のブックから値のみ貼付す...
-
実行時エラー 3020の対策
-
子windowsからsubmit()後にclos...
-
【至急!!!】python言語で本を見...
-
回数を指定しないで空白行まで...
-
ACCESS テキストボックスを隙...
-
テーブル内でドロップダウンメ...
-
VB6で、長い時間かかる処理...
-
複数のIP取得
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
sendmailで複数の宛先にメール...
-
フォームの日本語が文字化け
-
Perlからメール送信で文字化け
-
Sendmailで送信。メアドが違う...
-
CGI メールフォームからBCCのア...
-
perl フォームメール送信の...
-
Perl からbashを呼び出したい
-
sendmailで複数アドレスに送信...
-
perl で mailto: リンク
-
auのiPhoneでの受信メールが文...
-
sendmailが上手く動かないのか...
-
メールフォームの訪問者情報取...
-
自動返信について
-
crontabで
-
sendmailのFROMに日本語を使う
-
cgi.pmで作成されたsendmailプ...
-
メールのタグ(<a href="mailto:...
-
sendmailについて
-
netsend で振り分け
-
メールフォームCGIの文字化け。...
おすすめ情報