Re: Вопрос по nginx proxy + perl

[Maxim Dounin]

Hello!

On Wed, Sep 26, 2012 at 09:53:59AM -0400, actionless wrote:

> > Если хочется сначала скормить запрос перлу, а потом в зависимости 
> > от результата идти или не идти на бекенд - то можно это сделать, 
> > сконфигурировав для хождения на бекенд отдельный location и в 
> > perl'е по необходимости используя функцию $r->internal_redirect():
> > 
> > http://nginx.org/ru/docs/http/ngx_http_perl_module.html#methods
> 
> Спасибо за быстрый ответ!
> Мне нужен именно такой вариант, но $r->internal_redirect(): я уже пробовал -
> тогда нгинкс мне просто отдавал статику из дефолтной папки.
> 
> Может, я что-то упустил в самом перл-скрипте?
> 
> use nginx;
> sub logger {
>     my $r = shift;
>     return OK if $r->header_only;
>     my $ip = $r->remote_addr;
> 
> #тут код на перле
> 
>     $r->internal_redirect("/proxy");
>     return OK; # тут пробовал return DECLINED, но результат тот же
> }

Должно работать, скорее всего вы просто недоконфигурили конфиг в 
части описания location'ов.  Пример:

     location /perl {
         perl '
             sub {
                 my $r = shift;
                 $r->internal_redirect("/foo");
                 return OK;
             }
         ';
     }

     location /foo {
         return 200 "i'm /foo\n";
     }

$ fetch -qo - http://localhost:8888/perl
i'm /foo

-- 
Maxim Dounin
http://nginx.com/support.html