Закачка. Скрипт прилагается.

[Yuraz]

Всех приветствую!
Встретился с такой проблемой, в первый раз решил использовать закачку файлов на сайте, сделал все по книге CGI-программирование, Павлова.
Форма на экран выводится, после заполнения полей и указания файла, нажимаю кнопку отправить. Браузер начинает отсчитывать секунды и минуты, и ни чего. Подскажите, в чём проблема?
Пользуюсь W2K, Apache 3.12, Perl, на локалхосте.


#!/usr/local/bin/perl
#fileput.pl
#############
#############
$datafile="fotos.txt"; #
$fotodir="."; #
$cgi = "http://127.0.0.8/cgi-bin/fileput.pl";
#############
#
#############
print "Content-type: text/html\\n\\n"; #
if($ENV{\'REQUEST_METHOD\'} eq \'GET\'){$query=$ENV{\'QUERY_STRING\'};}
else{sysread(STDIN,$query,$ENV{\'CONTENT_LENGTH\'});}
if($query eq \'\'){
print <

Èìÿ
Ìûëî
Êîìåíòàðèé
Ôîòî

FORM
}
else{
if($ENV{\'CONTENT_TYPE\'}=~/multipart/){
  ($bound)=($ENV{\'CONTENT_TYPE\'}=~/boundary=(\\S+)/);
  @parts=split(/\\n--$bound(-)*/,$query);
  @parts=grep($_ ne \'\' ,@parts);
  foreach(@parts){
    ($header,$body)=split(/\\n\\s*\\n/,$_,2);
    ($name)=(/name=\\"([^\\"]*)\\"/);
    $body=~s/\\n$//;
    $body=~s/\\r$//;
    ($filename)=(/filename\\"([^\\"]*)\\"/);
    if($name eq \'username\'){$username=$body;}
    if($name eq \'useremail\'){$useremail=$body;}
    if($name eq \'usercomment\'){$usercomment=$body;}
    if($name eq \'userfoto\'){$userfoto=$body;$userfilename=$filename;}
    }
  }
else{}
$userfilename1=$userfilename;
$filedup=0;
while(-e "$fotodir/$userfilename1"){
  $userfilename1="$filedup_$userfilename";
  $filedup++;
  }
open(F,">$fotodir/$userfilename1");
print F $userfoto;
close(F);
open(DATA,">>$datafile");
print DATA "$username::$useremail::$userfilename1::$usercomment\\n";
close(DATA);
print "";
print "!!!!!!!!!!!!!!!!!!!!!!";
print "";
}

[Chs]

Фак смотрим, да?
Там есть работающий пример.

P.S.: И каждый раз находиться кто-то, кто пытается сделать разбор параметров ручками. Ээээ...надоели....

[Yuraz]

Да, забыл указать, после Submit, Apache подвисает, комп работает под 100%, пока Apache принудительно не закроешь, так и будет под 100% висеть. В логах Apache ничего не пишет.

PS: Может у кого есть другой примитив скрипта этой же реализации?

[Yuraz]

Фак смотрим, да?
Там есть работающий пример.

Сорри, сейчас смотрю.

[Evgeny]

Да, забыл указать, после Submit, Apache подвисает, комп работает под 100%, пока Apache принудительно не закроешь, так и будет под 100% висеть. В логах Apache ничего не пишет.

PS: Может у кого есть другой примитив скрипта этой же реализации?

Это ещё что значит? После выполнения скрипта Апач перезапускать надо? В чем проблема может быть?

[Yuraz]

use strict;
use Fcntl;

Хорош пример, ничего не скажешь.

[Evgeny]

А вообще, без модулей, как закачка реализуется? Откуда данные файла считываются? Из STDIN читаются?
Ни у кого нет работающего примера?

[NeoNox]

Откуда данные файла считываются? Из STDIN читаются?

А модуль посмотреть?

[NeoNox]

Хорош пример, ничего не скажешь.

Сарказм? Напрасно.

[Evgeny]

А модуль посмотреть?

А подсказать?

[NeoNox]

А подсказать?

Предлагаешь мне его поковырять?

[Yuraz]

Сарказм? Напрасно.

Не хочется инсталировать различные модули. Хотя да, с этими модулями код уж очень простой в факе.
Вопрос, почему ж мой то не пашет, из книги Павлова? Набрал вроде один к одному, 500 ошибок не выдаёт. Может дело в
 

этой строке, не правильно указал ссылку на скрипт, пробовал всяко, тогда как правильно....

[NeoNox]

Не хочется инсталировать различные модули.

Сложно их вырезать из стандартной поставки Perl...

Вопрос, почему ж мой то не пашет, из книги Павлова?

Это вопрос, вероятно, к Павлову.

Вопрос, почему ж мой то не пашет, из книги Павлова?
//quote]
Ну давайте начнем обсуждать правильно ли в книге Павлова сделан разбор multpart/form-data.
Если очень интересно посмотри как сделано тоже самое в CGI.

[Serchey]

Короче говоря, проанализировав твой(Павлова) код и симптомы Апач, я пришел к выводу, что баг в этих местах:
...
foreach(@parts){
($header,$body)=split(/\\n\\s*\\n/,$_,2);
($name)=(/name=\\"([^\\"]*)\\"/);  - - - - - лажа
$body=~s/\\n$//;
$body=~s/\\r$//;
($filename)=(/filename\\"([^\\"]*)\\"/); - - - - - лажа
...

попробуй ($name) = ($header =~ /name=\\"?([^"\\]*\\"/);
($filename) = ($header =~ /filename=\\"?([^"\\]*\\"/) соответственно.

Может я и ошибаюсь, но в любом случае используй хотя бы -w.
А вот в конструкции
...
while(-e "$fotodir/$userfilename1"){
$userfilename1="$filedup_$userfilename"; - - - полная лажа
$filedup++;
}
...
правильно будет $userfilename1="$filedup\\_$userfilename";
тут ошибка на 100%, потому как "$filedup_$userfilename" интерпретируеться как "$filedup_"+"$userfilename". Первое у нас - андеф, соответственно мы получаем замкнутый цыкл - потому Апач и виснет.
На первый взгляд болше топорных ошыбок я не встретил.
Удачи!