Bill, I appreciate your help. I made the changes you suggested, reuploaded
and tried it again. Still with no luck. I'm still getting a file with 0
filesize even with binmode. I really think it has something to do with case
sensitivity. When I manually type in the pathway and file in the upload
field (making sure it's lowercase) and click Submit, it uploads perfectly. I
just don't know what else to try. Anyone have any other ideas?
- - - - - - - - - -
Jared Hess ([EMAIL PROTECTED])
Technical Writer / Webmaster
Wilcox Associates, Inc. (www.wilcoxassoc.com)
-----Original Message-----
From: $Bill Luebkert <[EMAIL PROTECTED]>
To: Jared Hess <[EMAIL PROTECTED]>
Cc: [EMAIL PROTECTED]
<[EMAIL PROTECTED]>
Date: Wednesday, March 07, 2001 11:59 AM
Subject: Re: zero filesize when uploading
>Jared Hess wrote:
>>
>> Bill thanks for the help. Unfortunately, after adding Binmode to my code
(I
>> think I did it right), I still can't get it to work. Does anyone have any
>> other ideas?
>>
>> The current state of my script is located here:
>> http://www.inconnect.com/~jhess/cgi-bin/scriptupload.cgi
>>
>> My somewhat convoluted code to upload .ZIP files is located here:
>> http://www.inconnect.com/~jhess/cgi-bin/scriptupload.txt
>>
>> Could someone please give my script a shot, take a look at my code and
tell
>> me what I'm doing wrong? I've tried everything I know (as much as I can
for
>> a Perl newbie).
>
>You only need one binmode per file and it should go before the first
read/write.
>
>Change:
>
>open (SAVEFILE, ">$savedir$file") || dienice("Can't open filehandle:
$!\n");
>
> while (read($fullfile, $buffer, 1024)) {
> binmode SAVEFILE;
> print SAVEFILE $buffer;
> binmode SAVEFILE;
> }
>
>To:
>
>binmode $fullfile;
>open (SAVEFILE, ">$savedir$file") || dienice("Can't open filehandle:
$!\n");
>binmode SAVEFILE;
> while (read($fullfile, $buffer, 1024)) {
> print SAVEFILE $buffer;
> }
>--
> ,-/- __ _ _ $Bill Luebkert ICQ=14439852
> (_/ / ) // // DBE Collectibles http://www.todbe.com/
> / ) /--< o // // Mailto:[EMAIL PROTECTED] http://dbecoll.webjump.com/
>-/-' /___/_<_</_</_ http://www.freeyellow.com/members/dbecoll/
>_______________________________________________
>Perl-Win32-Web mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
