>> Ну пишет же: Apache/Constants.pm
> Нету такого
> perl-5.8.8
> mod_perl2.0.2
> В более старых версиях mod_perl-1.х.х Constants.pm есть..
> переставлять в низшую сторону?
В httpd.conf добавить:
PerlInitHandler realip
Модуль realip.pm:
--------
package realip;
use strict;
use Apache2::Const -compile => qw(:common :http);
use Apache2::Connection;
use Apache2::RequestRec;
use APR::Table;
sub handler {
my $r = shift;
my $realip = $r->headers_in->{'X-Real-IP'};
$r->connection->remote_ip($realip) if $realip;
return Apache2::Const::DECLINED;
}
1;
-------
--
С уважением,
jackal mailto:jackal@xxxxxxxxxxxx
