Hi all,
The point of this script is to get arround setting application MIME types on
the server for when you don't have the right to do that on your server. It
will fetch any file as any MIME type. It adds the file extension and
defaults to "example.opx" if there is no filename given.
However, I need it in Perl. Could someone help me with what would this look
like in Perl?
Thanks,
Michael
<?php
$FileName=$HTTP_GET_VARS["FileName"];
if(!$FileName)
{
$FileName="example";
}
$FileName.=".opx";
header("Content-type: application/x-opx");
readfile($FileName);
?>
