Perhaps you should take this up with Perl.org.  See the bottom of the email
you sent out and responded to for instructions.

-----Original Message-----
From: june [mailto:[EMAIL PROTECTED]]
Sent: Friday, March 29, 2002 4:04 PM
To: [EMAIL PROTECTED]
Subject: RE: remove me from your list




June
in Kansas

-----Original Message-----
From: Mariusz [mailto:[EMAIL PROTECTED]]
Sent: Monday, March 11, 2002 12:37 AM
To: [EMAIL PROTECTED]
Subject: uploading files

Hi,

I wrote this simple script to upload files, but when I substitute
param('uploadfile') with the actual path in double quotes it doesn't work
that way. However, it works perfectly fine if I use the form to submit the
path of the file through an html form (the way it is below). Can anyone
help?

my $file = param('uploadfile');

open(UPLOAD, ">../employees/schedule.html") || Error();
my ($data,$length,$chunk);
while ($chunk = read ($file, $data, 1024)){
     print UPLOAD $data;
}
close(UPLOAD);


Thanks,
Mariusz


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


--------------------------------------------------------------------------------
This email may contain confidential and privileged 
material for the sole use of the intended recipient. 
If you are not the intended recipient, please contact 
the sender and delete all copies.

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

Reply via email to