シンプルMail送信CGI

目次

注意事項

本プログラムは無料でお使いいただけます

特に料金を徴収することなどはありませんので、ご自由に、各自の責任の範囲内においてご利用下さい。なお、本製品を使用した、或いは使用しないことにおけるあらゆる責任は、弊社では負いかねますのでご了承下さい。

改変はご自由にどうぞ

基本的にうちで面倒を見るつもりはまったくないのですが、自分でどうにかできるようであれば、自由にプログラムを作り変えてください。多分、いい勉強になります。
ちなみに、プログラムに手を入れるのであれば、まずは「インデントをそろえて」「改行を入れなおして」「コメントを入れて」からにしたほうが、いろいろな意味で楽が出来ます。

細かい使い勝手は期待しないで下さい

基本的に「とりあえず」使いたい人用のものになります。ので「入力のチェックをしたい」とか、そういう使い勝手は期待しないで下さい。

使用できるサーバに限定があります

一言で片付けると「sendmailないしsendmailコマンドを持つSMTPサーバ（メール送信サーバ）があるところ、となります。UNIX系のサーバなら確実に大丈夫だと思うのですが、Windows系のサーバでどうなるかはわかりません（sendmailがインストールされていたとしても）。
SMTPを直接しゃべるようなコードは、このプログラムには期待しないで下さい。

こまかいセキュリティーホールは色々あります

詳しく書くつもりは毛頭ないのですが。厳密には、色々とバグだのセキュリティーホールだのが放置されています（もっとも、この発言のレベルで考えると、巷のCGIの大半には同様にセキュリティーホールが潜まれていることになるのですが）。手がかりのために、一つだけ書いてみましょう。CONTENT_LENGTHが、常に標準入力と等しい文字数を還してくるとは限りません。が、その辺には対応していません（世間のCGIのどの程度が対応しているか、という問題はさておき）。

使い方

ご用意いただくもの：料理番組的には"材料紹介"

受信用のメールアドレス

入力したデータを受け取るための、メールアドレスをご用意下さい。とりあえず、これがないとなにも始まりません。

入力用のHTML

ユーザが入力するためのPageが必要になります。とりあえず簡単に必要事項を。
メソッドはPOSTを指定してください。GETないし無指定の場合、きちんと動きません。
INPUTタグのname属性は、わかりやすい名前にしておいたほうが後々楽です。
で、上記の説明で作り方がわからない場合、Webとか本とかで各自お調べ下さい。

御礼Page

入力が終わって送信した後に出る画面が必要です。とりあえずどこかに「ありがとうございました」くらい書いておくとよいと思います。

エラーPage

もちろん何らかのエラーが起きることはありえます。そんなときのためのPageです。「エラーが起きました」「ブラウザの戻るボタンで戻ってください」「何回もエラーが出るときは管理者にメールしてください」などの文言があると親切ですね。

jcode.plのプログラム

んと。現在はネットのあちこちに転がっていますので、適当にダウンロードしてください。検索エンジンで「jocde.pl」とかやると、他のサイトで親切な「入手方法」が見つかるかと思います。ので、ここでは省略します。

本プログラム

まぁ、とりあえず「メインの食材」ですし。

プログラムの修正：作り方

perlへのパス

sendmailへのパス

メールの送り先

御礼Page

運用方法

準備

テスト

• perlのパスは正しいですか？
• ファイルのパーミッションは正しいですか？
• CGIへのパス（入力用HTMLの中に設定されています）は正しいですか？
• メソッドにちゃんとPOSTを指定していますか？
• 御礼Page、エラーPageはちゃんとアクセスできますか？

仮運用

本番

その後

最後に

プログラム本体

#!/usr/bin/perl -w
# 
# シンプルフォームメール Vol 0.1
# make by Michiaki furusho(furu@m-fr.net)
#
# このCGIは、とってもシンプルなフォームメールを実現させます。
# 必要なものはほんの少しだけになりますので、お気軽にご設置ください。
# 
# 変更履歴
# 2002/04/17	とりあえず新規作成
# 

#-------------------------------------------------
#--- 以下、どーしても設定してもらわないと困る部分
#-------------------------------------------------

# sendmailの場所。わからなければ、これだけはプロパイダさんとかに聞いてください
$SendMail='/usr/sbin/sendmail';

# メールの送り先。あなたのメールアドレスを入れてください。
$To='furu@m-fr.net';

# メールの出力に成功したときのお礼のメッセージのURL
# httpから書き出してください(httpsでも大丈夫ですが）
$FinUrl='http://www.foo.com/sccess.html';

# なんかエラーになっちゃったときのエラー表示のURL
# httpから書き出してください(httpsでも大丈夫ですが）
$ErrorUrl='http://www.foo.com/error.html';

#-------------------------------------------------
#--- 以上で設定終わり。後は気にせずに。
#-------------------------------------------------

$From = 'furu@m-fr.net';
$Subject = 'Simple Form Mail Vol 0.1';
$Copylighte = 'Simple Form Mail by Michiaki Furusho(furu@m-fr.net)';

require 'jcode.pl';
#-----------------
sub errorPut{ print "Location:$ErrorUrl\n\n"; }
sub Decode{ local(*DecData) = @_; $DecData =~ s/\+/ /g; $DecData =~ s/%(..)/pack("c",hex($1))/ge; }
#-----------------

my ($Data); my (@CutData); my($Length);
$Length = $ENV{"CONTENT_LENGTH"}; $Length += 0;
if ($Length <= 0) { errorPut(); exit(1); }
if ($Length > 10000) { errorPut(); exit(1); }
read(STDIN,$Data,$Length); @CutData = split ('&' , $Data);

my($retString); my($work); local($name, $value);
$retString = "From: $From\n" . "To: $To\n" . "Subject: $Subject\n";
$retString .= "\n";
foreach $work (@CutData){
($name,$value) = split("=",$work);
Decode(*name); $retString .= "[$name]\n";
Decode(*value); $value = jcode::euc($value); $retString .= "$value\n\n";
} $retString .= $Copylighte;

if (open(SENDMAIL_FP, "| $SendMail -i -t")) {
print SENDMAIL_FP jcode::jis($retString); print "Location: $FinUrl\n\n";
} else { print "Location: $ErrorUrl\n\n"; }
exit(0);