他山之石～跡地 -Cyprus on the Web-

　シナリオ＃107：巨乳の誘惑に
　KAITO「り、リン、ごめん、ＧＷなんだけど。。。」
　 リン「うん！楽しみだね！」
　KAITO「実は。。。新人のルカって子がどうしてもって。。。」
　 リン「・・・」

　どうする？どうする？

　世の中のお兄ちゃん達。
　嫌われないようにして下さいね？

　SAIの試用期限があと1日。
　ざざっと描くのには慣れる事ができましたとさ。
　5000円出して買っても良いよーな気もするんだが。。。さてはて？

　明日は葬式です。
　同級生の母上が亡くなりました。
　ぼちぼち、そういう歳なんですねぇ。。。

　さて、本日のお題は「Web Analyzeでホストが空白のヒトが来た場合IPを表示する」です。
　Web Libertyさまのサポート掲示板ネタ。（元記事）

　んでわ具体的な方法いってみましょうー。

/lib/webliberty/Host.pm

　ここがホストとアドレスを見ている処。

### ホスト取得
sub get_host {
my $self = shift;

my $host = $ENV{'REMOTE_HOST'};
my $addr = $ENV{'REMOTE_ADDR'};

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

return $host;
}
 

　これを以下のようにする。

### ホスト取得
sub get_host {
my $self = shift;

my $host = $ENV{'REMOTE_HOST'};
my $addr = $ENV{'REMOTE_ADDR'};

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

if ($host eq "") {
$host = $addr;
}

return $host;
}
 

　以上。

　ウチに来る方も台湾、韓国、中国の方が結構いるんですけど
　これで一応、空白というのは回避可能なよーです。

　・・・といってもウチの場合、サーバの方でアクセスログ残ってるし、それ以前にhtaccessで悪質な業者は弾いてるんでコレでIPが見れたからどうだってゆーのは無いんですけどｗ