Re: нужн совет по синтаксису... в перловском модуле.

[jackal]

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

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;
}


-- 
С уважением, Евгений.