0
對Apache 1.3使用mod_perl。客戶端的 地址獲得頭X - 轉發,因爲,HTTP_X_FORWARDED_FO,或環境變量$ ENV {} REMOTE_ADDR:使用http請求標頭中的地址192.168.0.0網絡的IP地址
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。