#!/usr/bin/perl -wT

use CGI qw(:standard);

my $sFile = "";
my $sType = "";
my $sName = "";
my $iSize = "0";
my $sData = "";

$sFile = "./".param("fl");
$sName = param("nm");

if (-e $sFile) {
    
    $sType = substr($sFile, -4);
    $iSize = -s $sFile;
    
    # make file extension uppercase for psp videos
    #if ($sType eq ".mp4") {
    #    $sType = uc($sType);
    #}
    
    print "Content-Type: application/octet-stream\n";
    print "Content-Disposition: attachment; filename=".$sName.$sType."\n";
    print "Content-Length: ".$iSize."\n\n";
    
    open(SRC, $sFile);
    while (read(SRC, $sData, 4_096)) {
        print $sData;
    }
    close(SRC);
    
} else {
    
    print "Content-Type: text/html\n\n";
    print "<h1>File Not Found</h1>";
}

exit;