VPF::запись в файл + редирект - Форум программистов

Evgenia

Дата 27.1.2005, 10:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Возникла следующая проблема.

Пользователь заполняет форму -> запускается скрипт.

В скрипте:

1. выполняется upload файла:

Код


@parts = split(/\\/,$filename);
$file=@parts[(scalar @parts) - 1];
open (UFILE,">$imgurl$file");
binmode(UFILE);
flock(UFILE,2);
while ($bytesread=read($filename,$buffer,1024)) { print UFILE $buffer; }
close(UFILE);
close $filename;

2. редактируется некий текстовый файл:

Код


open (OLD,"< $old"); 
open (NEW,"> $new"); 
select(NEW);
while()
{
...
print NEW $_;
}
close(OLD);
close(NEW);
rename($new,$old);

3. выполняется редирект

Код


print "Status: 302\n";
print "Location: $url\n\n";

В результате в error_log появляется ошибка "Premature end of script headers".

Что в данном случае не так?
Как в одном скрипте сделать запись в файл и сразу после этого - редирект? Или это невозможно в принципе?

kostofffan

Дата 28.1.2005, 12:50 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ошибка "Premature end of script headers" указывает на то, что клиенту отсылаются не все заголовки. Может здесь нужно в самом начале добавить что-то типа "Content-Type: text/html".
Да, кстати, ты не забыл после select(NEW) написать select(STDOUT)?

korob2001

Дата 28.1.2005, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61

Что хранится в переменной $url? Точнее, как ты записываешь этот url?

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »