Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I have this code written by another person, the code should take the params passed as a name of file, read the file and then spits the output to the browser as for downloading the file.

this is made with a password page before. anyway, here's the code: 
#!/usr/bin/perl -w

$n = $ENV{'QUERY_STRING'};
@l = split(/=/, $n);
$file = $l[1];
if ($file) {
    undef $/;
    open (F, "secure/1/$file") or die "Cannot Open File $file\n$!\n";
    binmode (F);
    $f = <F>;    
    close (F);
    print "Content-Type: application/mpg \n";
    print "Content-Disposition: filename=$file\n\n";
    print "$f";
}
else {
    print "Content-Type: text/html\n\n";
    print "Unknown file\n";
}

[download]

as you can see, it's messy, and I want to switch it to use CGI.pm, my question is; the file type isn't always application/mpg so how do I know the type of a file I've read? or is there a common header to send for all binary file types. It's working like that, but I want to make sure it doesn't crash

I won't use this code either, I'll write my own from scratch, but I just need to know the file type thing.

thanx for your help monks out there.

Replies are listed 'Best First'.
Re: how to read content-type from a file?
by Cubes (Pilgrim) on Jul 23, 2001 at 18:14 UTC
    Some understanding of what a file "type" really is and how different systems deal with file types will probably help you here.

    The thing you need to send to a browser, via the Content-Type header, is the MIME (Multipurpose Internet Mail Extensions) type. There are a number of RFCs dealing with various aspects of MIME, but the quick version is that this gives you a somewhat standardized way to say to the application on the other end of the internet, "I am sending you this type of data." Since there is a standard list of MIME types, the application on the other end (web browser, mailreader, whatever) can use this information to decide what to do with the data you've just sent. I found some good links to MIME information here.

    Unfortunately, this MIME business came about long after various operating systems had already come up with their own ideas of file types, and their own ways of figuring out what to do with a particular file when you tell the OS to open or execute the file. On Windows systems, file types are determined by the filename extension. On *ix systems, there is a combination of filesystem attributes (for "special" files), filename extensions, and a few bits of special data at the beginning of executable files. Macs store (or used to, I haven't touched one in a while) the file type in with other filesystem data. These OS file types have little or nothing to do with MIME types.

    So what you need to do is translate the "file type" from however it's stored on your system into a standard MIME type. The Apache web server does this by looking up the filename extension in its mime.types file (in the apache/conf/ directory). If you're running apache, you could do your lookup using this same file. If not, you could borrow the file from an apache distribution, or you could make your own. Regardless of where you get your lookup table, you'll have to have some definite way of determining the type of the source file. The simplest (for you) way of doing this is to simply require, as the web server does, that all of your downloadable files have a filename extension appropriate to their type. Another option is to keep a database of information about your downloadable files, including the file name and the MIME type for each file, and ignore the filename extension. There are also ways of getting the web server to do the work for you, like redirecting the download request form your script to the actual URL of the file (the downside here is that this makes it possible for people who figure out the URL pattern of download files to request files directly, bypassing your authorization/logging/whatever CGI script).

[reply]
Re: how to read content-type from a file?
by wine (Scribe) on Jul 23, 2001 at 16:05 UTC

    The MIME-Types-0.06 module provides a way to determine the MIME-types of your files.

    It's seems fairly easy, although I haven't used it myself.

[reply]
Re: how to read content-type from a file?
by miyagawa (Chaplain) on Jul 23, 2001 at 20:07 UTC
[reply]

Back to Seekers of Perl Wisdom