|
|
|
Junior Member
 
участник
Last Login: 12.12.2005 12:58
Сообщ.: 24,
Visits: 265
|
|
Возникла следующая проблема.
Пользователь заполняет форму -> запускается скрипт.
В скрипте:
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";
print "Location: $url";
В результате в error_log появляется ошибка "Premature end of script headers".
Что в данном случае не так?
Как в одном скрипте сделать запись в файл и сразу после этого - редирект? Или это невозможно в принципе?
|
|
|
|
|
Supreme Being
участник
Last Login: 13.07.2006 17:05
Сообщ.: 124,
Visits: 1 356
|
|
А вы попробуйте так редиректить:
print "Location: $url";
а строчку print "Status: 302"; убрать.
Возможно сервер ее сам подставляет - а вы как бы дублируете этот заголовок. В общем проверьте, это распрастраненный баг.
PerlMonks.Org.Ru.... coming soon
|
|
|
|