sub downloadFile {
    # $filepath is the directory
    # $filename is the name of the file
    my ($filepath,$filename) = @_;
    chdir($filepath) || return(0);
    my $filesize = -s $filename;
    # print full header
    print "Content-Type: application/octet-stream\n\n";
    print "Content-Length: $filesize\n";
    print "Content-disposition: attachment; filename=$filename\n\n";
    print "Content-type: text/plain\n\n";
    # open in binmode
    open(READ,$filename) || die;
    binmode READ;
    # stream it out
    binmode STDOUT;
    while (<READ>) {
        print;
    }
    close(READ);
    # should always return true
    return(1);
}

[download]
First (most importantly), only the first Content-Type header is being seen by the browser (none of the following headers) because you followed it with '\n\n'. Only put two newlines on the last header sent to the browser (or let something like CGI do it for you).

Also, you are sending two Content-Type headers for the same data. text/plain would probably be appropriate for the dbschema.txt file.

binmode() is also probably unnecessary.

-David

In reply to Re: Not able to display 'save as dialog box' in browser by erroneousBollock
in thread Not able to display 'save as dialog box' in browser by perlCrazy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.