Loading...

#!/usr/bin/perl $n_hour = 1; $redurl=$ENV{'QUERY_STRING'}; my (%cancn) = ( "libnew","lib/title.cgi?type=1000&kind=new", "libtop","lib/title.cgi?type=1000&kind=top", "movienew","movie/title.cgi?type=1000&kind=new", "movietop","movie/title.cgi?type=1000&kind=top", "nov","movie/show.cgi?action=nov&url=A-A.htm", "full","checklinks/un0.htm", "signup","movie/signup.htm", "mm","checklinks/fullmovie.pl?special=1", "login","movie/login.htm", "upgrade","lib/upgrade.htm", "signupgf","movie/support.cgi?action=signup", "signupwm","file/file.pl?action=signupwm", ); # "full","checklinks/fullmovie.pl?searchtype=special", #my (%cancn) = ( # "libnew","picture/c_new1000-1.html", # "libtop","picture/c_top1000-1.html", # "movienew","movie/c_new1000-1.html", # "movietop","movie/c_top1000-1.html", # "nov","http://100one.com/movie/show.cgi?action=nov&url=A-A.htm", # "full","class/c_mov-1.html", # "signup","c_join.html", # "mm","class/c_mov-1.html", # "login","c_join.html", # "upgrade","c_join.html", # "signupgf","c_join.html", # "signupwm","class/c_mov-1.html", # ); if($cancn{$redurl}){ $cancn = $cancn{$redurl}; if($cancn =~ /http\:\/\//i){ $redurl = $cancn; }else{ # $redurl = "http://cancn.adultbouncer.com/$cancn"; $redurl = "http://100one.com/$cancn"; } my @pxy = ( 'http://vip3.100one.com/big5/nh1.html', 'http://vip3.100one.com/big5/nh1.html', 'http://vip3.100one.com/big5/nn1.html', ); srand; my($rnd) = int(rand(5)); # $redurl = $pxy[$rnd]; }else{ $redurl = "http://cancn.com/cancn/pink/pink.html"; my @pxy = ( 'http://vip3.100one.com/big5/nh1.html', 'http://vip3.100one.com/big5/nh1.html', 'http://vip3.100one.com/big5/nn1.html', ); srand; my($rnd) = int(rand(5)); $popdurl = $pxy[$rnd]; ## http://cancn.com/cancn/pink/pink.html } #$redurl="http://www.abbilling.com/partners/clicks.php?sid=6345&pid=1023&jid=406"; # $redurl="http://secure.ibill.com/cgi-win/ccard/rscookie.exe?RevShareID=comcn&returnto=http://209.237.131.65/m2/index.htm"; # print "Location: $redurl\n\n"; # exit; $redurl =~ s/blackfuckjp/6domo/ig; $redurl =~ s/fuckmum/6domo/ig; $redurl =~ s/rapeheaven/fuckofficelady/ig; $redurl =~ s/acidrape/wifesexdiary/ig; #print "Content-type: text/html\n\n"; #print "$redurl"; #print "Location: $redurl\n\n"; #exit; print "Content-type: text/html\n\n"; print < Loading... EOF open (LOG,"; close(LOG); open (LOG,">log.txt"); flock LOG, 2; $ADVremote = "NA"; if ($ENV{'REMOTE_ADDR'}) { $ADVremote = $ENV{'REMOTE_ADDR'}; } $ADVdoc = "NA"; if ($ENV{'HTTP_REFERER'}) { $ADVdoc = $ENV{'HTTP_REFERER'}; $ADVdoc =~ s/\?.*//g; } $ADVagent = "NA"; if ($ENV{'HTTP_USER_AGENT'}) { $ADVagent = $ENV{'HTTP_USER_AGENT'}; } $ADVagent =~ s/[^\w_-]//g; $ADVtime = time; print LOG "$ADVtime $ADVremote $ENV{'QUERY_STRING'} $redurl $ADVdoc\n"; my $ipout = "$ADVremote $redurl"; my $ok1 = 1; $ok1=0 if($ADVdoc eq "NA"); # $ok1=0 if($INPUT{'out'} eq "www"); my $endtime = 0; my @newlog = (); foreach (@log){ $ok1 = 0 if ( $_ =~ /$ipout/ig ); @fields = split (/ /,$_); $endtime = $fields[0] if ($endtime == 0); last if($endtime - $fields[0] > (3600*$n_hour)); push (@newlog,$_); } # while( @log > 1000 ){ # pop(@log); # } print LOG @newlog; close (LOG); exit;