[perl] upload results in empty file

[Daniel304]

Ik probeer een plaatje te uploadne mbv een html <form> met het juiste enctype. Wanneer je op submit drukt genereert het onderstaande script een leeg bestandje. dit is uiteraard niet correct. Weet iemand hoe je dit oplost ??

---The Script---

use CGI qw(:standard);

require "cgi-lib.pl";

$picture = param('picture');
$upload_file = upload("picture");
$member_root_dir = "c:/Inetpub/wwwroot/name";

open(FILES, ">$member_root_dir/$picture");
binmode (FILES);
print FILES $upload_file;
close(FILES);

---End Script---

[Verwijderd]

code:

$upload_file = upload("picture");

returnt slecht een filehandle, niet de file contents.

Je moet dus nog zoiets doen:

code:

open(FILES, ">$member_root_dir/$picture");
binmode (FILES);

while ( read( $upload_file, $buffer, 16_384) ) {
   print FILES $buffer;
}

close(FILES);

tata

[Daniel304]

Ik zie dat hij hem over m'n upload naar m'n server gooit nu.. echter hij schrijft hem niet juist weg en na een tijdje krijg ik een time-out van Perl in m'n scherm. de File is nog steeds 0 bytes !!!

update..
Ik heb t gevonden...
$upload_file = upload('picture');
upload doet niks. hij kreeg dus niet de originele locatie van de file door

Thanks anyways !!!