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
|