# ■管理者メールアドレス $AdminMail = 'web@pncs-net.com'; # ■CCメールアドレス $CcMail = ''; # ■設置サイトの最短URL $MyUrl = 'http://www.pncs-net.com'; # ■method形式チェック(ON=1/OFF=0) $MethodChkMode = '1'; # ■未入力データ送信(ON=1/OFF=0) $NullMode = '1'; # ■確認画面の自動リンク(ON=1/OFF=0) $AutoLinkMode = '1'; # ■自動リンクのターゲット $AutoTarget = '_blank'; # ■送信後にジャンプするURL $AfterUrl = 'http://www.pncs-net.com'; # ■アクセスログ記録(ON=1/OFF=0) $AccessLogMode = '1'; # ■アクセスログ最大件数(1ファイル) $MaxAccessLog = '100'; # ■最大アクセスログファイル数 $MaxAccessLogFile = '5'; # ■入力が同一である必要がある項目 @SameItem = ( ['E-Mail','再入力'], ); # ■フォームの項目 # [必須,改行,文字数,プレビュー,送信,有効書式,無効書式] @FormItem = ( { 'サブジェクト' => [1,0,30,1,0,'',''], }, { '名前' => [1,0,20,1,3,'',''], }, { '都道府県' => [1,0,0,1,3,'',''], }, { 'E-Mail' => [1,0,100,1,3,'',''], }, { '再入力' => [1,0,100,0,0,'',''], }, { '回答方法' => [1,0,0,1,3,'',''], }, { '控えメール' => [0,0,0,1,0,'',''], }, { '質問' => [1,1,500,1,3,'',''], }, ); # ■確認画面1項目分のHTML sub PreviewItem{ my($item,$data) = @_; print <$item $data TEXT } # ■メールアドレスとして認識させる項目名 $MailItemName = 'E-Mail'; # ■サブジェクトとして認識させる項目名 $SubjectItemName = 'サブジェクト'; # ■送信者へのメール送信の有無として認識させる項目名 $UserMailItemName = '控えメール'; # ■管理者へのメール上部 $MailAdminAbove = <<'TEXT'; <サンプル> TEXT # ■管理者へのメール下部 $MailAdminBelow = <<'TEXT'; ======================================= ■E-mail ■HP ======================================= TEXT # ■送信者へのメール上部 $MailUserAbove = <<'TEXT'; <サンプル> TEXT # ■送信者へのメール下部 $MailUserBelow = <<'TEXT'; ======================================= ■E-mail ■HP ======================================= TEXT 1;