Re: [apache-talk] X-Forwarded-For

[Eugene Grosbein <eugen@xxxxxxxxxxxxxxxxxxx>]

"Alexander Farber (EED)" wrote:

> Я в mod_perl новичок, но почему $$r, а не просто $r?
> И почему такой странный regex (не запятые, не пробел)?

Только что дошло. Результат перевода альтавистой :)
Код взят с http://www.heise.de/ix/artikel/2000/01/156/03.shtml,
там так:

package Apache::ProxyAddr;
use Apache::Constants qw(:common);
sub handler {
  my $r = shift ;
  if ($r -> header_in('X-Forwarded-For') =~ /([^,\s]+)$/)    {
    $r -> connection -> remote_ip($1);
  }
  return OK;
}
1;

А по сути, решение корректное? Мне статический контент отдавать надо,
защищенный через allow/deny или еще как.

Eugene
=============================================================================
=               Apache-Talk@xxxxxxxxxxxxx mailing list                      =
Mail "unsubscribe apache-talk" to majordomo@xxxxxxxxxxxxx if you want to quit.
=       Archive avaliable at http://www.lexa.ru/apache-talk                 =