#!/usr/bin/perl

use strict;
use adrotate qw(%var $dbh);
my %prefs = adrotate::getprefs;


##########################
# Get various variables
#########################

# Get user input
my %in = adrotate::get_input;

# Database handle
adrotate::db_connect;

# Misc variables
my $table = "ads";

##################################
# Database Query
##################################

my $statement;
my $sth;
my @arr;

if ($in{'m'} eq "img") {
    $statement = "SELECT Banner FROM imgtags WHERE IPNum='$ENV{'REMOTE_ADDR'}'";
    $sth = $dbh->prepare($statement);
    $sth->execute;
    @arr = $sth->fetchrow_array;
    $sth->finish;
    $in{'b'} = $arr[0];
}

$statement = "SELECT URL,Clicks FROM $table WHERE AdNum=$in{'b'}";
$sth = $dbh->prepare($statement);
$sth->execute();
@arr = $sth->fetchrow_array;
$sth->finish;

#######################################
# Increment Clicks field in database
#######################################

$arr[1] ++;
$statement = "UPDATE $table SET Clicks='$arr[1]' WHERE AdNum=$in{'b'}";
$dbh->do($statement);

# Disconnect from the database
$dbh->disconnect;

#####################################
# Redirect the user
#####################################



if (!($in{'b'} eq "default")) {
    print "Location: $arr[0]\n\n";
} else {
    if ($prefs{'DefaultUrl'}) {
        print "Location: $prefs{'DefaultUrl'}\n\n";
    } else {
        print "Location: http://www.vanbrunt.com/adrotate\n\n";
    }
}