Re: Problems writing binary uploaded data...

2002-10-23 Thread Issac Goldstand
--- From: "Leif Snorre Schøyen Boasson" <[EMAIL PROTECTED]> To: "mod_perl" <[EMAIL PROTECTED]> Sent: Tuesday, October 22, 2002 6:08 PM Subject: Problems writing binary uploaded data... > I'm trying to save an uploaded binary file (a jpg) through

Re: Problems writing binary uploaded data...

2002-10-23 Thread Issac Goldstand
tput buffer to the file since you never explicitly close the filehandle... Issac - Original Message - From: "Leif Snorre Schøyen Boasson" <[EMAIL PROTECTED]> To: "Issac Goldstand" <[EMAIL PROTECTED]> Cc: <[EMAIL PROTECTED]> Sent: Tuesday, October 22, 2002

Re: Problems writing binary uploaded data...

2002-10-23 Thread Leif Snorre Schøyen Boasson
I've (Or rather Issac, on the list) sorted it out - I simply forgot to close the file after writing it... pretty silly :) cheers Snorre On Wed, 23 Oct 2002 [EMAIL PROTECTED] wrote: > > Hmm, I've tried your code on my system and it does exactly what it's supposed > to. I get the same filesizes re

Re: Problems writing binary uploaded data...

2002-10-23 Thread paul . barker
Hmm, I've tried your code on my system and it does exactly what it's supposed to. I get the same filesizes reported at the destination end and in the script as the file is on my PC HDD. Have you tried a different file ? Do you always loose the same amount ? Cheers Paul **

Re: Problems writing binary uploaded data...

2002-10-22 Thread Leif Snorre Schøyen Boasson
t;tempname; > > > Issac > > - Original Message - > From: "Leif Snorre Schøyen Boasson" <[EMAIL PROTECTED]> > To: "mod_perl" <[EMAIL PROTECTED]> > Sent: Tuesday, October 22, 2002 6:08 PM > Subject: Problems writing binary uploaded dat

Problems writing binary uploaded data...

2002-10-22 Thread Leif Snorre Schøyen Boasson
I'm trying to save an uploaded binary file (a jpg) through a perlscript. The code doing this looks like: if (open OUTFILE, ">/var/www/tmp/test.jpg"){ binmode $ULFILE, ":raw"; binmode OUTFILE, ":raw"; while ($sizeread=read($ULFILE, $buffer, 1024)) { print OUTFIL