Re^5: Perl CGI to download files via web browser

Problem 1: You're printing two Content-Type headers. Solution: lose the first one.

Problem 2: You're printing the content before the headers. Solution: swap them around.

Update:

Problem 3: The content type should probably be a full MIME type such as "text/plain".

Comment on Re^5: Perl CGI to download files via web browser

Replies are listed 'Best First'.
Re^6: Perl CGI to download files via web browser by tanuj (Novice) on Mar 11, 2013 at 15:43 UTC
Thanks for suggesting the solution ...I got the script working ... `use CGI; my $html= new CGI; my $file= $html->param('a'); my $filepath= "/var/www/upload/$file"; print ("Content-Type:application/x-download\n"); print "Content-Disposition: attachment; filename=$file\n\n"; open FILE, "< $filepath" or die "can't open : $!"; binmode FILE; local $/ = \10240; while (<FILE>){ print $_; } close FILE; #unlink ($filepath);` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^6: Perl CGI to download files via web browser
by tanuj (Novice) on Mar 11, 2013 at 15:43 UTC

use CGI;
my $html= new CGI;
my $file= $html->param('a');
my $filepath= "/var/www/upload/$file";

print ("Content-Type:application/x-download\n");
print "Content-Disposition: attachment; filename=$file\n\n";

open FILE, "< $filepath" or die "can't open : $!";
binmode FILE;
local $/ = \10240;
while (<FILE>){
    print $_;
}

    close FILE;
#unlink ($filepath);
[download]

[reply]
[d/l]