LINK:
Norton Definitions
download.cgi:
#!/usr/bin/perl -wT
use strict;
use CGI;
use Fcntl qw|:flock|;
my $q = new CGI;
my ($file) = $q->param('file') =~ /^(\w+\.\w+)$/;
open (FILE, "/path/to/logs/$file.txt") or die("Can't open file: $!");
flock (FILE, LOCK_EX) or die("Can't lock file: $!");
my $count = + 1;
open (FILE, ">/path/to/logs/$file.txt") or die("Can't open file for writing: $!");
print FILE $count;
close (FILE);
print "Location: http://site.com/downloads/$file\n\n";