#!/usr/bin/perl
$ENV_HTTP_REMOTE_ADDR=$ENV{REMOTE_ADDR};
sub GetHostByAddr {
my($ip_address) = @_;
my(@addr) = split(/\./, $ip_address);
my($packed_addr) = pack("C4", $addr[0], $addr[1], $addr[2], $addr[3]);
my($name, $aliases, $addrtype, $length, @addrs);
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_addr, 2);
return $name;
}
$myHostName = &GetHostByAddr($ENV{'REMOTE_ADDR'});
$testString1 = substr($myHostName,-22);
$testString2 = substr($myHostName,-9);
$testString3 = substr($myHostName,-15);
$testString4 = substr($myHostName,-26);
$testString5 = substr($myHostName,-10);
$testString6 = substr($myHostName,-24);
$testString7 = substr($myHostName,-16);
$testString8 = substr($myHostName,-30);
if (($ENV_HTTP_REMOTE_ADDR eq "27.95.168.244") || ($testString7 eq "eo.eaccess.ne.jp") || (substr($ENV_HTTP_REMOTE_ADDR, 0, 10) eq "175.177.42") || ($ENV_HTTP_REMOTE_ADDR eq "121.114.25.1"))
{
print <<"EOF";
Content-type:text/html
晒し刑を受けるスカート姿の純子
数秒で顔モザイクなしの純子のページにジャンプします。
もしもジャンプしない時は、上の画像をクリックして下さい。
EOF
exit(0);
}
if (($ENV_HTTP_REMOTE_ADDR eq "211.120.202.10") || ($ENV_HTTP_REMOTE_ADDR eq "101.111.249.33") || ($ENV_HTTP_REMOTE_ADDR eq "211.125.243.6") ||($ENV_HTTP_REMOTE_ADDR eq "125.55.55.117") || ($testString2 eq "ztv.ne.jp") || ($testString2 eq "tvm.ne.jp") || ($ENV_HTTP_REMOTE_ADDR eq "125.201.166.31") || ($ENV_HTTP_REMOTE_ADDR eq "222.2.2.168") || ($testString3 eq "iwate.ocn.ne.jp") || ($testString1 eq "adsl.ppp.infoweb.ne.jp") || ($testString4 eq "marunouchi.tokyo.ocn.ne.jp") || ($testString5 eq "nice-tv.jp") || ($testString6 eq "hrsmnt01.ap.so-net.ne.jp") || ($testString8 eq "fukuhanazo.fukushima.ocn.ne.jp"))
{
sub GetHostByAddr {
my($ip_address) = @_;
my(@addr) = split(/\./, $ip_address);
my($packed_addr) = pack("C4", $addr[0], $addr[1], $addr[2], $addr[3]);
my($name, $aliases, $addrtype, $length, @addrs);
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($packed_addr, 2);
return $name;
}
$hostname = &GetHostByAddr($ENV{'REMOTE_ADDR'});
($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time);
$year += 1900;
$mon++;
open OUT, ">>private_page_access_list.txt";
print OUT "*", $year, "-", $mon, "-", $mday, " ", $hour, ":", $min, ":", $sec, " [", $ENV{REMOTE_ADDR}, "] ", $hostname, "\n";
close OUT;
print <<"EOF";
Content-type:text/html
晒し刑を受けるスカート姿の純子
数秒で顔モザイクなしの純子のページにジャンプします。
もしもジャンプしない時は、上の画像をクリックして下さい。
EOF
exit(0);
}
else
{
($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time);
$year += 1900;
$mon++;
open OUT, ">>private_page_access_list.txt";
print OUT " ", $year, "-", $mon, "-", $mday, " ", $hour, ":", $min, ":", $sec, " [", $ENV{REMOTE_ADDR}, "] ", $myHostName, "\n";
close OUT;
print <<"EOF";
Content-type:text/html
晒し刑を受けるスカート姿の純子
まことに申し訳ありませんが、ここからは顔モザイクなしの純子のページにアクセスできません。
数秒で自動的に一般ギャラリーのトップに移動します。移動しない時は、上の画像をクリックして下さい。
EOF
}
