#!/usr/bin/perl
##$datadir = '/path/to/counterfilesdir/';
$datadir = './logs/';
##$downloaddir = 'http://www.yourdomain.com/downloaddirectory/';
$downloaddir = 'http://users.datarealm.com/xywwweb/';
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
	$querystring = $ENV{'QUERY_STRING'};
}
else
{
	read(STDIN, $querystring, $ENV{'CONTENT_LENGTH'});
}
@arrnameval = split(/&/, $querystring);
foreach $namval (@arrnameval) 
{
    ($nam, $val) = split(/=/, $namval);
    # replace + with space
    $val =~ tr/+/ /;
    # translate hex values
    $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORMDATA{$nam} = $val;
}

$download = $FORMDATA{'download'};

# Read email content
open(COUNTER,"$datadir"."$download.txt");
$countercontent = <COUNTER>;
close(COUNTER); 
if ($countercontent eq '')
{
	$countercontent = 0;
}
++$countercontent;

#Save back new content
open(COUNTER,">$datadir"."$download.txt");
print COUNTER "$countercontent";
close(COUNTER); 


print "Content-type: text/html\n";
$downloadfile = "$downloaddir"."$download\n\n";
print qq(Location: $downloadfile);
return;