#!/usr/bin/perl
use warnings;use integer;use strict;no strict "refs";
our($cHTM,$HST,$btyX,$cGET,$cGIF,$cOPT,$btyX4sc,$btyXhard,$ipl,$outexe);$outexe='out';my$MEmain='';if(!(defined($main::ipl)&& $main::ipl)){my$s='X.out';$MEmain='1';if(-e"./$s"){$ipl='.';}elsif(-e"../$s"){$ipl='..';}elsif(-e"../../$s"){$ipl='../..';}elsif(-e"../../../$s"){$ipl='../../..';}elsif(-e"../../www/$s"){$ipl='../../www';}else{$s='';}if($s){$outexe=(-e"$ipl/cbtyX.exe")?'exe':'out';$s=`$ipl/cbtyX.$outexe`;}else{$s='4|gif||0|';$ipl='.';}($main::btyX,$main::cGIF,$main::btyX4sc,$main::btyXhard)=split(/\|/,$s);$main::cHTM=($main::btyX)?'1' :'';if(defined($ENV{'SERVER_NAME'})){$s=lc($ENV{'SERVER_NAME'});if(! index($s,'www.')){substr($s,0,4)='';}$main::HST=$s;}$main::cGET='POST';$main::cOPT='y';}
close STDERR;open(STDERR,">>$ipl/0SNP");
my $pb='';
if($MEmain){
my
$P3Pk="status: 200 oKay\x0APragma: no-cache\x0ACache-Control: no-cache\x0AContent-type:";
$pb="$P3Pk text/html; charset=Shift_JIS\x0A\x0A";
if(( $#ARGV >=0 )&&( $ARGV[0] eq'ssi404')){ $pb=''; }
}
my($uu,$tt);
for(;;){
last if($btyXhard); if($main::HST eq'372525.com'){$uu='372525.jp';
}elsif($main::HST eq'toride.net'){$uu='toride.info';
}elsif($main::HST eq'xjp.jp' ){$uu='s86.net';
}elsif($main::HST eq'miiv.com' ){$uu='miiv.net';
}else{$uu=$main::HST;
}
$tt=(defined($ENV{'REQUEST_URI'})) ?$ENV{'REQUEST_URI'} :"";
if($tt eq'/index.htm'){ $tt='';
}elsif(($tt=~m#^/itx\.cgi#oi)
||($tt=~m#^/(blog/bl|2525/25|book/bo|diet/di|fun/fu|hup/hu|pc/pc|pet/pe|seo/se|tnt/tn)00[0-9]{4}\.htm#oi)){
$tt="/kidx.cgi?7gif";
}
$pb.="
携帯画面で見る ";
last;
}
$pb.=" ";
my($bb,$ii,$jj);
if(open(IH,'./bbindex.tx-')){
binmode(IH); $ii=sysread(IH,$bb,600); close(IH);
if(defined($ii)){
$bb=~tr/\x0D\x0A\x1A/ /; $bb=~s/
/ /goi; $bb=~s###goi; $bb=~s#