#/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 $sq;require"$main::ipl/coma000.pl"; our $comaM=coma000();
my $REQUEST_URI;
$REQUEST_URI=(defined($ENV{'REQUEST_URI'}))? $ENV{'REQUEST_URI'} :'';
$REQUEST_URI=$ENV{'DURI'} if(($REQUEST_URI eq'')&&(defined($ENV{'DURI'})));
my($fmse,$sky)=('','');
if(defined($ENV{'HTTP_REFERER'})) { ($fmse,$sky)=split(/\?/,"$ENV{'HTTP_REFERER'}?",2);
}
my $fmhst=lc($fmse); $fmhst=~s#^http://(www.)?([^/]+).*$#$2#o;
my $mc3c=(".$ENV{'SERVER_NAME'}"=~m/\.(.)[^.]*?\.(.)[^.]+$/)
?"$1$2" :'';
our $usrAgent=(defined($ENV{'HTTP_USER_AGENT'}))?$ENV{'HTTP_USER_AGENT'}:'';
my $mcfn=($REQUEST_URI=~m#^/([^.]*)#)?"$1":'';
if(defined($ENV{'QUERY_STRING'})
&&($ENV{'QUERY_STRING'}=~m/h=([^.&]*)/o)){
$mcfn=$1;
}
sub dss1sq(){ my$sq=0; if(open(IH,">>$comaM/ajpofi.seq")){ flock(IH,2); print(IH 'o'); if(($sq=tell(IH))>333444){$sq=1;truncate(IH,1);} close(IH);
}
$sq;}
$sq=dss1sq(); my$dss1d="
$sq";
if($MEmain &&(!defined($ENV{'DURI'}))){ print
"Content-type: text/html; charset=Shift_JIS\x0A\x0A"; }
print "$dss1d";
if(open(IH,">>$comaM/ajpofi.mt3")){
print(IH 's'.time."$ENV{'REMOTE_ADDR'}/001y$mc3c$mcfn$sq0$fmse$usrAgent\x0A"); close(IH);}
$mcfn=$usrAgent;
if($mcfn !~m#bot|spider|/slurp|crawler#i){ $mcfn=~tr/\!/ /;
if(open(IH,">>$comaM/ajdsplog.mt3")){print(IH "!0$mcfn");close(IH);}}
if($MEmain){exit;}
1;
.
このページは 信頼されて22年 株式会社iLex.jp が作成しています メール 0297@846846。jp Tel 0297の846846
|
|