troubleshooting Question

file download creates icon of .zip, but no actual data is in the downloaded .zip

Avatar of nojyarg
nojyarg asked on
Perl
1 Comment1 Solution195 ViewsLast Modified:
i'm using this code to download a file to my local machine.  the .pl file is located on my webserver, which is running on Windows.  i call it with URL string 'http://eladev4/cgi-bin/try.pl'.  the code is:

#!C:\perl\bin\perl.exe
use strict;

my($filepath)="c:";
my($size)= -s $filepath;
my($filename)="unitedstates1503.zip"; #filename user sees in browser
my($buf);

print "Content-type: application/octet-stream\n";
print "Content-Length: $size\n";
print "Content-disposition: filename=$filename\n\n";
open(FILE, "<$filepath") || die;
binmode FILE;
binmode STDOUT;
while (read FILE, $buf, 4096) {
     print $buf;
}    
close(FILE);

i get the download dialog, and the file seems to be downloaded, but the download dialog says that '0 bytes were transferred'.  I open the downloaded .zip file and there is nothing inside.  any ideas?  

what i'd IDEALLY like to do is call a .pl file on my webserver which then retrieves an installable .exe file off af a password protected FTP site and prints that file to the user's browser.  If you could give me some direction on a solution for this I'd be very grateful.  Thanks.

I'm a PERL newbie, so thanks for your patience...
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 1 Comment.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros