perl и header_out

[Igor Sysoev]

On Sun, Dec 09, 2007 at 10:48:55AM +0200, deniswork at uzvik.kiev.ua wrote:

> День добрый,
> Хочу отдать X-Accel-Redirect встроенным перлом.
> 
> кусок конфига.
> 
>         location / {
>             perl  hello::dl;
>         }
> 
>         location /dl {
>             root /home/denis/;
>             internal;
>         }
> 
> 
> и перл часть:
> 
> sub dl {
>     my $r = shift;
>    $r->send_http_header;
>    $r->header_out("X-Accel-Redirect","/dl/file");
> #   $r->internal_redirect("/dl/file.txt");
>     return OK;
> }
> 
> файл /home/denis/dl/file.txt существует.
> 
> Что делаю не так? Подскажите пожалуйста.
> 
> В логах пусто, не считая

Из перла нужно делать как раз $r->internal_redirect().
X-Accel-Redirect работает только в proxy и fastcgi, делает
именно internal_redirect().


-- 
Игорь Сысоев
http://sysoev.ru