ПРОЕКТЫ 


  АРХИВ 


Apache-Talk @lexa.ru 

Inet-Admins @info.east.ru 

Filmscanners @halftone.co.uk 

Security-alerts @yandex-team.ru 

nginx-ru @sysoev.ru 


  СТАТЬИ 


  ПЕРСОНАЛЬНОЕ 


  ПРОГРАММЫ 



ПИШИТЕ
ПИСЬМА












     АРХИВ :: nginx-ru
Nginx-ru mailing list archive (nginx-ru@sysoev.ru)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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



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

_______________________________________________
nginx-ru mailing list
nginx-ru@xxxxxxxxx
http://mailman.nginx.org/mailman/listinfo/nginx-ru


 




Copyright © Lexa Software, 1996-2009.