$zoomh1
EOM
}
if(!$mobile && $alllistup && $timg1){
print "$timg1";
}
if($allpageinfo){
open(HTML,"$infohtml");@infohtm=;close(HTML);
print "@infohtm";
}
if($allpageinfotag && !$mobile){
print "$allpageinfotag";
}
&headersubcatlink;
if($mes){print "$mes";}
if($#log >= 0 && !$tableuse && $lang[20]){
local($eddata) = &urlencode($FORM{'key'});
if($FORM{'c'}){
$linkurl = "c_$FORM{'c'}";
}else{
$linkurl = "key_$eddata";
}
print <<"EOM";
- $lang[20]
EOM
$sortdat[0] = "";
$sortdat[1] = 6;
$sortdat[2] = 6;
$sortdat[3] = 15;
$sortdat[4] = 16;
$sortdatr[0] = "";
$sortdatr[1] = "sortr_1/";
$sortdatr[2] = "";
$sortdatr[3] = "";
$sortdatr[4] = "";
$sortdatn[0] = $lang[15];
$sortdatn[1] = $lang[16];
$sortdatn[2] = $lang[17];
$sortdatn[3] = $lang[18];
$sortdatn[4] = $lang[19];
if($lang[310]){
$sortdat[5] = 10;
$sortdatn[5] = $lang[310];
$sortdatr[5] = "sortr_1/";
}
if($lang[311]){
$sortdat[6] = 10;
$sortdatn[6] = $lang[311];
}
if($lang[312]){
$sortdat[7] = 47;
$sortdatn[7] = $lang[312];
}
if($costdowndel == 1){
$sortdatn[3] = "";
$sortdatn[4] = "";
}elsif($costdowndel == 2){
$sortdatr[3] = "sortr_1/";
$sortdat[4] = 15;
}
for($ii=0;$ii<=$#sortdat;$ii++){
if(!$sortdatn[$ii]){next;}
if($ii == 0 && !$FORM{'sort'}){
$atag1 = "";$atag2 = "";$atag3 = "heresort";
}elsif($ii == 1 && $FORM{'sort'} eq '6' && $FORM{'sortr'}){
$atag1 = "";$atag2 = "";$atag3 = "heresort";
}elsif($ii == 3 && $FORM{'sort'} eq '15' && $FORM{'sortr'} && $costdowndel == 2){
$atag1 = "";$atag2 = "";$atag3 = "heresort";
}elsif($FORM{'sort'} eq $sortdat[$ii] && !$FORM{'sortr'} && !$sortdatr[$ii]){
$atag1 = "";$atag2 = "";$atag3 = "heresort";
}elsif($FORM{'sort'} eq $sortdat[$ii] && $FORM{'sortr'} && $sortdatr[$ii]){
$atag1 = "";$atag2 = "";$atag3 = "heresort";
}else{
$atag1 = "";
$atag2 = "";
$atag3 = "sortbarli";
}
print <<"EOM";
- $atag1$sortdatn[$ii]$atag2
EOM
}
print <<"EOM";
EOM
if($popno1 && $lang[265]){
print <<"EOM";
EOM
}
}
if("$FORM{'pass'}" eq "$mpass"){
local($eurl) = &urlencode("$FORM{'key'}");
print <<"EOM";
EOM
}
#####
}
if($cacheuse){
print $cacheuse;
}else{
$min = $FORM{'min'};
if(!$min){$min=0;}
$max = $FORM{'max'};
if(!$max){$FORM{'max'}=$max=$defmax;}
if($#log < $max){
$max = $#log;
}
&sort;
&casetag;
if($FORM{'text'} ne "1" && !@klog && $log[0]){
$defmax++;
$gcnt = $#log+1;
$pages = int($gcnt / $defmax) + 1;
if($gcnt == ($defmax * ($pages - 1))){$pages = $pages - 1;}
if($FORM{'max'}){
$cpage = int($FORM{'max'} / $defmax) + 1;
}else{
$cpage = 1;
}
$smin = $min + 1;
$maxt = $defmax + $FORM{'min'};
if($gcnt < $maxt){
$maxt = $gcnt;
}
if(!$mobile){
$pagingtag =<<"EOM";
EOM
if(1 < $pages){
if(!$mobile){
$smethod = 'get';
$sks = 30;
}else{
$smethod = 'post';
$sks = 15;
}
if($FORM{'key'}){
$pagingtag .=<<"EOM";
EOM
}
}
$pagingtag .=<<"EOM";
$smin$lang[23]$lang[24]$maxt$lang[23] ($lang[25] $gcnt$lang[23])
EOM
}else{
print <<"EOM";
$smin$lang[23]$lang[24]$maxt$lang[23] ($lang[25] $gcnt$lang[23])
EOM
}
local($ekey) = &urlencode("$FORM{'key'}");
if(1 < $pages){
if(!$mobile){
$pagingtag .=<<"EOM";
EOM
}
if($mobile){
if($FORM{'sort'}){$sorthks="&sort=$FORM{'sort'}";}
if($FORM{'sortr'}){$sortrhks="&sortr=$FORM{'sortr'}";}
}else{
if($FORM{'sort'}){$sorthks="/sort_$FORM{'sort'}";}
if($FORM{'sortr'}){$sortrhks="/sortr_$FORM{'sortr'}";}
}
if($cpage >= ($defpages-3) && $pages >= ($defpages+1)){
$sti = $cpage - int($defpages/2);
$mxi = $sti + ($defpages-1);
$moretxt = $lang[26];
$pagingtag .= "$moretxt";
}else{
$sti = 1;
if($pages >= ($defpages+1)){
$mxi = $defpages;
$moretxt = $lang[26];
}else{
$mxi = $pages;
}
}
for ($i=$sti; $i<=$mxi; $i++){
if("$i" eq "$cpage" && !$mobile){
$pagingtag .=<<"EOM";
$i
EOM
}else{
$ii = $i-1;
$mf = $defmax * $ii;
if($mobile){
if($mf){$mfhks="&min=$mf";}
}else{
if($mf){$mfhks="/min_$mf";}
}
if($i > 1){
$maxt = $mf + $FORM{'max'} - $FORM{'min'};
if($mobile){
$mxhks="&max=$maxt";
}else{
$mxhks="/max_$maxt";
}
}
if($mobile){
if($FORM{'c'}){
$linkurl = "c=$FORM{'c'}";
}else{
$linkurl = "key=$ekey";
}
if($i > $cpage){
print <<"EOM";
$emj[2]
次のページ
EOM
# if($subcattag && !$FORM{'mcat'}){
# print <<"EOM";
#
$emj[1]
$lang[266]
#EOM
# }
last;
}else{
}
}else{
if($FORM{'c'}){
$linkurl = "c_$FORM{'c'}";
}else{
$linkurl = "key_$ekey";
}
if($FORM{'keycnt'}){
$linkurl .= "/keycnt_1";
}
if($lang[293] && !$ekey && !$mxhks){
$pagingtag .=<<"EOM";
$i
EOM
}else{
$pagingtag .=<<"EOM";
$i
EOM
}
}
}
if($i >= $pages){$moretxt = '';last;}
}
if(!$mobile){
$pagingtag .=<<"EOM";
$moretxt
EOM
}
}
}
}
if(!$mobile){
if(!$cacheuse){
if(!$cartgif && $tsearchcut ne '1' && $FORM{'c'} && $lang[261]){
$mtm = $FORM{'key'};
local($mtm) = &urlencode($mtm);
if($tsearchcut){
$tsearchcut = "$tsearchcut$mtm/";
}else{
$tsearchcut = "http://www.tsukaerusite.com/se/se/q_$mtm/$tsearchc";
}
$pagingtag .=<<"EOM";
EOM
}
print $pagingtag;
if($lang[313] && $FORM{'c'}){
$cachehtml = "\n$printtag$pagingtag";
open(LOG,">cache/c_$FORM{'c'}_min_$FORM{'min'}_sort_$FORM{'sort'}_sortr_$FORM{'sortr'}.html");flock(LOG,2);truncate(LOG,0);seek(LOG,0,0);print LOG $cachehtml;close(LOG);
}
}
&mychecktag;
print <<"EOM";
EOM
}
}
}
sub headersubcatlink{
$deepcat = 1;
if(($crcattagshit && !$manycatmode) || ($crcattagshit && $manycatmode && !$deepcat) || $alllistup){
if(($#subcat > 0 && !$parentcat) || $parentcat || $alllistup){
if($parentcat){
$sdata[0] = $parentcat;
}else{
$sdata[0] = $heredcat;
}
$subflg = 1;
if(!$deepcat && !$mobile && (($alllistup && $manycatmode) || !$alllistup)){print "
";}
if($alllistup){
$dk = 0;
for($i=0;$i<=$#cat;$i++){
@cdata = split(/\,/,$cat[$i]);
@sdata = split(/\@\:/,$cdata[0]);
if($sdata[1] > $mimcnt && "$herecat" ne "$sdata[0]"){
local($eddata) = &urlencode($sdata[0]);
if($mobile){
if($sdata[5]){
$linkurl = "c=$sdata[5]";
}else{
$linkurl = "key=$eddata";
}
}else{
if($sdata[5]){
$linkurl = "c_$sdata[5]";
}else{
$linkurl = "key_$eddata";
}
}
if("$tmp" ne "$sdata[0]"){
$tmp = $sdata[0];
if($mobile){
&jcode'z2h_sjis(\$sdata[0]);
$dk++;
# if($dk < 10){
# $hm = $emjn[$dk];
# }else{
$hm = $lang[27];
# }
if($sdata[5] =~ /^http/){
$subcattag .=<<"EOM";
$hm
$sdata[0]
EOM
}else{
$subcattag .=<<"EOM";
$hm
$sdata[0]
EOM
}
}else{
if($sdata[5] =~ /^http/){
$subcattag .=<<"EOM";
$sdata[0] ($sdata[1])
EOM
}else{
$subcattag .=<<"EOM";
$sdata[0] ($sdata[1])
EOM
}
}
}
}
}
if($subcattag){
if($mobile && !$FORM{'mcat'}){
# print <<"EOM";
#$emj[1]
$lang[266]
#EOM
}elsif($mobile && $FORM{'mcat'}){
print "$subcattag";
&footer;
exit;
}elsif($manycatmode){
print <<"EOM";
$lang[266]
EOM
}
}
$linkurl = '';
}else{
&subcatlink;
}
if(!$deepcat && !$mobile && (($alllistup && $manycatmode) || !$alllistup)){print "
";}
}
}
$subflg = 0;
}
sub html{
&header;
$html = "$FORM{'html'}".".html";
open(HTML,"$html");@htm=;close(HTML);
if(!$mobile){print "
";}
my $mobilehtml = '';
foreach (@htm) {
$mobilehtml .= $_;
}
$mobilehtml =~ s/\<\%se\%\>/$se/g;
$mobilehtml =~ s/\<\%afid\%\>/$afid/g;
$mobilehtml =~ s/\<\%hmsaff\%\>/$hmsaff/g;
$mobilehtml =~ s/\<\%scmaff\%\>/$scmaff/g;
print $mobilehtml;
}
sub tophtml{
if($mobile){
open(HTML,"$infomhtml");@infomhtm=;close(HTML);
print "@infomhtm";
print <<"EOM";
EOM
$dk = 0;
$iit = 0;
print <<"EOM";
EOM
for($i=0;$i<=$#cat;$i++){
@cdata = split(/\,/,$cat[$i]);
@sdata = split(/\@\:/,$cdata[0]);
if($sdata[1] > $mimcnt && "$herecat" ne "$sdata[0]"){
local($eddata) = &urlencode($sdata[0]);
if($sdata[5]){
$linkurl = "c=$sdata[5]";
}else{
$linkurl = "key=$eddata";
}
if($sdata[2] && $sdata[0] !~ /^#/){
$stitle = $sdata[2];
}else{
$stitle = $sdata[0];
}
&jcode'z2h_sjis(\$stitle);
if(!$lang[304]){
$tmp = length($stitle);
$tmp = 13-$tmp;
if(length($stitle) > 13){
$stitle = jspank(substr($stitle,0,13));
# $stitle .= '.';
$tmp = length($stitle);
$tmp = 13-$tmp;
}
$adtitle = '';
$n = $iit % 2;
if($n){$tmp=0;}
if($tmp > 0){
for($ii=1;$ii<=$tmp;$ii++){
$adtitle .= ' ';
}
}
$iit++;
$dk++;
}
print "$lang[27]
$stitle$adtitle";
if($n || $lang[304]){
print "
";
}
if($subopen){&subcatlink;}
$herecat = "$sdata[0]";
}elsif(!$sdata[1] && $sdata[0] =~ /^