FAQ

At 12:25 AM +0200 10/9/03, Rado Petrik wrote:
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.
Try checking for errors first.

if (defined $fdat{ImageName}) {
open FILE ">test" || die("open test: $!");
while (read($fdat{ImageName}, $buffer, 32768)) {
print FILE $buffer || die("print test: $!");
}
close FILE || die("close test: $!");
}
--
Kee Hinckley
http://www.messagefire.com/ Next Generation Spam Defense
http://commons.somewhere.com/buzz/ Writings on Technology and Society

I'm not sure which upsets me more: that people are so unwilling to accept
responsibility for their own actions, or that they are so eager to regulate
everyone else's.

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org

Search Discussions

Discussion Posts

Previous

Related Discussions

Discussion Navigation
viewthread | post
posts ‹ prev | 4 of 4 | next ›
Discussion Overview
groupembperl @
categoriesmodperl, perl
postedOct 8, '03 at 10:25p
activeOct 9, '03 at 1:39p
posts4
users4
websiteperl.apache.org

People

Translate

site design / logo © 2022 Grokbase