perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Rado Petrik <br...@lee.sk>
Subject Upload file
Date Wed, 08 Oct 2003 22:25:13 GMT
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: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message