#!/usr/local/bin/perl

##=======================================================================##
## AD-EDIT TEMPLATE-EDIT v4.2.7
## (c)2008-2012 NorenzPRO Ltd. TakafumiArai 2012/7/11
##=======================================================================##
use CGI::Carp qw(fatalsToBrowser);

##=======================================================================##
## 設定項目
##=======================================================================##

##★ライブラリ
use CGI;
use Encode;
require '../admin/aelib.cgi';

##★このスクリプトの名前
$cginame = 'index.cgi';

##★データファイルのパス
$datafile = './data.dat';

##★テンプレートファイルのパス
$tempfile = './temp.dat';
$temp2file = './temp2.dat';

##★アップロード画像格納ディレクトリ（相対・絶対パス）
$img_dir = './file/';

##=====================================================================================##
##メインルーチン
##=====================================================================================##

##システム設定ファイル読込
$servconf = '../admin/conf.dat';
if (-e $servconf) {
	open(SVCFGRD,"$servconf");
	@SVCONF = <SVCFGRD>;
	close(SVCFGRD);
	##文字コード判定→UTF8変換
	my $contCC=&checkCharCode($servconf);
	if ($contCC eq 'shiftjis') {
		foreach (@SVCONF) { Encode::from_to($_, 'shiftjis', 'utf8'); }
	}
	$Domain =$SVCONF[3];
	$Domain =~ s/\r//g; $Domain =~ s/\n//g;
	$RootPath =$SVCONF[10];
	$RootPath =~ s/\r//g; $RootPath =~ s/\n//g;
	$PathConvert =$SVCONF[12];
	$PathConvert =~ s/\r//g; $PathConvert =~ s/\n//g;
	$pcoutCode =$SVCONF[22];
	$pcoutCode =~ s/\r//g; $pcoutCode =~ s/\n//g;
}
if ($pcoutCode eq '') { $pcoutCode='sjis'; }

##設定ファイル読込
$conffile='./conf.dat';
open(CONFRD,"$conffile");
@CONF = <CONFRD>;
close(CONFRD);
##文字コード判定→UTF8変換
my $contCC=&checkCharCode($conffile);
if ($contCC eq 'shiftjis') {
	foreach (@CONF) { Encode::from_to($_, 'shiftjis', 'utf8'); }
}
$PageTitle =$CONF[3];
$PageTitle =~ s/\r//g;$PageTitle =~ s/\n//g;
$pageview =$CONF[4];
$pageview =~ s/\r//g;$pageview =~ s/\n//g;
$SkinFile =$CONF[5];
$SkinFile =~ s/\r//g;$SkinFile =~ s/\n//g;
$SkinFile ='..'.$SkinFile;
$ImgLot =$CONF[10];
$ImgLot =~ s/\r//g;$ImgLot =~ s/\n//g;
$FileTypeLine =$CONF[13];
$FileTypeLine =~ s/\r//g;$FileTypeLine =~ s/\n//g;
@FileType=split(/:/,$FileTypeLine);
$DirName =$CONF[14];
$DirName =~ s/\r//g;$DirName =~ s/\n//g;
$PageHeadMsg =$CONF[15];
$PageHeadMsg =~ s/\r//g;$PageHeadMsg =~ s/\n//g;
$PageHeadMsg = &inline_link($PageHeadMsg);
$PageHeadMsg = &tag_change($PageHeadMsg);
$PageHeadMsg =~ s/<br>/<br \/>\&\#32\;/g;
$PageHeadMsg = &cgi_include($PageHeadMsg);
$PageHeadMsg = &url_import($PageHeadMsg);
$NaviBack =$CONF[17];
$NaviBack =~ s/\r//g;$NaviBack =~ s/\n//g;
$NaviNext =$CONF[18];
$NaviNext =~ s/\r//g;$NaviNext =~ s/\n//g;
$HtmlHeader =$CONF[24];
$HtmlHeader =~ s/\r//g;$HtmlHeader =~ s/\n//g;
$HtmlHeader =~ s/<br>/\n/g;
$PgTitleClass =$CONF[25];
$PgTitleClass =~ s/\r//g;$PgTitleClass =~ s/\n//g;
$hdPageTitle =$CONF[30];
$hdPageTitle =~ s/\r//g;$hdPageTitle =~ s/\n//g;
$ctgA =$CONF[101];
$ctgA =~ s/\r//g;$ctgA =~ s/\n//g;
$ctgB =$CONF[102];
$ctgB =~ s/\r//g;$ctgB =~ s/\n//g;
$ctgC =$CONF[103];
$ctgC =~ s/\r//g;$ctgC =~ s/\n//g;
$pcEmptyAlert =$CONF[104];
$pcEmptyAlert =~ s/\r//g;$pcEmptyAlert =~ s/\n//g;

if ($NaviBack eq '') { $NaviBack='[＜＜ＢＡＣＫ]'; }
if ($NaviNext eq '') { $NaviNext='[ＮＥＸＴ＞＞]'; }
if ($hdPageTitle eq '') { $hdPageTitle=$PageTitle; }

##日付・時刻情報の取得
$ENV{'TZ'} = "JST-9"; 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$yr2d = $year-2000;
$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$mon];
$mon++;
$mon2d=sprintf("%02d",$mon);
$mday2d=sprintf("%02d",$mday);
$youbi = ('日','月','火','水','木','金','土') [$wday];
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
$xmon=sprintf("%02d",$mon);
$xmday=sprintf("%02d",$mday);
$xhour=sprintf("%02d",$hour);
$xmin=sprintf("%02d",$min);
$DATE3 = $year.$xmon.$xmday.$xhour.$xmin.'';

##フォームの取得
my $query = CGI->new;
*in = $query->Vars();
if ($pcoutCode eq 'sjis') {
	foreach (%in) {
		Encode::from_to($_, 'shiftjis', 'utf8');
		$_ =~ s/</&lt;/g;
		$_ =~ s/>/&gt;/g;
	}
}
if ($in{'ctgA'} ne '') { $addCtg=$addCtg.'&amp;ctgA='.$in{'ctgA'}; }
if ($in{'ctgB'} ne '') { $addCtg=$addCtg.'&amp;ctgB='.$in{'ctgB'}; }
if ($in{'ctgC'} ne '') { $addCtg=$addCtg.'&amp;ctgC='.$in{'ctgC'}; }

##キャリア転送
$ua = $ENV{"HTTP_USER_AGENT"};
if ($ua =~ /DoCoMo\/1\.0/i) { $xCR='mobi'; }
elsif ($ua =~ /Mozilla/i) { $xCR='pc'; }
elsif ($ua =~ /(DoCoMo\/2\.0|FOMA)/i) { $xCR='mobi'; }
elsif ($ua =~ /^(SoftBank|Vodafone|J\-PHONE|MOT\-[CV])/i) { $xCR='mobi'; }
elsif ($ua =~ /^UP\.Browser/i) { $xCR='mobi'; }
elsif ($ua =~ /^(KDDI\-|OPWV|MMP)/i) { $xCR='mobi'; }
else { $xCR='pc'; }
if ($xCR eq 'mobi') {
	print "Location:mobi.cgi?pg=".$in{'pg'}."\n\n";
	exit;
}

##==============メインアクション==============

&list;
exit;

##=====================================================================================##
##サブルーチン
##=====================================================================================##
sub html_head {

if ($RootPath ne '') {
	$RssURL='http://'.$Domain.'/'.$RootPath.'/'.$DirName.'/rdfout.cgi';
} else {
	$RssURL='http://'.$Domain.'/'.$DirName.'/rdfout.cgi';
}
$RdfTag='<link rel="alternate" type="application/rss+xml" title="'.$hdPageTitle.'" href="'.$RssURL.'" />';

#スキンページ読込
&page_read;

print "Content-type: text/html\n\n";
$phi=0;
foreach (@PHEAD) {
	if ($pcoutCode eq 'sjis') { Encode::from_to($PHEAD[$phi], 'utf8', 'shiftjis'); }
	print $PHEAD[$phi];
	$phi++;
}

}
##=======================================================================================
sub html_foot {

#スキンページ読込
&page_read;

$pfi=0;
foreach (@PFOOT) {
	if ($pcoutCode eq 'sjis') { Encode::from_to($PFOOT[$pfi], 'utf8', 'shiftjis'); }
	print $PFOOT[$pfi];
	$pfi++;
}

}
##=======================================================================================
sub list {

##フォーム取得
$input_pline = $in{'pline'};

&html_head;
if ($PgTitleClass ne '') { $addTitleClass=' class="'.$PgTitleClass.'"'; }

if ($PageTitle ne '') {
	$tagBody= '<h2'.$addTitleClass.'>'.$PageTitle.'</h2>';
	if ($pcoutCode eq 'sjis') { Encode::from_to($tagBody, 'utf8', 'shiftjis'); }
	print $tagBody;
}
if ($PageHeadMsg ne '') {
	$tagBody= '<div class="KijiArea">'.$PageHeadMsg.'</div>'."\n";
	if ($pcoutCode eq 'sjis') { Encode::from_to($tagBody, 'utf8', 'shiftjis'); }
	print $tagBody;
}
&html_list;
&html_foot;

exit;
}
##=======================================================================================
sub html_list {

&data_read; 
if ($in{'mode'} eq 'preview') {
	@NEW = grep(/code=$in{'code'}\t/,@DATA);
} else {
	##カテゴリ処理
	if (($in{'ctgA'} ne '')&&($in{'ctgB'} eq '')&&($in{'ctgC'} eq '')) {
		@DEF = grep(/code=/,@DATA);
		@PRE = grep(/\tctgA=$in{'ctgA'}\t/,@DEF);
	} elsif (($in{'ctgA'} eq '')&&($in{'ctgB'} ne '')&&($in{'ctgC'} eq '')) {
		@DEF = grep(/code=/,@DATA);
		@PRE = grep(/\tctgB=$in{'ctgB'}\t/,@DEF);
	} elsif (($in{'ctgA'} eq '')&&($in{'ctgB'} eq '')&&($in{'ctgC'} ne '')) {
		@DEF = grep(/code=/,@DATA);
		@PRE = grep(/\tctgC=$in{'ctgC'}\t/,@DEF);
	} elsif (($in{'ctgA'} ne '')&&($in{'ctgB'} ne '')&&($in{'ctgC'} eq '')) {
		@DEF = grep(/code=/,@DATA);
		@PREA = grep(/\tctgA=$in{'ctgA'}\t/,@DEF);
		@PRE = grep(/\tctgB=$in{'ctgB'}\t/,@PREA);
	} elsif (($in{'ctgA'} eq '')&&($in{'ctgB'} ne '')&&($in{'ctgC'} ne '')) {
		@DEF = grep(/code=/,@DATA);
		@PREB = grep(/\tctgB=$in{'ctgB'}\t/,@DEF);
		@PRE = grep(/\tctgC=$in{'ctgC'}\t/,@PREB);
	} elsif (($in{'ctgA'} ne '')&&($in{'ctgB'} eq '')&&($in{'ctgC'} ne '')) {
		@DEF = grep(/code=/,@DATA);
		@PREC = grep(/\tctgC=$in{'ctgC'}\t/,@DEF);
		@PRE = grep(/\tctgA=$in{'ctgA'}\t/,@PREC);
	} elsif (($in{'ctgA'} ne '')&&($in{'ctgB'} ne '')&&($in{'ctgC'} ne '')) {
		@DEF = grep(/code=/,@DATA);
		@PREA = grep(/\tctgA=$in{'ctgA'}\t/,@DEF);
		@PREB = grep(/\tctgB=$in{'ctgB'}\t/,@PREA);
		@PRE = grep(/\tctgC=$in{'ctgC'}\t/,@PREB);
	} else {
		@PRE = grep(/code=/,@DATA);
	}
	##公開指定のみ@DATAへ
	$i=0;
	foreach(@PRE) {
		$FILE{'vSt'}='200001010000';$FILE{'vFn'}='299912310000';
		@termLine=split(/\t/,$PRE[$i]);
		foreach (@termLine) {
			($key, $value) = split(/=/,$_);
			$FILE{$key} = $value;
		}
		if (($DATE3 > $FILE{'vSt'})&&($DATE3 <= $FILE{'vFn'})) { push(@TERM,$PRE[$i]); }
		$i++;
	}
	if ($in{'mode'} eq 'result') {
		@TRUE = grep(/code=$in{'code'}\t/,@TERM);
		@NEW = grep(/\tshow=on\t/,@TRUE);
	} elsif ($in{'detail'} ne '') {
		@TRUE = grep(/code=$in{'detail'}\t/,@TERM);
		@NEW = grep(/\tshow=on\t/,@TRUE);
	} elsif ($in{'pg'} ne '') {
		@TRUE = grep(/code=$in{'pg'}\t/,@TERM);
		@NEW = grep(/\tshow=on\t/,@TRUE);
	} elsif ($in{'pg2'} ne '') {
		@TRUE = grep(/code=$in{'pg2'}\t/,@TERM);
		@NEW = grep(/\tshow=on\t/,@TRUE);
	} else {
		@TRUE = grep(/code=/,@DATA);
		@NEW = grep(/\tshow=on\t/,@TERM);
	}
}
if ($in{'pline'} eq '') { $pline = 0; } else { $pline = $in{'pline'}; }
$end_data = @NEW - 1;
$page_top = $pline;
$page_end = $pline + ($pageview - 1);
if ($page_end >= $end_data) { $page_end = $end_data; }

if (($in{'detail'} ne '')||($in{'pg2'} ne '')) { &temp2read;  }else { &temp_read; }
if ($pcoutCode eq 'sjis') { Encode::from_to($TempHead, 'utf8', 'shiftjis'); }
print $TempHead;

$EmptyFlag=@NEW;
if ($EmptyFlag==0) { print $pcEmptyAlert; }

for ($pline .. $page_end) {
	$f1_code='';
	@f_filetag=();
	@fb_filetag=();
	@fm_filetag=();
	@f_imagetag=();
	@fb_imagetag=();
	@fm_imagetag=();
	%FILE=();
	@LINE = split(/\t/,$NEW[$_]);
	foreach (@LINE) {
		($key, $value) = split(/=/,$_);
		$value =~ s/\|eq\|/=/g;
		$value =~ s/<br>/<br \/>/g;
		$value =~ s/<BR>/<br \/>/g;
		$FILE{$key} = $value;
	}
	$f1_code = $FILE{'code'};
	$f1_show = $FILE{'show'};
	$f1_message = $FILE{'message1'};
		$f1_message = &tag_change($f1_message);
		$f1_message = &cgi_include($f1_message);
		$f1_message = &url_import($f1_message);
	$f2_message = $FILE{'message2'};
		$f2_message = &tag_change($f2_message);
		$f2_message = &cgi_include($f2_message);
		$f2_message = &url_import($f2_message);
	$f3_message = $FILE{'message3'};
		$f3_message = &tag_change($f3_message);
		$f3_message = &cgi_include($f3_message);
		$f3_message = &url_import($f3_message);
	$f4_message = $FILE{'message4'};
		$f4_message = &tag_change($f4_message);
		$f4_message = &cgi_include($f4_message);
		$f4_message = &url_import($f4_message);
	$f5_message = $FILE{'message5'};
		$f5_message = &tag_change($f5_message);
		$f5_message = &cgi_include($f5_message);
		$f5_message = &url_import($f5_message);
	$f6_message = $FILE{'message6'};
		$f6_message = &tag_change($f6_message);
		$f6_message = &cgi_include($f6_message);
		$f6_message = &url_import($f6_message);
	$f7_message = $FILE{'message7'};
		$f7_message = &tag_change($f7_message);
		$f7_message = &cgi_include($f7_message);
		$f7_message = &url_import($f7_message);
	$f8_message = $FILE{'message8'};
		$f8_message = &tag_change($f8_message);
		$f8_message = &cgi_include($f8_message);
		$f8_message = &url_import($f8_message);
	$f9_message = $FILE{'message9'};
		$f9_message = &tag_change($f9_message);
		$f9_message = &cgi_include($f9_message);
		$f9_message = &url_import($f9_message);
	$f10_message = $FILE{'message10'};
		$f10_message = &tag_change($f10_message);
		$f10_message = &cgi_include($f10_message);
		$f10_message = &url_import($f10_message);
	$f11_message = $FILE{'message11'};
		$f11_message = &tag_change($f11_message);
		$f11_message = &cgi_include($f11_message);
		$f11_message = &url_import($f11_message);
	$f12_message = $FILE{'message12'};
		$f12_message = &tag_change($f12_message);
		$f12_message = &cgi_include($f12_message);
		$f12_message = &url_import($f12_message);
	$f13_message = $FILE{'message13'};
		$f13_message = &tag_change($f13_message);
		$f13_message = &cgi_include($f13_message);
		$f13_message = &url_import($f13_message);
	$f14_message = $FILE{'message14'};
		$f14_message = &tag_change($f14_message);
		$f14_message = &cgi_include($f14_message);
		$f14_message = &url_import($f14_message);
	$f15_message = $FILE{'message15'};
		$f15_message = &tag_change($f15_message);
		$f15_message = &cgi_include($f15_message);
		$f15_message = &url_import($f15_message);
	$f16_message = $FILE{'message16'};
		$f16_message = &tag_change($f16_message);
		$f16_message = &cgi_include($f16_message);
		$f16_message = &url_import($f16_message);
	$f17_message = $FILE{'message17'};
		$f17_message = &tag_change($f17_message);
		$f17_message = &cgi_include($f17_message);
		$f17_message = &url_import($f17_message);
	$f18_message = $FILE{'message18'};
		$f18_message = &tag_change($f18_message);
		$f18_message = &cgi_include($f18_message);
		$f18_message = &url_import($f18_message);
	$f19_message = $FILE{'message19'};
		$f19_message = &tag_change($f19_message);
		$f19_message = &cgi_include($f19_message);
		$f19_message = &url_import($f19_message);
	$f20_message = $FILE{'message20'};
		$f20_message = &tag_change($f20_message);
		$f20_message = &cgi_include($f20_message);
		$f20_message = &url_import($f20_message);
	$f21_message = $FILE{'message21'};
		$f21_message = &tag_change($f21_message);
		$f21_message = &cgi_include($f21_message);
		$f21_message = &url_import($f21_message);
	$f22_message = $FILE{'message22'};
		$f22_message = &tag_change($f22_message);
		$f22_message = &cgi_include($f22_message);
		$f22_message = &url_import($f22_message);
	$f23_message = $FILE{'message23'};
		$f23_message = &tag_change($f23_message);
		$f23_message = &cgi_include($f23_message);
		$f23_message = &url_import($f23_message);
	$f24_message = $FILE{'message24'};
		$f24_message = &tag_change($f24_message);
		$f24_message = &cgi_include($f24_message);
		$f24_message = &url_import($f24_message);
	$f25_message = $FILE{'message25'};
		$f25_message = &tag_change($f25_message);
		$f25_message = &cgi_include($f25_message);
		$f25_message = &url_import($f25_message);
	$f26_message = $FILE{'message26'};
		$f26_message = &tag_change($f26_message);
		$f26_message = &cgi_include($f26_message);
		$f26_message = &url_import($f26_message);
	$f27_message = $FILE{'message27'};
		$f27_message = &tag_change($f27_message);
		$f27_message = &cgi_include($f27_message);
		$f27_message = &url_import($f27_message);
	$f28_message = $FILE{'message28'};
		$f28_message = &tag_change($f28_message);
		$f28_message = &cgi_include($f28_message);
		$f28_message = &url_import($f28_message);
	$f29_message = $FILE{'message29'};
		$f29_message = &tag_change($f29_message);
		$f29_message = &cgi_include($f29_message);
		$f29_message = &url_import($f29_message);
	$f30_message = $FILE{'message30'};
		$f30_message = &tag_change($f30_message);
		$f30_message = &cgi_include($f30_message);
		$f30_message = &url_import($f30_message);
	$f31_message = $FILE{'message31'};
		$f31_message = &tag_change($f31_message);
		$f31_message = &cgi_include($f31_message);
		$f31_message = &url_import($f31_message);
	$f32_message = $FILE{'message32'};
		$f32_message = &tag_change($f32_message);
		$f32_message = &cgi_include($f32_message);
		$f32_message = &url_import($f32_message);
	$f33_message = $FILE{'message33'};
		$f33_message = &tag_change($f33_message);
		$f33_message = &cgi_include($f33_message);
		$f33_message = &url_import($f33_message);
	$f34_message = $FILE{'message34'};
		$f34_message = &tag_change($f34_message);
		$f34_message = &cgi_include($f34_message);
		$f34_message = &url_import($f34_message);
	$f35_message = $FILE{'message35'};
		$f35_message = &tag_change($f35_message);
		$f35_message = &cgi_include($f35_message);
		$f35_message = &url_import($f35_message);
	$f36_message = $FILE{'message36'};
		$f36_message = &tag_change($f36_message);
		$f36_message = &cgi_include($f36_message);
		$f36_message = &url_import($f36_message);
	$f37_message = $FILE{'message37'};
		$f37_message = &tag_change($f37_message);
		$f37_message = &cgi_include($f37_message);
		$f37_message = &url_import($f37_message);
	$f38_message = $FILE{'message38'};
		$f38_message = &tag_change($f38_message);
		$f38_message = &cgi_include($f38_message);
		$f38_message = &url_import($f38_message);
	$f39_message = $FILE{'message39'};
		$f39_message = &tag_change($f39_message);
		$f39_message = &cgi_include($f39_message);
		$f39_message = &url_import($f39_message);
	$f40_message = $FILE{'message40'};
		$f40_message = &tag_change($f40_message);
		$f40_message = &cgi_include($f40_message);
		$f40_message = &url_import($f40_message);
	$f1_cap = $FILE{'cap1'};
	$f2_cap = $FILE{'cap2'};
	$f3_cap = $FILE{'cap3'};
	$f4_cap = $FILE{'cap4'};
	$f5_cap = $FILE{'cap5'};
	$f6_cap = $FILE{'cap6'};
	$f7_cap = $FILE{'cap7'};
	$f8_cap = $FILE{'cap8'};
	$f9_cap = $FILE{'cap9'};
	$f10_cap = $FILE{'cap10'};
	$f11_cap = $FILE{'cap11'};
	$f12_cap = $FILE{'cap12'};
	$f13_cap = $FILE{'cap13'};
	$f14_cap = $FILE{'cap14'};
	$f15_cap = $FILE{'cap15'};
	$f16_cap = $FILE{'cap16'};
	$f17_cap = $FILE{'cap17'};
	$f18_cap = $FILE{'cap18'};
	$f19_cap = $FILE{'cap19'};
	$f20_cap = $FILE{'cap20'};
	##添付ファイル1-20があれば表示
	$fni=0;
	for (0..19) {
		$FtLot=@FileType-1;$i=0;
		for (0..$FtLot) {
			$f_filepath = $img_dir.$f1_code.$fni.'.'.$FileType[$i];
			$fb_filepath = $img_dir.$f1_code.$fni.'b.jpg';
			$fm_filepath = $img_dir.$f1_code.$fni.'m.jpg';
			if ($FileType[$i] eq 'jpg') { $FtypeName='[JPG画像]'; $FtypeImg=1; }
			elsif ($FileType[$i] eq 'gif') { $FtypeName='[GIF画像]'; $FtypeImg=1; }
			elsif ($FileType[$i] eq 'png') { $FtypeName='[PNG画像]'; $FtypeImg=1; }
			elsif ($FileType[$i] eq 'txt') { $FtypeName='[テキスト書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'doc') { $FtypeName='[WORD書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'docx') { $FtypeName='[WORD2007書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'xls') { $FtypeName='[EXCEL書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'xlsx') { $FtypeName='[EXCEL2007書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'ppt') { $FtypeName='[PPT書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'pptx') { $FtypeName='[PPT2007書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'jtd') { $FtypeName='[一太郎書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'pdf') { $FtypeName='[PDF書類]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'mp3') { $FtypeName='[MP3音声]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'wma') { $FtypeName='[WMA音声]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'mmf') { $FtypeName='[MMF音声]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'mld') { $FtypeName='[MLD音声]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'wmv') { $FtypeName='[WMV動画]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'mp4') { $FtypeName='[MPEG4動画]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'ogg') { $FtypeName='[OGG動画]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq '3gp') { $FtypeName='[QuickTime動画]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq '3g2') { $FtypeName='[QuickTime動画]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'flv') { $FtypeName='[FLV動画]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'zip') { $FtypeName='[ZIPファイル]'; $FtypeImg=0; }
			elsif ($FileType[$i] eq 'lzh') { $FtypeName='[LZHファイル]'; $FtypeImg=0; }
			if ((-e $f_filepath)&&($FtypeImg==1)) {
				$f_filetag[$fni] = $f_filepath;
				if (-e $fb_filepath) { $fb_filetag[$fni]=$fb_filepath; } else { $fb_filetag[$fni]='../icon/space.gif'; }
				if (-e $fm_filepath) { $fm_filetag[$fni]=$fm_filepath; } else { $fm_filetag[$fni]='../icon/space.gif'; }
				$f_imagetag[$fni] = '<img src="'.$f_filepath.'">';
				if (-e $fb_filepath) { $fb_imagetag[$fni]='<img src="'.$fb_filepath.'">'; } else { $fb_imagetag[$fni]=''; }
				if (-e $fm_filepath) { $fm_imagetag[$fni]='<img src="'.$fm_filepath.'">'; } else { $fm_imagetag[$fni]=''; }
				last;
			}	elsif ((-e $f_filepath)&&($FtypeImg==0)) {
				$f_filetag[$fni] = $f_filepath; 
				$fb_filetag[$fni] = '';
				$fm_filetag[$fni] = '';
				$f_imagetag[$fni] = '<img src="../icon/'.$FileType[$i].'.gif"><a href="'.$f_filepath.'">'.$FtypeName.'</a>';
				$fb_imagetag[$fni] = '<img src="../icon/'.$FileType[$i].'.gif"><a href="'.$f_filepath.'">'.$FtypeName.'</a>';
				$fm_imagetag[$fni] = '<img src="../icon/'.$FileType[$i].'.gif"><a href="'.$f_filepath.'">'.$FtypeName.'</a>';
				last;
			} else {
				$f_filetag[$fni]='../icon/space.gif';
				$fb_filetag[$fni] = '';
				$fm_filetag[$fni] = '';
				$f_imagetag[$fni] = '';
				$fb_imagetag[$fni] = '';
				$fm_imagetag[$fni] = '';
			}
			$i++;
		}
		$fni++;
	}
	##画面出力の変更はここを訂正
	$LinkToDetail=$cginame.'?detail='.$f1_code.'&amp;p='.$pline.$addCtg;
	$LinkToMain=$cginame.'?pline='.$in{'p'}.$addCtg;
	@TEMPNEW=(); push(@TEMPNEW,@TEMP);
	$li=0;
	foreach (@TEMPNEW) {
		$TEMPNEW[$li]=~ s/\[LinkToDetail\]/$LinkToDetail/g;
		$TEMPNEW[$li]=~ s/\[LinkToMain\]/$LinkToMain/g;
		$TEMPNEW[$li]=~ s/\[Code\]/$f1_code/g;
		$TEMPNEW[$li]=~ s/\[MsgA\]/$f1_message/g;
		$TEMPNEW[$li]=~ s/\[MsgB\]/$f2_message/g;
		$TEMPNEW[$li]=~ s/\[MsgC\]/$f3_message/g;
		$TEMPNEW[$li]=~ s/\[MsgD\]/$f4_message/g;
		$TEMPNEW[$li]=~ s/\[MsgE\]/$f5_message/g;
		$TEMPNEW[$li]=~ s/\[MsgF\]/$f6_message/g;
		$TEMPNEW[$li]=~ s/\[MsgG\]/$f7_message/g;
		$TEMPNEW[$li]=~ s/\[MsgH\]/$f8_message/g;
		$TEMPNEW[$li]=~ s/\[MsgI\]/$f9_message/g;
		$TEMPNEW[$li]=~ s/\[MsgJ\]/$f10_message/g;
		$TEMPNEW[$li]=~ s/\[MsgK\]/$f11_message/g;
		$TEMPNEW[$li]=~ s/\[MsgL\]/$f12_message/g;
		$TEMPNEW[$li]=~ s/\[MsgM\]/$f13_message/g;
		$TEMPNEW[$li]=~ s/\[MsgN\]/$f14_message/g;
		$TEMPNEW[$li]=~ s/\[MsgO\]/$f15_message/g;
		$TEMPNEW[$li]=~ s/\[MsgP\]/$f16_message/g;
		$TEMPNEW[$li]=~ s/\[MsgQ\]/$f17_message/g;
		$TEMPNEW[$li]=~ s/\[MsgR\]/$f18_message/g;
		$TEMPNEW[$li]=~ s/\[MsgS\]/$f19_message/g;
		$TEMPNEW[$li]=~ s/\[MsgT\]/$f20_message/g;
		$TEMPNEW[$li]=~ s/\[Msg1\]/$f1_message/g;
		$TEMPNEW[$li]=~ s/\[Msg2\]/$f2_message/g;
		$TEMPNEW[$li]=~ s/\[Msg3\]/$f3_message/g;
		$TEMPNEW[$li]=~ s/\[Msg4\]/$f4_message/g;
		$TEMPNEW[$li]=~ s/\[Msg5\]/$f5_message/g;
		$TEMPNEW[$li]=~ s/\[Msg6\]/$f6_message/g;
		$TEMPNEW[$li]=~ s/\[Msg7\]/$f7_message/g;
		$TEMPNEW[$li]=~ s/\[Msg8\]/$f8_message/g;
		$TEMPNEW[$li]=~ s/\[Msg9\]/$f9_message/g;
		$TEMPNEW[$li]=~ s/\[Msg10\]/$f10_message/g;
		$TEMPNEW[$li]=~ s/\[Msg11\]/$f11_message/g;
		$TEMPNEW[$li]=~ s/\[Msg12\]/$f12_message/g;
		$TEMPNEW[$li]=~ s/\[Msg13\]/$f13_message/g;
		$TEMPNEW[$li]=~ s/\[Msg14\]/$f14_message/g;
		$TEMPNEW[$li]=~ s/\[Msg15\]/$f15_message/g;
		$TEMPNEW[$li]=~ s/\[Msg16\]/$f16_message/g;
		$TEMPNEW[$li]=~ s/\[Msg17\]/$f17_message/g;
		$TEMPNEW[$li]=~ s/\[Msg18\]/$f18_message/g;
		$TEMPNEW[$li]=~ s/\[Msg19\]/$f19_message/g;
		$TEMPNEW[$li]=~ s/\[Msg20\]/$f20_message/g;
		$TEMPNEW[$li]=~ s/\[Msg21\]/$f21_message/g;
		$TEMPNEW[$li]=~ s/\[Msg22\]/$f22_message/g;
		$TEMPNEW[$li]=~ s/\[Msg23\]/$f23_message/g;
		$TEMPNEW[$li]=~ s/\[Msg24\]/$f24_message/g;
		$TEMPNEW[$li]=~ s/\[Msg25\]/$f25_message/g;
		$TEMPNEW[$li]=~ s/\[Msg26\]/$f26_message/g;
		$TEMPNEW[$li]=~ s/\[Msg27\]/$f27_message/g;
		$TEMPNEW[$li]=~ s/\[Msg28\]/$f28_message/g;
		$TEMPNEW[$li]=~ s/\[Msg29\]/$f29_message/g;
		$TEMPNEW[$li]=~ s/\[Msg30\]/$f30_message/g;
		$TEMPNEW[$li]=~ s/\[Msg31\]/$f31_message/g;
		$TEMPNEW[$li]=~ s/\[Msg32\]/$f32_message/g;
		$TEMPNEW[$li]=~ s/\[Msg33\]/$f33_message/g;
		$TEMPNEW[$li]=~ s/\[Msg34\]/$f34_message/g;
		$TEMPNEW[$li]=~ s/\[Msg35\]/$f35_message/g;
		$TEMPNEW[$li]=~ s/\[Msg36\]/$f36_message/g;
		$TEMPNEW[$li]=~ s/\[Msg37\]/$f37_message/g;
		$TEMPNEW[$li]=~ s/\[Msg38\]/$f38_message/g;
		$TEMPNEW[$li]=~ s/\[Msg39\]/$f39_message/g;
		$TEMPNEW[$li]=~ s/\[Msg40\]/$f40_message/g;
		$TEMPNEW[$li]=~ s/\[File1\]/$f_filetag[0]/g;
		$TEMPNEW[$li]=~ s/\[File2\]/$f_filetag[1]/g;
		$TEMPNEW[$li]=~ s/\[File3\]/$f_filetag[2]/g;
		$TEMPNEW[$li]=~ s/\[File4\]/$f_filetag[3]/g;
		$TEMPNEW[$li]=~ s/\[File5\]/$f_filetag[4]/g;
		$TEMPNEW[$li]=~ s/\[File6\]/$f_filetag[5]/g;
		$TEMPNEW[$li]=~ s/\[File7\]/$f_filetag[6]/g;
		$TEMPNEW[$li]=~ s/\[File8\]/$f_filetag[7]/g;
		$TEMPNEW[$li]=~ s/\[File9\]/$f_filetag[8]/g;
		$TEMPNEW[$li]=~ s/\[File10\]/$f_filetag[9]/g;
		$TEMPNEW[$li]=~ s/\[File11\]/$f_filetag[10]/g;
		$TEMPNEW[$li]=~ s/\[File12\]/$f_filetag[11]/g;
		$TEMPNEW[$li]=~ s/\[File13\]/$f_filetag[12]/g;
		$TEMPNEW[$li]=~ s/\[File14\]/$f_filetag[13]/g;
		$TEMPNEW[$li]=~ s/\[File15\]/$f_filetag[14]/g;
		$TEMPNEW[$li]=~ s/\[File16\]/$f_filetag[15]/g;
		$TEMPNEW[$li]=~ s/\[File17\]/$f_filetag[16]/g;
		$TEMPNEW[$li]=~ s/\[File18\]/$f_filetag[17]/g;
		$TEMPNEW[$li]=~ s/\[File19\]/$f_filetag[18]/g;
		$TEMPNEW[$li]=~ s/\[File20\]/$f_filetag[19]/g;
		$TEMPNEW[$li]=~ s/\[File1b\]/$fb_filetag[0]/g;
		$TEMPNEW[$li]=~ s/\[File2b\]/$fb_filetag[1]/g;
		$TEMPNEW[$li]=~ s/\[File3b\]/$fb_filetag[2]/g;
		$TEMPNEW[$li]=~ s/\[File4b\]/$fb_filetag[3]/g;
		$TEMPNEW[$li]=~ s/\[File5b\]/$fb_filetag[4]/g;
		$TEMPNEW[$li]=~ s/\[File6b\]/$fb_filetag[5]/g;
		$TEMPNEW[$li]=~ s/\[File7b\]/$fb_filetag[6]/g;
		$TEMPNEW[$li]=~ s/\[File8b\]/$fb_filetag[7]/g;
		$TEMPNEW[$li]=~ s/\[File9b\]/$fb_filetag[8]/g;
		$TEMPNEW[$li]=~ s/\[File10b\]/$fb_filetag[9]/g;
		$TEMPNEW[$li]=~ s/\[File11b\]/$fb_filetag[10]/g;
		$TEMPNEW[$li]=~ s/\[File12b\]/$fb_filetag[11]/g;
		$TEMPNEW[$li]=~ s/\[File13b\]/$fb_filetag[12]/g;
		$TEMPNEW[$li]=~ s/\[File14b\]/$fb_filetag[13]/g;
		$TEMPNEW[$li]=~ s/\[File15b\]/$fb_filetag[14]/g;
		$TEMPNEW[$li]=~ s/\[File16b\]/$fb_filetag[15]/g;
		$TEMPNEW[$li]=~ s/\[File17b\]/$fb_filetag[16]/g;
		$TEMPNEW[$li]=~ s/\[File18b\]/$fb_filetag[17]/g;
		$TEMPNEW[$li]=~ s/\[File19b\]/$fb_filetag[18]/g;
		$TEMPNEW[$li]=~ s/\[File20b\]/$fb_filetag[19]/g;
		$TEMPNEW[$li]=~ s/\[File1m\]/$fm_filetag[0]/g;
		$TEMPNEW[$li]=~ s/\[File2m\]/$fm_filetag[1]/g;
		$TEMPNEW[$li]=~ s/\[File3m\]/$fm_filetag[2]/g;
		$TEMPNEW[$li]=~ s/\[File4m\]/$fm_filetag[3]/g;
		$TEMPNEW[$li]=~ s/\[File5m\]/$fm_filetag[4]/g;
		$TEMPNEW[$li]=~ s/\[File6m\]/$fm_filetag[5]/g;
		$TEMPNEW[$li]=~ s/\[File7m\]/$fm_filetag[6]/g;
		$TEMPNEW[$li]=~ s/\[File8m\]/$fm_filetag[7]/g;
		$TEMPNEW[$li]=~ s/\[File9m\]/$fm_filetag[8]/g;
		$TEMPNEW[$li]=~ s/\[File10m\]/$fm_filetag[9]/g;
		$TEMPNEW[$li]=~ s/\[File11m\]/$fm_filetag[10]/g;
		$TEMPNEW[$li]=~ s/\[File12m\]/$fm_filetag[11]/g;
		$TEMPNEW[$li]=~ s/\[File13m\]/$fm_filetag[12]/g;
		$TEMPNEW[$li]=~ s/\[File14m\]/$fm_filetag[13]/g;
		$TEMPNEW[$li]=~ s/\[File15m\]/$fm_filetag[14]/g;
		$TEMPNEW[$li]=~ s/\[File16m\]/$fm_filetag[15]/g;
		$TEMPNEW[$li]=~ s/\[File17m\]/$fm_filetag[16]/g;
		$TEMPNEW[$li]=~ s/\[File18m\]/$fm_filetag[17]/g;
		$TEMPNEW[$li]=~ s/\[File19m\]/$fm_filetag[18]/g;
		$TEMPNEW[$li]=~ s/\[File20m\]/$fm_filetag[19]/g;
		$TEMPNEW[$li]=~ s/\[Image1\]/$f_imagetag[0]/g;
		$TEMPNEW[$li]=~ s/\[Image2\]/$f_imagetag[1]/g;
		$TEMPNEW[$li]=~ s/\[Image3\]/$f_imagetag[2]/g;
		$TEMPNEW[$li]=~ s/\[Image4\]/$f_imagetag[3]/g;
		$TEMPNEW[$li]=~ s/\[Image5\]/$f_imagetag[4]/g;
		$TEMPNEW[$li]=~ s/\[Image6\]/$f_imagetag[5]/g;
		$TEMPNEW[$li]=~ s/\[Image7\]/$f_imagetag[6]/g;
		$TEMPNEW[$li]=~ s/\[Image8\]/$f_imagetag[7]/g;
		$TEMPNEW[$li]=~ s/\[Image9\]/$f_imagetag[8]/g;
		$TEMPNEW[$li]=~ s/\[Image10\]/$f_imagetag[9]/g;
		$TEMPNEW[$li]=~ s/\[Image11\]/$f_imagetag[10]/g;
		$TEMPNEW[$li]=~ s/\[Image12\]/$f_imagetag[11]/g;
		$TEMPNEW[$li]=~ s/\[Image13\]/$f_imagetag[12]/g;
		$TEMPNEW[$li]=~ s/\[Image14\]/$f_imagetag[13]/g;
		$TEMPNEW[$li]=~ s/\[Image15\]/$f_imagetag[14]/g;
		$TEMPNEW[$li]=~ s/\[Image16\]/$f_imagetag[15]/g;
		$TEMPNEW[$li]=~ s/\[Image17\]/$f_imagetag[16]/g;
		$TEMPNEW[$li]=~ s/\[Image18\]/$f_imagetag[17]/g;
		$TEMPNEW[$li]=~ s/\[Image19\]/$f_imagetag[18]/g;
		$TEMPNEW[$li]=~ s/\[Image20\]/$f_imagetag[19]/g;
		$TEMPNEW[$li]=~ s/\[Image1b\]/$fb_imagetag[0]/g;
		$TEMPNEW[$li]=~ s/\[Image2b\]/$fb_imagetag[1]/g;
		$TEMPNEW[$li]=~ s/\[Image3b\]/$fb_imagetag[2]/g;
		$TEMPNEW[$li]=~ s/\[Image4b\]/$fb_imagetag[3]/g;
		$TEMPNEW[$li]=~ s/\[Image5b\]/$fb_imagetag[4]/g;
		$TEMPNEW[$li]=~ s/\[Image6b\]/$fb_imagetag[5]/g;
		$TEMPNEW[$li]=~ s/\[Image7b\]/$fb_imagetag[6]/g;
		$TEMPNEW[$li]=~ s/\[Image8b\]/$fb_imagetag[7]/g;
		$TEMPNEW[$li]=~ s/\[Image9b\]/$fb_imagetag[8]/g;
		$TEMPNEW[$li]=~ s/\[Image10b\]/$fb_imagetag[9]/g;
		$TEMPNEW[$li]=~ s/\[Image11b\]/$fb_imagetag[10]/g;
		$TEMPNEW[$li]=~ s/\[Image12b\]/$fb_imagetag[11]/g;
		$TEMPNEW[$li]=~ s/\[Image13b\]/$fb_imagetag[12]/g;
		$TEMPNEW[$li]=~ s/\[Image14b\]/$fb_imagetag[13]/g;
		$TEMPNEW[$li]=~ s/\[Image15b\]/$fb_imagetag[14]/g;
		$TEMPNEW[$li]=~ s/\[Image16b\]/$fb_imagetag[15]/g;
		$TEMPNEW[$li]=~ s/\[Image17b\]/$fb_imagetag[16]/g;
		$TEMPNEW[$li]=~ s/\[Image18b\]/$fb_imagetag[17]/g;
		$TEMPNEW[$li]=~ s/\[Image19b\]/$fb_imagetag[18]/g;
		$TEMPNEW[$li]=~ s/\[Image20b\]/$fb_imagetag[19]/g;
		$TEMPNEW[$li]=~ s/\[Image1m\]/$fm_imagetag[0]/g;
		$TEMPNEW[$li]=~ s/\[Image2m\]/$fm_imagetag[1]/g;
		$TEMPNEW[$li]=~ s/\[Image3m\]/$fm_imagetag[2]/g;
		$TEMPNEW[$li]=~ s/\[Image4m\]/$fm_imagetag[3]/g;
		$TEMPNEW[$li]=~ s/\[Image5m\]/$fm_imagetag[4]/g;
		$TEMPNEW[$li]=~ s/\[Image6m\]/$fm_imagetag[5]/g;
		$TEMPNEW[$li]=~ s/\[Image7m\]/$fm_imagetag[6]/g;
		$TEMPNEW[$li]=~ s/\[Image8m\]/$fm_imagetag[7]/g;
		$TEMPNEW[$li]=~ s/\[Image9m\]/$fm_imagetag[8]/g;
		$TEMPNEW[$li]=~ s/\[Image10m\]/$fm_imagetag[9]/g;
		$TEMPNEW[$li]=~ s/\[Image11m\]/$fm_imagetag[10]/g;
		$TEMPNEW[$li]=~ s/\[Image12m\]/$fm_imagetag[11]/g;
		$TEMPNEW[$li]=~ s/\[Image13m\]/$fm_imagetag[12]/g;
		$TEMPNEW[$li]=~ s/\[Image14m\]/$fm_imagetag[13]/g;
		$TEMPNEW[$li]=~ s/\[Image15m\]/$fm_imagetag[14]/g;
		$TEMPNEW[$li]=~ s/\[Image16m\]/$fm_imagetag[15]/g;
		$TEMPNEW[$li]=~ s/\[Image17m\]/$fm_imagetag[16]/g;
		$TEMPNEW[$li]=~ s/\[Image18m\]/$fm_imagetag[17]/g;
		$TEMPNEW[$li]=~ s/\[Image19m\]/$fm_imagetag[18]/g;
		$TEMPNEW[$li]=~ s/\[Image20m\]/$fm_imagetag[19]/g;
		$TEMPNEW[$li]=~ s/\[Cap1\]/$f1_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap2\]/$f2_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap3\]/$f3_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap4\]/$f4_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap5\]/$f5_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap6\]/$f6_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap7\]/$f7_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap8\]/$f8_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap9\]/$f9_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap10\]/$f10_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap11\]/$f11_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap12\]/$f12_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap13\]/$f13_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap14\]/$f14_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap15\]/$f15_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap16\]/$f16_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap17\]/$f17_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap18\]/$f18_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap19\]/$f19_cap/g;
		$TEMPNEW[$li]=~ s/\[Cap20\]/$f20_cap/g;
		$TEMPNEW[$li]=~ s/<br>/<br \/>/g;
		$TEMPNEW[$li]=~ s/<BR>/<br \/>/g;
		if ($pcoutCode eq 'sjis') { Encode::from_to($TEMPNEW[$li], 'utf8', 'shiftjis'); }
		print $TEMPNEW[$li];
		$li++;
	}
}
if ($pcoutCode eq 'sjis') { Encode::from_to($TempFoot, 'utf8', 'shiftjis'); }
print $TempFoot;

$next_line = $page_end + 1;
$back_line = $page_top - $pageview;

print "<p class=\"PageNavi\">\n";

if ($page_top != 0) {
	$BackURL=$cginame.'?mode=list&amp;pline='.$back_line.$addCtg;
	$tagBody= "<a href=\"$BackURL\" class=\"NaviBack\">$NaviBack</a>\n";
	if ($pcoutCode eq 'sjis') { Encode::from_to($tagBody, 'utf8', 'shiftjis'); }
	print $tagBody;
}

if ($page_end != $end_data) {
	$BackURL=$cginame.'?mode=list&amp;pline='.$next_line.$addCtg;
	$tagBody= "<a href=\"$BackURL\" class=\"NaviNext\">$NaviNext</a>\n";
	if ($pcoutCode eq 'sjis') { Encode::from_to($tagBody, 'utf8', 'shiftjis'); }
	print $tagBody;
}

print "</p>\n";


}
##=======================================================================================
sub data_read {
	if (open(DBREAD,"$datafile")) {
		@DATA = <DBREAD>;
		close(DBREAD);
		##文字コード判定→UTF8変換
		my $contCC=&checkCharCode($datafile);
		if ($contCC eq 'shiftjis') {
			foreach (@DATA) { Encode::from_to($_, 'shiftjis', 'utf8'); }
		}
	} else { &errorout('DBファイルの読込に失敗しました。'); }
}
##=======================================================================================
sub temp_read {
	@RDTEMP=(); @TEMP=();
	if (open(TEMPRD,"$tempfile")) {
		@RDTEMP = <TEMPRD>;
		close(TEMPRD);
		##文字コード判定→UTF8変換
		my $contCC=&checkCharCode($tempfile);
		if ($contCC eq 'shiftjis') {
			foreach (@RDTEMP) { Encode::from_to($_, 'shiftjis', 'utf8'); }
		}
		##テンプレートブロック
		$trd=0; $TempStart=1; $TempEnd=1;
		foreach (@RDTEMP) {
			if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /StartList/i)) { $TempStart=2; }
			if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /EndList/i)) { $TempEnd=2; }
			$trd++;
		}
		if (($TempStart==2)&&($TempEnd==2)) {
			$trd=0; $TempStart=1; $TempEnd=1;
			foreach (@RDTEMP) {
				if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /StartList/i)) { $TempStart=2; }
				if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /EndList/i)) { $TempEnd=2; }
				if (($TempStart==1)&&($TempEnd==1)) {
					$TempHead=$TempHead.$RDTEMP[$trd].'';
				} elsif (($TempStart==2)&&($TempEnd==1)) {
					push(@TEMP,$RDTEMP[$trd]);
				} elsif (($TempStart==2)&&($TempEnd==2)) {
					$TempFoot=$TempFoot.$RDTEMP[$trd].'';
				}
				$trd++;
			}
			$TempHead = &cgi_include($TempHead);
			$TempHead = &url_import($TempHead);
			$TempFoot = &cgi_include($TempFoot);
			$TempFoot = &url_import($TempFoot);
		} else { push(@TEMP,@RDTEMP); }
	} else { &errorout('TEMPファイルの読込に失敗しました。'); }
}
##=======================================================================================
sub temp2read {
	@RDTEMP=(); @TEMP=();
	if (open(TEMPRD,"$temp2file")) {
		@RDTEMP = <TEMPRD>;
		close(TEMPRD);
		##文字コード判定→UTF8変換
		my $contCC=&checkCharCode($tempfile);
		if ($contCC eq 'shiftjis') {
			foreach (@RDTEMP) { Encode::from_to($_, 'shiftjis', 'utf8'); }
		}
		##テンプレートブロック
		$trd=0; $TempStart=1; $TempEnd=1;
		foreach (@RDTEMP) {
			if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /StartList/i)) { $TempStart=2; }
			if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /EndList/i)) { $TempEnd=2; }
			$trd++;
		}
		if (($TempStart==2)&&($TempEnd==2)) {
			$trd=0; $TempStart=1; $TempEnd=1;
			foreach (@RDTEMP) {
				if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /StartList/i)) { $TempStart=2; }
				if (($RDTEMP[$trd] =~ /<\!--/i)&&($RDTEMP[$trd] =~ /EndList/i)) { $TempEnd=2; }
				if (($TempStart==1)&&($TempEnd==1)) {
					$TempHead=$TempHead.$RDTEMP[$trd].'';
				} elsif (($TempStart==2)&&($TempEnd==1)) {
					push(@TEMP,$RDTEMP[$trd]);
				} elsif (($TempStart==2)&&($TempEnd==2)) {
					$TempFoot=$TempFoot.$RDTEMP[$trd].'';
				}
				$trd++;
			}
			$TempHead = &cgi_include($TempHead);
			$TempHead = &url_import($TempHead);
			$TempFoot = &cgi_include($TempFoot);
			$TempFoot = &url_import($TempFoot);
		} else { push(@TEMP,@RDTEMP); }
	} else { &errorout('TEMPファイルの読込に失敗しました。'); }
}
##=======================================================================================
sub page_read {

	if ($RootPath ne '') { $BaseRoot='/'.$RootPath; } else { $BaseRoot=''; }
	$QRCodeS='<img src="http://qrcode.adedit.net/qr_img.cgi?d=http://'.$Domain.$BaseRoot.'/mobi/&amp;s=2" alt="QRコード" />';
	$QRCodeM='<img src="http://qrcode.adedit.net/qr_img.cgi?d=http://'.$Domain.$BaseRoot.'/mobi/&amp;s=3" alt="QRコード" />';
	$QRCodeL='<img src="http://qrcode.adedit.net/qr_img.cgi?d=http://'.$Domain.$BaseRoot.'/mobi/&amp;s=4" alt="QRコード" />';

	if (open(PAGEREAD,"$SkinFile")) {
		@PAGE = <PAGEREAD>;
		close(PAGEREAD);
		##文字コード判定→UTF8変換
		my $contCC=&checkCharCode($SkinFile);
		if ($contCC eq 'shiftjis') {
			foreach (@PAGE) { Encode::from_to($_, 'shiftjis', 'utf8'); }
		}
	} else {
		$alSkinFile=$SkinFile; $alSkinFile=~ s/\.\.//i;
		$PAGE[0] ='<html>'."\n";
		$PAGE[1] ='<head><meta http-equiv="Content-Type" content="text/html;charset='.$pcoutCode.'"></head>'."\n";
		$PAGE[2] ='<body><h2 style="color:red">[設定]にて指定したスキンファイル ['.$alSkinFile.'] が存在しません</h2>'."\n";
		$PAGE[3] ='<span style="color:red">[設定]にて正しいスキンファイルを指定するか、[スキン編集]にて作成する必要があります</span>'."\n";
		$PAGE[4] ='<!-- MainZone -->'."\n";
		$PAGE[5] ='</body></html>'."\n";
	}
	#AD-EDITでメニューデータがあれば表示
	$MenuFile=''; $mzi=1;
	for (0..99) {
		@MenuZone=();
		$MenuHTML[$mzi]='';
		$MenuFile='../admin/menu'.$mzi.'.inc';
		if (-e $MenuFile) {
			open(MENURD,"$MenuFile");
			@MenuZone = <MENURD>;
			close(MENURD);
			##文字コード判定→UTF8変換
			my $contCC=&checkCharCode($MenuFile);
			if ($contCC eq 'shiftjis') {
				foreach (@MenuZone) { Encode::from_to($_, 'shiftjis', 'utf8'); }
			}
			$LotMenuLine=@MenuZone;
			$mzline=0;
			for (0..$LotMenuLine) { $MenuHTML[$mzi]=$MenuHTML[$mzi].$MenuZone[$mzline].''; $mzline++; }
		} else { last; }
		$mzi++;
	}
	$mzi=$mzi-1;
	$pageflag = 0;
	@PHEAD = (); @PFOOT = (); $pi = 0;
	foreach (@PAGE) {
		if ($PAGE[$pi] =~ /MainZone/i) {
			$PAGE[$pi]=~ s/<\!-- MainZone -->/<\!--MainZone-->/g;
			($SkinBefore,$SkinAfter)=split(/<\!--MainZone-->/,$PAGE[$pi]);
			$PAGE[$pi]=$SkinBefore;
			push(@PFOOT,$SkinAfter);
			$pageflag = 1;
		}
		$mzj=1;
		for (0..$mzi) {
			$PAGE[$pi]=~ s/<MenuZone$mzj>/$MenuHTML[$mzj]/g;
			$mzj++;
		}
		$PAGE[$pi]=~ s/<QRCodeS>/$QRCodeS/g;
		$PAGE[$pi]=~ s/<QRCodeM>/$QRCodeM/g;
		$PAGE[$pi]=~ s/<QRCodeL>/$QRCodeL/g;
		$PAGE[$pi]=~ s/<title>/<title>$hdPageTitle - /i;
		$PAGE[$pi]=~ s/<\/head>/$HtmlHeader\n$RdfTag\n<\/head>/i;
		$PAGE[$pi]=~ s/<h1>/<h1>$hdPageTitle - /i;
		$PAGE[$pi] = &cgi_include($PAGE[$pi]);
		$PAGE[$pi] = &url_import($PAGE[$pi]);
		if ($pageflag==0) { push(@PHEAD,$PAGE[$pi]); }
		if ($pageflag==1) { push(@PFOOT,$PAGE[$pi]); }
		$pi++;
	}
}
##=======================================================================================
sub tag_change {
	##	$var = &tag_change($var); で変換する
	if ($RootPath ne '') { $TcRootPath='/'.$RootPath; } else { $TcRootPath=''; }
	local($_) = $_[0];
	1 while s/\[new\]/<img src=\"$TcRootPath\/icon\/new\.gif\" align=\"middle\" alt=\"new\" border=\"0\" \/>/g;
	1 while s/\[red\]/<span style=\"color\:\#FF0000\">/g;
	1 while s/\[\/red\]/<\/span>/g;
	1 while s/\[blue\]/<span style=\"color\:\#0000FF\">/g;
	1 while s/\[\/blue\]/<\/span>/g;
	1 while s/\[green\]/<span style=\"color\:\#009900\">/g;
	1 while s/\[\/green\]/<\/span>/g;
	1 while s/\/TD>/\/td>/g;
	1 while s/<TD/<td/g;
	1 while s/\/TR>/\/tr>/g;
	1 while s/<TR/<tr/g;
	1 while s/\/TABLE>/\/table>/g;
	1 while s/<TABLE/<table/g;
	1 while s/\/TBODY>/\/tbody>/g;
	1 while s/<TBODY/<tbody/g;
	1 while s/AeDirTop/index.cgi/g;
	$_;
}
##=======================================================================================
sub errorout {

$error = $_[0];

$ReturnLink='<a href="javascript:history.go(-1)">[先程のページへ戻る]</a>';

##エラーメッセージの変更はここを訂正
$errHTML = <<"ERRORMESS";
<h4 align="center"><span style="color:#ff0000">ERROR</span></h4>
<div align="center">&nbsp;<br />$error<br />&nbsp;<br />$ReturnLink</div>
ERRORMESS

if ($pcoutCode eq 'sjis') { Encode::from_to($errHTML, 'utf8', 'shiftjis'); }
print $errHTML;
&html_foot;
exit;

}
##=======================================================================================