ПРОЕКТЫ 


  АРХИВ 


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: нужн совет по синтаксис у... в перловском модуле.



Здравствуйте,

On Saturday 27 February 2010 12:45:37 Inx0d wrote:
> дело в том, что мод перл в нгинхе и апатче не совсем одинаковые, поэтому у
>  меня не работает запрос в header_out собственно мне нужно сделать
>  проксирование
> вроде того в апаче...
> header_out(Location => 'http://mynewdomain.ru/');
> но в nginx так же не работает, как должно?
> 
> и еще...
> как в перл_моде получить запрошенный url?
> т.е. если я в браучере запросил http://my.host.ru/ вот это мне и нужно
>  получить в перловом модуле... как?
> 

use nginx;
sub perl_handler {
    my $r = shift;
    my $host = $r->header_in("Host");
    $host = '' unless $host;
    $host =~ s/\:\d*$//;

        #skipped

    my $uri = $r->uri();
    my $args = $r->args();
    $uri .= "?$args" if $args;

    $r->header_out("Location", "http://$host$uri";);
    return HTTP_MOVED_PERMANENTLY;
}


-- 
С уважением, Евгений.
_______________________________________________
nginx-ru mailing list
nginx-ru@xxxxxxxxx
http://nginx.org/mailman/listinfo/nginx-ru


 




Copyright © Lexa Software, 1996-2009.