Big Sky

#!/usr/bin/perl

use strict;
use CGI qw/:standard :netscape/;
use POSIX 'strftime';

my $files_path = "/path/to/files";

my $q = new CGI;
my $file = $q->param('file');

$file =~ s/\.\.//g;
$file =~ s/\/\/+/\//g;
$file =~ s/^\///g;
$file =~ s/\/$//g;
$file =~ s/\|/_/g;
if ($file =~ /^[a-zA-Z0-9\-\._]+$/ && -f "$files_path/$file" && open(FILE, "$files_path/$file")) {
    print $q->header(
        -type=>'application/octet-stream',
        -attachment=>$file,
        -charset=>'utf-8',
    );
    while(<FILE>){
        print $_;
    }
    close(FILE);
} else {
	if (-f "$files_path/$file.redirect" && open(FILE, "$files_path/$file.redirect")) {
		$file = <FILE>;
		close(FILE);
		$file =~ s![0x0D0x0A]!!g;
		#print $q->redirect($file);
		$q->a(href=>$file);
	} else {
		print $q->header(
			'text/html',
			'404 Not Found',
		);
		print "File Not Found";
	}
}
1;