#!/usr/bin/perl

use DBI;

#$time = time;
#$localtime = localtime $time;
$url = $ENV{QUERY_STRING};
#$referer = $ENV{HTTP_REFERER};
#$ip = $ENV{REMOTE_ADDR};
#$agent = $ENV{HTTP_USER_AGENT};


#open LOG, ">>mukss/log_click.txt";
#print LOG "$ip\t$time\t$localtime\t$url\t$referer\t$agent\n";
#close LOG;

if ($url =~ /^[0-9]+$/){
	
	$id = $url;
	
	$dbh = DBI -> connect("DBI:mysql:ukshopsearch", "admin", "purple");

	$sql = "select url,clicks from shops where id = $id";
	
	$sth = $dbh -> prepare($sql);
	
	$sth -> execute();
	
	($url,$clicks) = $sth -> fetchrow_array();
	
	$sth->finish;
	
	if ($clicks){
		
		$clicks ++;
		
		$dbh -> do("update shops set clicks = $clicks where id = $id");
		
	}
	
	else {
		
		$dbh -> do("update shops set clicks = 1, first_click = NULL where id = $id");
		
		
	}
	
	$dbh -> disconnect;
	
}

print "Location: $url\n\n";

exit 0;