★三　【スクリプト改造工房 PART 8 】　★三

★三　【スクリプト� ..

595:594
05/01/29 16:03:22
# ホスト名取得
sub get_host {
　$host = $ENV{'REMOTE_HOST'};
　$addr = $ENV{'REMOTE_ADDR'};

　# ホスト名取得に gethostbyaddr関数を使用する場合は$gethostbyaddr = 1;にします。
　$gethostbyaddr = 1;

　if ($gethostbyaddr) {
　　if ($host eq "" || $host eq "$addr") {
　　　$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
　　}
　}
　if ($host eq "") { $host = $addr; }
}

次ページ