truncated file upload under Windows 2000

[uwevoelker]

Hello,
I migrated a file upload script from Linux to Windows 2000. Under Linux everything was okay, but under Windows the files are truncated. The last few bytes are missing.
Has this happened to you, before? How can I solve this problem?
I use binmode (image files) and read($fh, $buffer, 1024).

Thank you very much, Uwe

[tachyon]

Hi Uwe,

s/use CGI/use CGI::Simple/g;

But seriously if you have a moment to download it could you see if this happens with my CGI.pm substitute CGI::Simple as well? I would be most interested to know. Note you can only substitute CGI::Simple for CGI.pm if you are not using the CGI.pm HTML generating methods. The problem (as previously noted) will probably be related to not applying binmode to STDIN as well as your FH. Perl makes an automagical translation from \n internally to \r\n externally on Win32. This is fine for textfiles but stuffs up binaries (reading and writing) where 00001101 00001010 means just that (ie not \r\n) and should not be converted to 00001010.

See Also

CGI::Simple vs CGI.pm - is twice as fast good enough?

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

[TheHobbit]

Hi,

It's hard to say what's going on with you providing no hint about your script and/or the kind of files it is supposed to handle... Could you give us more details?

Cheers

---

Leo TheHobbit
GED/CS d? s-:++ a+ C++ UL+++ P+++>+++++ E+ W++ N+ o K? !w O? M V PS+++
PE-- Y+ PPG+ t++ 5? X-- R+ tv+ b+++ DI? D G++ e*(++++) h r++ y+++(*)

[perlplexer]

Try to binmode() all filehandles that are being used; i.e., $fh, STDIN, STDOUT.
And remember that you need to call binmode() before you do any I/O. So, stick

binmode STDIN;
binmode STDOUT;

somewhere at the beginning of your program and see what happens.

--perlplexer

[uwevoelker]

I have to apologize!
The problem was not the file upload. I stored the uploaded images in a mysql database. And the error came from the image view script. Under Linux everything was okay, but under Windows the statement handle ($sth) was still active after the query (SELECT binary FROM picture WHERE id=3) and so a warning occured and was appended to the picture. That's why the image did not show correctly.

Thank you for your help!

I will have a look at CGI::Simple. Thanks.