Windows自宅サーバー用フォームメールの設定例（総集編）

改造版のpostmail．cgiファイル内の「▼基本設定部分」を設定して下さい。（「▼基本設定部分」は、オリジナル版と同じ構成にしています。）赤字部分は、環境に合わせて必ず設定する必要があります。

#!C:/Perl/bin/perl.exe
#!/usr/local/bin/perl

use strict;
use vars qw($DEBUG $SAFE); # 広域変数の定義

（中略）

#----------------------------------------------------------------------------
# PostMail(フォームメール)改造版                   2005.10.16 作成：鷹の巣
# POST-MAIL v3.3 (2005/11/02)　　　　　　　　　　　※改造:鷹の巣 2005.11.05
#-------------------------------------------------
#  ▼基本設定
#-------------------------------------------------

# 文字コード変換ライブラリ
require './jcode.pl';

# MIMEエンコードライブラリを使う場合（推奨）
#  → メールヘッダの全角文字をBASE64変換する機能
#  → mimew.plを指定
my $mimew = './mimew.pl';

# メールソフトまでのパス
#  → sendmailの例            ：/usr/lib/sendmail       （UNIXのsendmail）
#  → BlatJの例               ：c:\blatj\blatj.exe      （Windowsのblatj.exe）
#  → sendmaneの例            ：c:\sendmane\sendmane.exe（Windowsのsendmane.exe）※鷹の巣が追加
#  → Net::SMTPモジュールの例 ：空白にすること。                                 ※鷹の巣が追加
my $mailprog = ''; # 初期値は、Net::SMTPモジュールを使用する設定になっています。

# 送信先メールアドレス
my $mailto = 'xxx@xxx.xxx';

# 送信前確認
#  0 : no
#  1 : yes
my $preview = 1;

# メールタイトル
my $subject = 'フォームメール';

# 本体プログラムURL
my $script = './postmail.cgi';

# 確認画面テンプレート
my $tmp_conf = './tmp_conf.html';

# 一般エラー画面テンプレート
my $tmp_err1 = './tmp_err1.html';

# 入力エラー画面テンプレート
my $tmp_err2 = './tmp_err2.html';

# 送信後画面テンプレート
my $tmp_thx = './tmp_thx.html';

# 送信後の形態
#  0 : 完了メッセージを出す.
#  1 : 戻り先 ($back) へ自動ジャンプさせる.
my $reload = 0;

# 送信後の戻り先
#  → http://から記述する
my $back = 'http://www.xxx.xxx/';

# 送信は method=POST 限定 (0=no 1=yes)
#  → セキュリティ対策
my $postonly = 1;

# アラーム色
my $alm_col = "#DD0000";

# ホスト取得方法
# 0 : gethostbyaddr関数を使わない
# 1 : gethostbyaddr関数を使う
my $gethostbyaddr = 0;

# 送信元へ控え (CC) を送る
# 0=no 1=yes
# ＊セキュリティ上この機能は推奨しません.
# ＊name="email" のフィールドへの入力が必須となります.
# 鷹の巣が改造しています。0にする場合は、postmail.htmlの
# 「控えを送る（送信元へ写しを送信）」行を削除して下さい。
my $cc_mail = 1;

#-------------------------------------------------
#  ▼追加設定　　　　　　　　　　　※鷹の巣が追加
#-------------------------------------------------
# コマンドラインからの設定値チェックモード
# 最初のコマンドラインからの設定値チェック時のみ「1」とし、通常は、「0」にすること!!!
my $cmd_data_check = 0;

# デバッグモード
# 最初の動作試験時のみ「1」とし、運用直前にセキュリティ上「0」にすること!!!
# デバッグモードでは、Webサーバーから、簡易チェック
#   http://～～/postmail.cgi?mode=check
# が行えます。また、エラー表示には行番号が表示されます。
$DEBUG = 1;

# セーフモード
# セーフモードは、Net::SMTPモジュールを使用する時以外で有効となります。
# Perl.exeであっても、PerlIS.dllと同じ動作になります。（送信時に一時ファイルを作成します。）
# 最初の動作試験時のみ「1」とし先ずは、確実にメールが送信できることを確認して下さい。
# 但し、UNIXのsendmailを使用する場合には、必ず「0」にして下さい。
#
# セーフモードの利点
# 　1.メール本文が長い（大きい）場合にコマンドプロンプト画面のバッファサイズの影響を排除できる。
# 　　（コマンドプロンプト画面のタイトルバーで右クリックして、プロパティのレイアウトタブにて、
# 　　　画面のバッファサイズを幅80の高さ300以上にしておかなくても良い。）
# 　2.SMTPサーバーへの応答が多少速くなり、タイムアウトしにくくなる。
# セーフモードの欠点（普通の用途では、あまり欠点は表面化しないと思います）
# 　1.一時ファイルの作成と消去を行うので、メール送信頻度が多い場合、ディスクの断片化が生じる。
# 　2.速度の遅いディスクの場合に処理速度が多少低下する。
#
# Perl.exeの場合、送信成功確認後に「0」にすると、多少動作速度が速くなる場合があります。
#  → UNIXのsendmail     ：$SAFE = 0（必ず「0」にすること）
#  → WindowsのBlatJ     ：$SAFE = 1（Perl.exeの場合、「0」にしても良い）
#  → Windowsのsendmane  ：$SAFE = 1（Perl.exeの場合、「0」にしても良い）
#  → Net::SMTPモジュール：$SAFE = 無効。
$SAFE = 1;

# メール本文内のタイトル
my $title = 'フォームメール';

# フォームメール入力ページ名
my $postmail_html = './postmail.html';

# 送信に使用するSMTPサーバーの設定（$mailprog = ''で、Net::SMTPモジュールを使用する場合のみ有効。）
# SMTPサーバー名(自宅SMTPサーバーの場合はLAN内のブライベートアドレスや127.0.0.1でも可)
# my $mailserver = 'smtp.example.com'; # 接続プロバイダのSMTPサーバーのホスト名
# my $mailserver = '192.0.34.166';     # 接続プロバイダのSMTPサーバーのグローバルIPアドレス
# my $mailserver = '192.168.0.2';      # SMTPサーバーのLAN内のブライベートIPアドレス
# my $mailserver = '127.0.0.1';        # 自己診断用IPアドレスで自宅SMTPサーバーがWebサーバーと同居
my $mailserver = '127.0.0.1';

#-------------------------------------------------
#  ▲設定完了
#-------------------------------------------------

Windows自宅サーバー用フォームメールの設定方法（総集編）

1. まえがき

2. PostMail(フォームメール)で、これまでに解っている問題点と対策内容

3. PostMail(フォームメール)での迷惑メール（スパムメール）強化対策

4. その他の改造内容

5. PostMail(フォームメール)改造版の設置と動作試験