#!/usr/bin/perl

use strict;
use CGI;
use HTML::Template;
use HTML::FillInForm;

my $q = CGI->new;
my @err;

if($q->param('mode') eq "reg"){

	push(@err,"郵便番号が正しく入力されていません") unless($q->param('zip') =~ /^\d{7}$/);
	
	if($#err == -1){
		my $tmpl = HTML::Template->new(
			filename => 'index_fin.tmpl.html',
			loop_context_vars=>1,
			die_on_bad_params=>0,
			associate=>$q
		);
		print $q->header(
			-charset=>'EUC-JP',
			-expires=>'now',
			-pragma=>'no-cache',
			-cache_control=>'no-cache'
		);
		print $tmpl->output;
		exit;
	}

}


#エラー
$q->param('err',[map{{val=>$_}} @err]);

#HTML出力
my $tmpl = HTML::Template->new(
	filename => 'index.tmpl.html',
	loop_context_vars=>1,
	die_on_bad_params=>0,
	associate=>$q
);
my $fif = HTML::FillInForm->new;
print $q->header(
	-charset=>'EUC-JP',
	-expires=>'now',
	-pragma=>'no-cache',
	-cache_control=>'no-cache'
);
print $fif->fill(scalarref=>\$tmpl->output,fobject=>$q,target=>'form1');