#!/usr/bin/perl
use DBI;
###################################


###################################
sub db_connect
{
    $dbh = DBI->connect("DBI:mysql:database=13r;host=127.0.0.1","13r",",fpflkzcfqnf") || die $DBI::errstr;
};
###################################


###################################
sub db_disconnect
{
	$dbh->disconnect();
};
###################################


###################################
sub get_id
{
	if ($ENV{'QUERY_STRING'} =~ /^\d{1,4}$/) {
		$id = $ENV{'QUERY_STRING'};
	};
};
###################################


###################################
sub update_db {
	$dbh->do("UPDATE files SET files.count=files.count+1 WHERE files.id=$id");
};
###################################


###################################
sub get_name {
	my $result = $dbh->prepare("SELECT files.name FROM files WHERE files.id=$id");
	$result->execute;
	($name) = $result->fetchrow_array;
	print "Location: http://$ENV{'HTTP_HOST'}$name\n";
	print "Content-Type: application/zip\n\n";
};
###################################


&get_id;
&db_connect;
&update_db;
&get_name;
&db_disconnect;