#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
#----------------------------------------------------------------------
# アイライフ
# お問い合わせフォーム
#
# Create 2017/06 PANDA SAKATANI
# Update ----/--
#----------------------------------------------------------------------

use strict;
use lib '../p-cgi/cgi-lib';
use App::Define;
use PTool;

my $app = CgiApp->new(
	PARAMS => {
		#テンプレート
		TMPL_FORM			=> 'contact/index.html',
		TMPL_KAKUNIN		=> 'contact/contact_preview.html',

		#完了画面
		URL_THANKS			=> 'contact_thanks.html',

		#メールアドレス
		EMAIL_FROM			=> &App::Define::EMAIL,
		EMAIL_TO			=> ['mailaddress'],

		EMAIL_FROM_KANRI	=> &App::Define::EMAIL,
		EMAIL_TO_KANRI		=> [&App::Define::EMAIL],

		#メールテキスト
		TMPL_MAIL			=> 'contact/mail.txt',
		TMPL_MAIL_KANRI		=> 'contact/mail_kanri.txt',

		#入力項目
		QUERY_PARAM => {
			'name'				=> 'TEXT',
			'kana'				=> 'TEXT',
			'mailaddress'		=> 'TEXT_ASCII',
			'companyname'		=> 'TEXT',
			'zip'				=> 'TEXT_ASCII',
			'address'			=> 'TEXT',
			'tel'				=> 'TEXT_ASCII',
			'comments'			=> 'TEXT',
		},

		FORM_TARGET_ID			=> 'form_box'
	}
);

$app->run();


#----------------------------------------------------------------------
# モジュール
#----------------------------------------------------------------------
package CgiApp;
use strict;
use base 'App::BaseForm';
use vars qw($VERSION);
$VERSION = 1.00;

use PAppCheckQuery;


#----------------------------------------------------------------------
# 入力内容のチェック
#----------------------------------------------------------------------
sub check {
	my $self = shift;
	my $session_query	= $self->get_session_data();

	my $query = $self->query;

	my @message;
	my $check = new PAppCheckQuery(query => $query, message => \@message);

	$check->exec('お名前',				'name',				'NOBLANK');
	$check->exec('フリガナ',			'kana',				'NOBLANK');
	$check->exec('メールアドレス',		'mailaddress',			'NOBLANK__EMAIL');
	$check->exec('郵便番号',			'zip',				'NUMERIC__LENGTH-7');
	$check->exec('電話番号',			'tel',				'TEL');
	$check->exec('お問い合わせ内容',	'comments',			'NOBLANK');

	return @message;
}


1;