|
formMail v3.00 ( formMail.zip ) |
#!/usr/bin/perl
# Setup Start --------------------------------------------------------------#
# データフォルダのパス
my $dataDir = './data/';
# ログファイルのパス
my $logFile = './data/formmail.log';
# テンプレートファイルのパス
my $templeteHTML = './html/templete.html';
# スタイルシートファイルのパス
my $cssFile = './html/css/common.css';
# センドメールのパス
my $sendmail = '/usr/sbin/sendmail';
# あなたのホームページ
my $homePage = 'http://www.xxx.xxx/';
# フォームメールの宛先
my $mailTo = 'xxx@xxx.xxx';
# フォームメールの件名
my $mailSubject = 'フォームメールが届きました';
# フォーム項目の定義
# [ '要素名', '表示名', '未入力チェックを行う( Yes=1, No=0 )', '複数行データとして扱う( Yes=1, No=0 )' ],
# 項目は行を追加または削除することで自由に増減可能です
# 但し name, mail, subject は必ず定義してください
my @fields = (
[ 'name', 'おなまえ', '1', '0' ],
[ 'mail', 'メールアドレス', '1', '0' ],
[ 'subject', 'タイトル', '1', '0' ],
[ 'comment', 'コメント', '1', '1' ],
);
# 送信確認画面を表示する( Yes=1, No=0 )
my $preview = '1';
# 送信確認画面で表示するメッセージ( タグ使用可能 )
my $previewMsg = '入力内容に間違いがなければ [送信する] ボタンを押してください。<br /><br />';
# 送信完了画面で表示するメッセージ( タグ使用可能 )
my $completeMsg = '
ありがとうございます。<br />
メールを送信しました。<br />
';
# 同一 IP アドレスからの再送信間隔( 秒単位 )
my $waitTime = '300';
# 送信者宛にコピーを送信する( Yes=1, No=0 )
my $sendCopy = '0';
# ロック処理を行う( Yes=1, No=0 )
my $lockFlag = '1';
# Setup End ----------------------------------------------------------------#
| <form method="post" action="cgi-bin/formmail.cgi"> |
[www]┐
├ ・・・(略)・・・.html ( このファイルに呼び出すためのタグを書く )
|
└ [cgi-bin] ┐
├ formMail.cgi <755> メインプログラム
|
├ [data]┐ <777> ログ格納ディレクトリ
| └ formmail.log <666> 多重送信防止用ログファイル
|
└ [html]┐ <644> テンプレート格納ディレクトリ
├ templete.html <644> テンプレートファイル
|
└ [css]┐ <644> CSS格納ディレクトリ
└ common.css <644> CSSファイル