file upload

[NeoNox]

дМС ОБЮБМБ ОХЦОП HTML ЧЩХЮЙФШ!

[Е. Перлов]

Чудак-человек, чем на форуме спрашивать, взял да и попробовал

А чё пробовать-то, у меня и так всё работает; но это не вселяет в меня слепую веру в то, что такая же работоспособность будет обеспечиваться и на других ОС.

http://www.w3.org/TR/html4/interact/forms.html#h-17.3

OK, thanks

дМС ОБЮБМБ ОХЦОП HTML ЧЩХЮЙФШ!

ЧЕУШ ЮФПМЙ?

[YA]

ЧЕУШ ЮФПМЙ?

Именно!

[Wyclef]

Упс

При попытке закачки большого файла (>1mb) через web-форму - получаю ответ "Сервер не найден", с маленькимим файлами все ок. Где ответ поискать?

Здесь в форуме пробегала тема, что можно пользоваться сокетами и чем-то там, чтобы на фтп заливать с логином и паролем), киньте примерчик.

[Chs]

Здесь в форуме пробегала тема, что можно пользоваться сокетами и чем-то там, чтобы на фтп заливать с логином и паролем), киньте примерчик.

Поиск по форуму рулит.

[Wyclef]

рулит то он рулит... а ответа нету...

[Chs]

рулит то он рулит... а ответа нету...

Руки.
Искать по этому форуму. Ключевое слово ftp. Пятая строчка в списке результатов.

[Mog.]

При попытке закачки большого файла (>1mb) через web-форму - получаю ответ "Сервер не найден", с маленькимим файлами все ок. Где ответ поискать?

При попытке закачки файла > 40 kb, получаю ош. 500. Ответ очевидно у тех. поддержки хостинга, т.к. тот же код на другом хостинге (таком же бесплатном) закачивает (ну как минимум 500кб, проверено ) без проблем.
Отсюда вытек вопрос, может ли хостер ограничить этот обьем?

[NeoNox]

Если я ничего не путаю, то это может быть лимит, установленный администратором в конфиге апача.

[Wyclef]

Руки.
Искать по этому форуму. Ключевое слово ftp. Пятая строчка в списке результатов.

Глаза.
Ладно, но чего-то там бред какой-то... Забыли.

Вы мне вот, что скажите - меня конкретно интерисует такой механизм, реализУем или нет:

1. Есть multipart веб-форма для закачки.
2. Я делаю обзор, выбираю файл, посылаю.
3. Скрипт быстро это дело принимает, делает редирект куда-то (просто на др. URL - я могу уйти с него, закрыть браузер и т.д.)
4. Я иду пить чай или занимаюсь чем-то еще:), а в это время выбранный файл закачивается на сервер.

PLZ, Поверните меня в нужную сторону и давайте обсудим на пальцах... А то все чета вокруг до около, примеры бы какие...

[NeoNox]

3. Скрипт быстро это дело принимает, делает редирект куда-то (просто на др. URL - я могу уйти с него, закрыть браузер и т.д.)
4. Я иду пить чай или занимаюсь чем-то еще, а в это время выбранный файл закачивается на сервер.

Реализуем, только грабли расчищать будешь сам.
Точнее грабель не так уж много...
нужная сторона - perldoc -f fork

[Wyclef]

Почему не загружались большие файлы вроде выяснил:

В .htaccess было прописано:
LimitRequestBody 131072

В логах сервера нарыл следующую запись:
... Request content-length of 1278353 is larger than the configured limit of 131072

Изменил на большее значение - файл закачался, но скрипт застревает на странице с формой пока не примет все данные, а только потом редиректит на др. адрес - соответственно пункт 3 не выполняется.

perldoc -f fork

Использовал код с fork-ом, но у меня подозрение, что он тут ни при чем... Код приведу в порядок и выложу чуть позже.

[Wyclef]

Вот собсно:

загрузка -> редирект

а редирект -> загрузка? (вот в чем вопрос...)

upfile.pl


#!/usr/bin/perl
use strict;
use CGI qw(:standard);
my $Query = new CGI;
my $remote_path = \'/home/user/WWW/upload\';
my $success_url = \'success.html\';
my $local_path = $Query->param(\'upload\');
my $pid = fork();
if ($pid) {

print $Query->redirect( -url => $success_url );

wait;

exit 0;
} else {

$| = 1;

die "Cannot fork $!" unless defined $pid;

upload_file($remote_path.\'/\'.extract_name($local_path));

exit;
}

########################################
sub upload_file {

my $path = shift or return;

my $bytes;

my $buffer;

open F, ">$path" or die "Cannot open $path for writing\\n";

flock F, 2;

binmode F;

while ($bytes = read($local_path, $buffer, 4096)) {

print F $buffer;

}

die "Error reading uploaded file\\n" unless defined $bytes;

close F;
}

########################################
sub extract_name {

my $path = shift or die "Nothing to upload\\n";

$path = reverse $path;

$path =~ /([^\\\\\\/\\:]*)/;

$path = reverse $1;

return $path;
}


В коде: $path =~ /([^/:]*)/; исправить на: $path =~ /([^\\\\\\/\\:]*)/;

Форма

[Mog.]

Вопрос спецам
Скрипт вызываемый методом ПОСТ запускается до того, как сервер получает весь запрос с телом, после приема всего запроса, после приема только заголовка запроса (еще варианты)?

[Wyclef]

И тишина...

Я так думаю организовать редирект до загрузки файла невозможно, т.е. только получил, переправил.

Есть идеи?

З.Ы. а в коде можно и без fork\'a обойтись.