O@y XNvg ..
595:594
05/01/29 16:03:22
# zXgΌζΎ
sub get_host {
@$host = $ENV{'REMOTE_HOST'};
@$addr = $ENV{'REMOTE_ADDR'};
@# zXgΌζΎΙ gethostbyaddrΦπgp·ικΝ$gethostbyaddr = 1;Ι΅ά·B
@$gethostbyaddr = 1;
@if ($gethostbyaddr) {
@@if ($host eq "" || $host eq "$addr") {
@@@$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
@@}
@}
@if ($host eq "") { $host = $addr; }
}
y[W±«π\¦1π\¦ΕVX\¦XbhΜυήXκbθΜj
[X¨ά©ΉXg₯IvVπ\¦ΙΒΤ΅2ch
3989ϊOΙXV/341 KB
S:undef