I added: print $info; before print $type and the script does create an output: HASH(0x81fa220) - but that's for the $info; my problem: I don't understand why the $type doesn't print out?mario kulka wrote:I found the following in a book when trying to find out the file's MIME type, but it doesn't work. Am I missing something obvious? Thanks. M.Other than the 'use strict' ;-). It appears correct, what is the error that is given? "it doesn't work" is not terribly descriptive. What does your form code contain? What does the web server's log say? Have you tried printing something before printing the type, to prevent "Document contains no data" errors?
code:
#!/usr/bin/perl -W
use CGI ':standard';
$file = param('music_file');
$info = uploadInfo ($file);
$type = $info -> {'Content-Type'};
print "Content-type:text/html\n\n";
print $type;
exit;
http://danconia.org
thanks,
M
_________________________________________________________________
The new MSN 8: advanced junk mail protection and 2 months FREE* http://join.msn.com/?page=features/junkmail
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]