Страница 1 из 1

[Perl] nginx + fastcgi -> x-accel-redirect

Добавлено: 2010-11-29 18:55:13
spens
Всем привет.

Столкнулся с проблемой в такой схеме:

из нжинкса запрос передается на fastcgi на котором висит перл скрипт проверки, который после проверки должен вернуть хидер X-Accel-Redirect нжинксу в internal локейшн.

Код: Выделить всё

#!/usr/bin/perl
 use strict;
 use FCGI;
 require HTTP::Headers;

 while (FCGI::accept >= 0) {

тут условия проверок, отрабатываются корректно.
результат проверок - ссылка на файл

 my $redirect = "/private/file.txt";

 my $h = HTTP::Headers->new();
 $h->header('X-Accel-Redirect' => $redirect);
}
получаю 502, нжинкс ругается

Код: Выделить всё

[error] 81647#0: *2436 upstream closed prematurely FastCGI stdout while reading response header from upstream

Может кто делал подобные финты в перле? Я просто впервые столкнулся с необходимостью передать редирект.

Спасибо заранее.

Re: [Perl] nginx + fastcgi -> x-accel-redirect

Добавлено: 2010-11-29 20:14:37
spens
Оказывается в конец надо было добавить

print $h->as_sting;