use Data::Dumper;
require Encode;
use Apache2::Filter;
+use Apache2::Connection;
#our $W;
$W->{"headers_in"}=My::Hash::Merge->new(
$W->{"headers_in"},
My::Hash::Sub->new({
- "_get_remote_host"=>sub { return $W->{"r"}->get_remote_host(); },
+ "_remote_ip"=>sub { return $W->{"r"}->connection()->remote_ip(); },
}),
);
$W->{"headers_in"}=My::Hash::Readonly->new($W->{"headers_in"});
# As 'Apache2::ForwardedFor' takes the first of $ENV{"HTTP_X_FORWARDED_FOR"}
# while the contents is '127.0.0.1, 213.220.195.171' if client has its own proxy.
# We must take the last item ourselves.
- my $r=$W->{"headers_in"}{"X-Forwarded-For"} || $W->{"headers_in"}{"_get_remote_host"};
+ my $r=$W->{"headers_in"}{"X-Forwarded-For"} || $W->{"headers_in"}{"_remote_ip"};
$r=~s/^.*,\s*//;
return $r;
}