sub domain_check {
local($addr) = $ENV{'REMOTE_ADDR'};
local($_) = gethostbyaddr(pack("C4",split(/\./,$addr)),2);
if ($_ eq '') { $_ = $addr; }
local(@down) = ('proxy','biglobe','meshnet','so-net');
local($i) = 0;
local($match) = 0;
foreach $ad (@down) {
if (/$ad/i) { $match = 1; last; }
$i++;
}
if ($match) {
local($msg);
if ($i == 0) { $msg ='プロキシ経由での入室をお断りしています。'; }
else { $msg = 'あなたと同じプロバイダで悪質なイタズラをされる方がいて、
現在、入室をお断りしています。'; }
print "Content-type: text/html\n\n";
print "
\n"; print "
\n"; print "$msg
| \n";
print "