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

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@nginx.org
http://nginx.org/mailman/listinfo/nginx-ru