#!/usr/bin/perl

use strict;
my $lib_path;BEGIN{my $path=sub{my $file=(caller)[1];my $idx=rindex($file,'/');$idx=rindex($file,'\\') if($idx==-1);return substr($file,0,$idx+1);};$lib_path=&$path;}
use lib "${lib_path}lib";
use dblib;
use myCGI;

my $dbh=$dblib::dbh;

my($id,$cid,$zid,$cpid)=(0,0,0,0);
($id)=$ENV{'QUERY_STRING'}=~/^id=(\d+)/i;
($cid)=$ENV{'QUERY_STRING'}=~/cid=(\d+)/i;
($zid)=$ENV{'QUERY_STRING'}=~/zid=(\d+)/i;
($cpid)=$ENV{'QUERY_STRING'}=~/cpid=(\d+)/i;
my($target)=$ENV{'QUERY_STRING'}=~/target=(.*)/i;

if(!$cid && !$id && !$target && $zid)
{
	my $q=new myCGI;
	my $cookie=($q->cookie('awp') or '');

	($id,$cid,$target)=split(/-/,$cookie);
}

my $sth=$dbh->prepare("UPDATE ad_stats SET clicks=clicks+1 WHERE day=NOW() AND hour=HOUR(NOW()) AND bannerid=? AND zoneid=? AND clientid=? AND campid=?");
my $code=$sth->execute($id,$zid,$cid,$cpid);
if($code!=1)
{
	$sth=$dbh->prepare("INSERT INTO ad_stats SET clicks=1,views=0,day=NOW(),hour=HOUR(NOW()),bannerid=?,zoneid=?,clientid=?,campid=?");
	$sth->execute($id,$zid,$cid,$cpid);
}

print "Pragma: no-cache\nLocation: $target\n\n";

1;