VPF::Файлы от 10к и больше не грузятся (Upload)

TTT

Дата 29.1.2008, 21:44 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: нет
Всего: 1

Есть простой скрипт:

Код


#!c:\perl\bin\perl.exe -w

if($ENV{REQUEST_METHOD} eq "POST")
  {
  binmode STDIN;
  $size = $ENV{CONTENT_LENGTH};
  $bytesread = 0;
  while($bytesread < $size)
    {
    $blen = read STDIN, $buffer, 4096, $bytesread;
    $bytesread += $blen;
    }
  print "Content-Type: text/html\n\n";
  my $len = length($buffer);
  print "<HTML><BODY>\$size=$size;  \$len=$len;<BR/> $buffer </BODY> </HTML>";
  }
else
  {
  print qq{Content-Type: text/html\n\n
  <HTML> <BODY>
  <FORM ACTION="$ENV{SCRIPT_NAME}" ENCTYPE="multipart/form-data" method="POST">
  FROM:<INPUT TYPE=file name="file upload">
  <INPUT TYPE=submit value="send">
  </FORM> </BODY> </HTML> };
  }

локально на денвере работает без проблем. грузит файлы и по 200К. на сервере в в интернете не хочет грузить файлы больше 10К. зависает и по таймауту вываливается. локально у меня винда XP Pro SP2, пакет Denwer. В интернете сервер на Win2003, и Oracle HTTP Server (Apache). Перл 5.8.8 в обоих местах. Подскажите в чем может быть проблема.

ginnie

Дата 29.1.2008, 22:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

Уважаемый TTT, отвечу вопросом на вопрос:
есть нормальный, проверенный в работе модуль CGI, почему некоторые его игнорируют и начинают изобретать "велосипеды" (которые еще не везде ездить могут smile

)?

Если по теме вопроса, то попробуйте изменить условие завершения цикла чтения из STDIN - читать до конца данных в потоке (а не конкретное число байт); возможно это наведет Вас на правильные мысли.

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

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

TTT

Дата 29.1.2008, 23:33 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: нет
Всего: 1

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

Это сообщение отредактировал(а) TTT - 29.1.2008, 23:34

ginnie

Дата 29.1.2008, 23:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

Цитата(TTT @ 29.1.2008, 23:33

)

А изобретать велосипед пришлось когда модуль не работает

можно с этого места поподробнее smile

вывод в лог

Код


warn "readed bytes: $bytesread\n";

внутри цикла поможет понять, что поисходит.

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

TTT

Дата 30.1.2008, 00:05 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: нет
Всего: 1

Цитата(ginnie @ 29.1.2008, 23:46

)

warn "readed bytes: $bytesread\n";

в лог пишет только при удачной попытке, неудачная - броузер ожидает ответа от сервера, и очень долго ожидает. потом завершается по таймауту
при этом процессор грузится на 100%

Это сообщение отредактировал(а) TTT - 30.1.2008, 00:21

ginnie

Дата 30.1.2008, 01:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

Если процессор Вашего ПК загружен на 100% и в логе сервера тишина, возможно проблема на Вашем ПК. Попробуйте загрузить файл из другого браузера.

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

TTT

Дата 30.1.2008, 14:49 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2007

Репутация: нет
Всего: 1

Проблема решилась установкой апача от апача. Поставил 2.2. Все работает. К сожалению так и не получилось выяснить причину такого ограничения. Спасибо ginnie за участие.

ЗЫ: 100% загрузка сервера а не клиента

Это сообщение отредактировал(а) TTT - 30.1.2008, 14:51

nitr

Дата 30.1.2008, 21:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

TTT, молодец что решили сами.
Так всё же, причину "невозможности" использования CGI.pm можно указать?

100% загрузка из-за цикла while.

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

I love ArchLinux

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