複数のアドレスを設定できるメールフォーム

Question

上記メールフォームCGIを探しています。

企業内で使用するため各店舗用メールアドレスがあり、それぞれの店舗に直接メールを送れるような仕組みが必要です。
複数アドレスに送信可能なものとして
http://www.psl.ne.jp/perl/form_mailer.html
を見つけましたが、この方法だと店舗数分のフォームHTMLと設定ファイルが必要なようです。
ファイル数を増やすことはあまりしたくないので、これはちょっと不向きです。

たとえば…
各ページに送信ボタンを配置し、「./*.cgi?tenpo=**」という感じで書き込み、CGIのほうで店舗名とメールアドレスが書かれたリストを照合してそのメールアドレス宛に送る、といった感じのCGIはないでしょうか?

単に直接アドレスを載せればいいだけかもしれませんが、スパムの攻撃を出来るだけ避けたいのでフォームを使用したいと思っています。
また、金銭的余裕もないのでフリーの物を探しています。

よろしくお願いします。

Marionette · Accepted Answer

さらにミス? 何度もすみませんね。

すでにお気づきでしょうが、サブルーチンにしたら localじゃまずかったですね。
($id,$ps,$URL,$mail)= split(/,/,$_); 
としてください。

Marionette · Answer

open(EMAIL,"|$sendmail $mail") || &error("Can\'t sendmail: $!"); 
でした。

Marionette · Answer

整理して書くと下のようになります。分かりやすくするため送信部はサブルーチンです。

foreach (@file) {
　local($id,$ps,$URL,$mail)= split(/,/,$_);
　chomp($mail); 
　if ($in{'id'} eq $id) {
　　&SendTheMail;
　　exit
　}
　&error;
　exit
}

見れば分かると思いますが、必ず &errorが実行されます。
idが一発目で一致したら送信後にエラー、そうでなければエラー出力しておしまいです。

このように送信部分をサブルーチンにしたほうが分かりやすくスッキリします。
ついでにいうとデコード部分、終了メッセージも別サブルーチンにすればもっと見通しがよくなります。
私の好みというところも大いにありますが。

foreach (@file) {
　local($id,$ps,$URL,$mail)= split(/,/,$_);
　chomp($mail); 
　if ($in{'id'} eq $id) {
　　&SendTheMail;
　　&DispMassage;
　}
}

Sub SendTheMail {
　　&Decording;
　　&jcode'convert(*message,'jis');
　　open(EMAIL,"|$sendmail $mail || &error("Can\'t sendmail: $!");");
：
：
}

Sub Decoring {
　$message = <<_MESSAGE_;
Subject: $in{'subject'}
：
：
}

Sub DispMassage {
　print <<_END_;
Content-type: text/html

<html>
：
：
}

open(EMAIL,"|$sendmail $mail || &error("Can\'t sendmail: $!");");
に少し追加されてますが、これは sendmailプロセスがオープンできなかった場合に &errorを実行します。
単純に「die...」とやってもいいと思います。
見やすくするため全角スペースを使ってますので注意してください。
それともう少しいろいろと配慮したスクリプトを採用した方がよいと思います。
例えばメールヘッダの「Content-Type:」指定や、二重送信防止など。

Marionette · Answer

>「入力エラー。送信アドレスが正しくありません。」 
この「入力」という言葉が気になりますが、「送信アドレス」なんだから問い合わせを
して来たのアドレスとこんがらがっているってことはないのでしょうね。

馬鹿なことを確認しました。すみませんです。
細かいことも確認しないと気が済まない質なものですから。

Marionette · Answer

大きく勘違いしていたようですみませんです。
てっきり管理部署から、各店舗あてに共通の連絡メールを出すものと早合点してしまいました(自分がそういう要求で作ったもので)。

それで、肝心のメールアドレス判定部がないので何ともいえませんが、気づいた点を二つだけ。
# エラーチェックはメールアドレスだけでしょうか。
# 送信者 -問い合わせをした人- のアドレス形式の正当性チェックや入力項目の
# 抜けなどは確認表示部にあるのでしょうか?

本題とは無関係でしょうが、フォームの「Content-type」と「<HTML>」のあいだに改行のみの行が必要です。

> foreach (@file) { 
>    local($id,$ps,$URL,$mail)= split(/,/,$_); 
> if ($in{'id'} eq $id){ 
よくあるミスですが、このあと何もしていなければ「$mail」には、改行コードが含まれていると思います。
比較対象には含まれていないのではありませんか?
chomp($mail);
で改行コードを取り去って確認してみてください。

間違ったアドバイスかもしれませんが、その際はご容赦ください。

------------------------------------------------
> html→htmlにデータを送ることは出来ないと考え、「index.html」をCGI内部に格納しました。 
もちろんそうです、独立したままCGIかしたらより簡単だけどと思っただけです。
規模が小さくて把握できるなら、取り込んで一つのCGIにしても全然かまいません。

Marionette · Answer

訂正します。

>要するに「フォームもリストを読み込んで作成し、送信用
>CGIの呼び出し元をフォームにすれば」ということです。
↓
「送信先一覧をリストを読み込んで作成し、送信用フォームに渡してやれば、、、」です。

print "<INPUT type=\"submit\" value=\"送信\">\n";
↓
print "<INPUT type=\"submit\" value=\"送信フォーム\">\n";

Marionette · Answer

いまさらですが、送信する内容は店舗ごとに違う内容なんでしょうか?

もしそうなら、私が書いたことはてんでピント外れですね。

ところで、送信FORM用のHTMLが別だと何か不都合でもあるのですか?
もちろんcgiにしないといけませんが、別のままの方が極わずかな修正ですみます。
要するに「フォームもリストを読み込んで作成し、送信用CGIの呼び出し元をフォームにすれば」ということです。
↓ポイントだけ書くとこんな感じでしょうか?

#/usr/bin/perl

print << EOD1;
Content-type: text/html

<HTML> # ここが元々のHTMLの開始点
<HEAD>
：
：
EOD1

&Read_List; # 送信先リスト読み込み
foreach (@file) {
：
：
print "<form action="\mail_send.cgi\" method=\"post\">\n";
print "<INPUT type=\"hidden\" name=\"id\" value=\"$id\">\n";
print "<INPUT type=\"submit\" value=\"送信\">\n";
print "</form>\n";
：
：
}

print << EOD2;
：
：
</BODY>
</HTML>
EOD2

リストを読み込む部分はの共通の設定用スクリプトにでも追加してやればOKでしょう。

全然動かずだけでは分かりません。
どんな症状なのか、エラーログには何も残っていないのか。コンソールでコマンドを実行したらどうなのか等々。
漢字コードの問題で表示されないだけということもあり得ます。

Marionette · Answer

あんまり見たことないですね。出来合いのものを改造したらどうですか。

私がやった方法は、送信先編集用のCGIでアドレス帳(テキストデータ)を作り、
送信用のCGIはアドレス帳に従って送信するというものです。
下のようなデータで、フォームで内容区分を選択して○の所だけに送信するようになってます。

　　　　　　             
送信先　メールアドレス　　内容区分１　　２　　３
-----------------------------------------------
　Ａ　　aaa@****.***.jp　　　　○　　×　　○
　Ｂ　　bbb@****.**.jp　　　　　○　　○　　×
　Ｃ　　cccc@***.****.jp　　　　×　　○　　×
　：
　：

あとはそうですね、フォームで入力した送信データに
-----------------------------
From: xxx@xxx.xxxx.xxx
To: [Send_To]

[送信先] 様
自動送信メールの断り書き
------------------------------
こんな形でメールヘッダと本文を追加して[Send_To]と
[送信先]を実際のものに変換するようにしております。

それでは頑張ってください。

chunx2 · Answer

参考URLの Yomi-Mailer などはいかがでしょうか。
こいつはCGIで複数のフォームを設定出来るので、各アドレスごとにフォーム用のhtmlを作ったりしなくてもいいです。
CGI1つで複数のフォームを作れるので、各店舗ごとにアカウントを作って、メアド等の設定をしさえすれば、ご希望のような感じでタグを書けば良いだけです。
私も会社のHPを作るとき色々探していて、これに辿り着きました。

参考URL：http://yomi.pekori.to/

複数のアドレスを設定できるメールフォーム

さらにミス? 何度もすみませんね。

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

整理して書くと下のようになります。

>「入力エラー。

この回答への補足

大きく勘違いしていたようですみませんです。

この回答への補足

訂正します。

この回答への補足

いまさらですが、送信する内容は店舗ごとに違う内容なんでしょうか?

あんまり見たことないですね。

参考URLの Yomi-Mailer などはいかがでしょうか。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング