sub read_loopdata() {
	my ($form_url)=@_;
	my $loop_data;
	if (!open (FF,"$form_url")) {
		&template_error();
	}
	while(<FF>) {$template_data.=$_;}
	close(FF);

	&jcode'convert(\$template_data,"euc");
	$template_data=~/\<\!\-\-\-\-\{\#list_loop\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\#list_loop_end\}\-\-\-\-\>/gis;
	$loop_data=$1;
	
	return $loop_data;
}

sub template_view {
	my ($form_url,%set_data)=@_;
	my $template_data="";
#main
	if (!open (FF,"$form_url")) {
		&template_error();
	}
	while(<FF>) {$template_data.=$_;}
	close(FF);

	$template_data=&template_encode($template_data,$set_data);


	print "Content-type:text/html\n";
	print "\n";
	print $template_data;


	
}
sub template_buffer {
	my ($form_url,%set_data)=@_;


	my $template_data="";
	if (!open (FF,"$form_url")) {
		&template_error();
	}
	while(<FF>) {$template_data.=$_;}
	close(FF);

	$template_data=&template_encode($template_data,$set_data);


	return $template_data;
	
	exit (0);
}
sub template_encode {
	my ($template_data,%set_data)=@_;
	my $html="";
	my $key="";
	my $value="";

	while( ($key,$value)=each %HTML_OPT) {
		$html{$key}=$value;
	}



	while( ($key,$value)=each %set_data) {
		$html{$key}=$value;
	}

	if ($ENCODE_OPT eq '') {
		&jcode'convert(\$template_data,"euc");
	}
	my $set="";

	$template_data=~s/\<\!\-\-\-\-\{\#list_loop\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\#list_loop_end\}\-\-\-\-\>/<!----#list_loop---->/gis;


	foreach $a ($template_data=~/\<\!\-\-\-\-\{iftrue (.+?)\}\-\-\-\-\>/gi) {
		if ($html{$a} eq '') {
			$template_data=~s/\<\!\-\-\-\-\{iftrue $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iftrue $a\}\-\-\-\-\>//gis;
		}
		else {
			$template_data=~s/\<\!\-\-\-\-\{iftrue $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iftrue $a\}\-\-\-\-\>/$1/gis;
		}
	}
	foreach $a ($template_data=~/\<\!\-\-\-\-\{iffalse (.+?)\}\-\-\-\-\>/gi) {
		if ($html{$a} ne '') {
			$template_data=~s/\<\!\-\-\-\-\{iffalse $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iffalse $a\}\-\-\-\-\>//gis;
		}
		else {
			$template_data=~s/\<\!\-\-\-\-\{iffalse $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iffalse $a\}\-\-\-\-\>/$1/gis;
		}

	}
	
	foreach $a ($template_data=~/\<\!\-\-\-\-\{switch (.+?)\}\-\-\-\-\>/gi) {
		my @w=split(":",$a,2);
		if ($w[1] ne $html{$w[0]}) {
			$template_data=~s/\<\!\-\-\-\-\{switch $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/switch $w[0]\}\-\-\-\-\>//gis;
		}
		else {
			$template_data=~s/\<\!\-\-\-\-\{switch $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/switch $w[0]\}\-\-\-\-\>/$1/gis;
		}
	}
	foreach $a ($template_data=~/\<\!\-\-\-\-\/(.+?)\-\-\-\-\>/gi) {
		if ($html{$a} eq '') { $set='&nbsp;';}
		else {$set=$html{$a};}
		$template_data=~s/\<\!\-\-\-\-\/$a\-\-\-\-\>/$set/gi;
	}

	$template_data=~s/\<\!\-\-\-\-\#(.+?)\-\-\-\-\>/$html{$1}/gi;
	$template_data=~s/\<\!\-\-\-\-\#(.+?)\-\-\-\-\>//gi;

	

if ($_OPT{'term'} eq 'mobile') {
	$ttt=time();
	$S_TAG='ct='.$ttt;
	$S_NAME='ct';
	$S_ID=$ttt;
	
   $template_data =~s/(href=\"[^>\?\":\#]*)\?([^>\?\"]*\"[^>\?\"]*>)/$1?$S_TAG&$2/gi;
   $template_data =~s/(href=\"[^>\?\":\#]*)(\"[^>\?\"]*>)/$1?$S_TAG$2/gi;
   $template_data =~s/(<form[^>]*>)/$1<input type=\"hidden\" name=\"$S_NAME\" value=\"$S_ID\">/gi;
}

	if ($ENCODE_OPT eq '') {
		&jcode'convert(\$template_data,"$ENCODE_MODE");
	}
	return $template_data;
}




sub view_data {
	my ($form_url,$mode,%set_data)=@_;
	my $html="";
	my $key="";
	my $value="";
	my $template_data="";
	while( ($key,$value)=each %set_data) {
		$html{$key}=$value;
	}
	my $ff;
	if (!open ($ff,"$form_url")) {
		&template_error();
	}
	while (<$ff>) {$template_data.=$_; }
	close($ff);

	&jcode'convert(\$template_data,"euc");

	my $set="";
	foreach $a ($template_data=~/\<\!\-\-\-\-\{iftrue (.+?)\}\-\-\-\-\>/gi) {
		if ($html{$a} eq '') {
			$template_data=~s/\<\!\-\-\-\-\{iftrue $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iftrue $a\}\-\-\-\-\>//gis;
		}
		else {
			$template_data=~s/\<\!\-\-\-\-\{iftrue $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iftrue $a\}\-\-\-\-\>/$1/gis;
		}
	}
	foreach $a ($template_data=~/\<\!\-\-\-\-\{iffalse (.+?)\}\-\-\-\-\>/gi) {
		if ($html{$a} ne '') {
			$template_data=~s/\<\!\-\-\-\-\{iffalse $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iffalse $a\}\-\-\-\-\>//gis;
		}
		else {
			$template_data=~s/\<\!\-\-\-\-\{iffalse $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/iffalse $a\}\-\-\-\-\>/$1/gis;
		}

	}
	
	foreach $a ($template_data=~/\<\!\-\-\-\-\{switch (.+?)\}\-\-\-\-\>/gi) {
		my @w=split(":",$a,2);
		if ($w[1] ne $html{$w[0]}) {
			$template_data=~s/\<\!\-\-\-\-\{switch $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/switch $w[0]\}\-\-\-\-\>//gis;
		}
		else {
			$template_data=~s/\<\!\-\-\-\-\{switch $a\}\-\-\-\-\>(.+?)\<\!\-\-\-\-\{\/switch $w[0]\}\-\-\-\-\>/$1/gis;
		}
	}
	foreach $a ($template_data=~/\<\!\-\-\-\-\/(.+?)\-\-\-\-\>/gi) {
		if ($html{$a} eq '') { $set='&nbsp;';}
		else {$set=$html{$a};}
		$template_data=~s/\<\!\-\-\-\-\/$a\-\-\-\-\>/$set/gi;
	}

	$template_data=~s/\<\!\-\-\-\-\#(.+?)\-\-\-\-\>/$html{$1}/gi;
	$template_data=~s/\<\!\-\-\-\-\#(.+?)\-\-\-\-\>//gi;

	&jcode'convert(\$template_data,"$ENCODE_MODE");


if ($_OPT{'term'} eq 'mobile') {
	$ttt=time();
	$S_TAG='ct='.$ttt;
	$S_NAME='ct';
	$S_ID=$ttt;
	
   $template_data =~s/(href=\"[^>\?\":\#]*)\?([^>\?\"]*\"[^>\?\"]*>)/$1?$S_TAG&$2/gi;
   $template_data =~s/(href=\"[^>\?\":\#]*)(\"[^>\?\"]*>)/$1?$S_TAG$2/gi;
   $template_data =~s/(<form[^>]*>)/$1<input type=\"hidden\" name=\"$S_NAME\" value=\"$S_ID\">/gi;
}

	if ($mode eq 'buf') {
		return $template_data;
	}

	print "Content-type:text/html\n";
	print $set_cookies;
	print "\n";
	print $template_data;
	
	exit (0);
}


sub template_error {
	my ($err_code)=@_;
	print "Content-type:text/html\n";
	print "\n";
	print <<'EOF';
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=EUC_JP">
<title>system error</title>
</head>
<body>
ERROR!!070208<br>
Template file is not Found<br>
EOF
print "error_code:(".$err_code.")";
print <<'EOF';
</body>
</html>
EOF
exit;
}


1;