Apache 1.3 に mod_perl を使用します。クライアントのアドレスは、ヘッダー X-Forwarded-For、HTTP_X_FORWARDED_FO、または環境変数 $ENV{REMOTE_ADDR} を取得します。
sub address {
my $self = shift;
unless(defined $self->{address}){
my $header = $self->apache->headers_in->{'X-Forwarded-For'} ||
$ENV{HTTP_X_FORWARDED_FOR} || '';
my ($ip) = $header =~ /([^,\s]+)$/;
$self->{address} = $ip || $ENV{REMOTE_ADDR} || '';
}
return $self->{address};
}
問題は、192.168.200.11、192.168.1.156、192.168.0.73 などのアドレスが時々あることです。サーバーはネットワーク192.168.0.0に接続されていませんが。