Upload file

[Rado Petrik]

Hi, I have this script. 

<FORM METHOD="POST" ENCTYPE="multipart/form-data">
  <input TYPE="FILE" NAME="ImageName" >
</FORM>

[-           

if (defined $fdat{ImageName}) {
     open FILE, "> test ;
     print FILE $buffer
     while read($fdat{ImageName}, $buffer, 32768);
     close FILE;
}
 
-]

File test exist but have size 0 k.
I have Embperl v 1.3.6. 

Thanks, Rado   


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]