Wat werkt er niet aan dit perl upload scrippie?

[muis|IA]

Het bestand wordt wel geopend maar er wordt helemaal nx naartoe geschreven weet iemand misschien wat ik fout doe?

@input = split(/=/, $ENV{Query_String});
($niks, $inputfile) = split(/=/, $input[1]);

print $inputfile;

open(WRITE,">../test.zip");
binmode WRITE;

while (read($inputfile,$buff,2096)) {
print WRITE $buff;
}

close(WRITE);

thnx

[Verwijderd]

kloppen de permissions?

[muis|IA]

Ja de permissies staan goed

[Verwijderd]

Op maandag 08 oktober 2001 01:42 schreef muis het volgende:
Het bestand wordt wel geopend maar er wordt helemaal nx naartoe geschreven weet iemand misschien wat ik fout doe?

@input = split(/=/, $ENV{Query_String});
($niks, $inputfile) = split(/=/, $input[1]);

print $inputfile;

open(WRITE,">../test.zip");
binmode WRITE;

while (read($inputfile,$buff,2096)) {
print WRITE $buff;
}

close(WRITE);

thnx

Allereerst is dit:

@input = split(/=/, $ENV{Query_String});
($niks, $inputfile) = split(/=/, $input[1]);

niet de manier om de query-string te benaderen.
Daarvoor kan je beter CGI.pm gebruiken. Dan wordt het allemaal een stuk duidelijker en weet je tenminste zeker dat je alles goed doorkrijgt. Nadeel is natuurlijk de overhead van die module.

Tweede en belangrijker punt:
Het form waarmee je de filename submit moet de volgende attribute hebben: ENCTYPE="multipart/form-data"
Anders wordt het bestand niet geupload.

Success.