#!/usr/bin/perl -

require './print_config.pl';

use lib './lib';
use Jcode; 
use CGI; 
use HTML::Template;
$cgi_pm = new CGI; 

$error_code2 = 'システムエラーです';

&main;

sub main {

	my %FORM = &read_form;

	my ($check_flag, @message) = &check_input(\%FORM);

	if ( @message ) {
		my $message_cash;
		foreach ( @message ) { $message_cash .= "$_<br>\n" }
		&print_error("入力 エラー", $message_cash);
	} else {
		&redirect(\%FORM);
	}


}

sub check_input {
	my ($args) = @_;
	my ($check_flag, @message);

	$check_flag = 1;

	if (! $args->{'mansion_name'}) {
		push (@message, "「物件名」が入力されていません");
		$check_flag = 0;
	}

	return  ($check_flag, @message);
}

sub redirect {
	my ($args) = @_;
	my ($buffer);

	$buffer  = $cgi_pm->h1($type);
	$buffer .= $message;

	$mansion_name = $args->{'mansion_name'};
	$mansion_name = jcode($mansion_name)->sjis;
#	&Jcode::convert(\$mansion_name,'sjis');

	$Template = $redirect ;
	%moves = (

	'msg' => $mansion_name
#	'msg' => $args->{'mansion_name'}
	);

if (!open(FH,"$Template")) { &error("$error_code2"); }

print qq(Content-Type:text/html;Charset=SHIFT_JIS\n\n);

while (<FH>) {
s/%(.+?)%/$moves{$1}/g;
print;
}

exit(0);

}



#--- エラー出力 ------------------------------------------------------
sub print_error {
	my ($type, $message) = @_;
	my ($buffer);

	$buffer  = $cgi_pm->h1($type);
	$buffer .= $message;

	$Template = $error_temp ;
	%moves = (
	'msg' => $message
	);

if (!open(FH,"$Template")) { &error("$error_code2"); }

print qq(Content-Type:text/html;Charset=SHIFT_JIS\n\n);

while (<FH>) {
s/%(.+?)%/$moves{$1}/g;
print;
}

exit(0);

}

#	print
#		$cgi_pm->header(-charset=>"$char_set"),
#		$cgi_pm->start_html(-title=>"エラー"),
#		$buffer,
#		$cgi_pm->end_html;
#	exit;



#--- フォームの読み込み ----------------------------------------------
sub read_form {
	my $cgi = new CGI; 
	my %form;

	foreach ($cgi->param) {
		$form{$_} = $cgi->param($_);
	}

	return %form;
}