#!/usr/bin/perl
################################################################################
# Program   : iComplete L.E. Pro        Written by  : Ivan Santiago            #
# Plataforms: Unix or Windows           Writtan Date: March 27th, 2002         #
################################################################################
#              Iphat.net / IphatScripts.com Copyright © 2002                   #
################################################################################
# Read the following notice carefully before using this software.              #
#                                                                              #
# The following are terms and conditions you must agree with in order to       # 
# use/run this software.                                                       #
#                                                                              #
# If you DO NOT agree to the following you may not use this script, in whole   #
# or any part of it.                                                           #
#                                                                              #
# By using this code you agree to indemnify it's creator and all members,      #
# employees and affiliates of Iphat.net including but not limited to, it's     #
# creator Ivan (from Iphat.net). You may modify this script as you find        #
# necessary as long as this entire header remains intact.                      #
#                                                                              #
# Anyone using this script without paying any and all necessary fees is in     #
# violation of United States and International copyright laws. Selling or      #
# redistributing any of this code without prior written consent is expressly   #
# forbidden.                                                                   #
#                                                                              #
# This program should be tested with non-real data before it is publicly used. #
# The user of this scripts assumes the entire risk of using this program.      #
# This agreement shall be governed by the laws of the State of Florida.        # 
################################################################################
# THIS SOFTWARE INCLUDING FILES THAT ACCOMPANY IT ARE SOLD AND DISTRIBUTED     #
# "AS IS" AND WITHOUT ANY WARRANTIES EXPRESSED OR IMPLIED, INCLUDING, BUT NOT  #
# LIMITED TO, PERFORMANCE AND MERCHANTABILITY. NO WARRANTY OF FITNESS FOR ANY  #
# PARTICULAR REASON OR PURPOSE IS OFFERED. ANY AND ALL LIABILITY OF THE SELLER #
# IS LIMITED EXCLUSIVELY TO PRODUCT REPLACEMENT OR REPAIR - NO REFUNDS ARE     #
# GIVEN OR OFFERED FOR ANY OF OUR CURRENT OR FUTURE SCRIPTS                    #
################################################################################
# -=:DO NOT EDIT BELOW THIS LINE :=-                                           #
################################################################################
use CGI::Carp qw(fatalsToBrowser);
require "/web/key2net.biz/www/cgi_list/iConfig.pm";
require "/web/key2net.biz/www/cgi_list/iSubs.pm";

$userid = $ENV{'QUERY_STRING'};
if ($userid eq "") { print "Content-Type: text/html\n"; print "Location: $clickthru_url\n\n"; exit; }

&OpenMySQL;
&GetMemberInfo($userid);
&GetAffiliateInfo($userid);
if ($m_userid eq "$userid") {
  $a_clicks++;
  $dtable = "$prefix"."_affiliates";
  $mysql = "UPDATE $dtable SET clicks='$a_clicks' WHERE userid='$userid'";
  $dbh->do($mysql); }
&CloseMySQL;

$cookiecode = "$prefix"."_ReFsId";
print "Set-Cookie: $cookiecode=$userid; path=/; expires=Mon, $cookie_date 00:00:00 GMT\n";
print "Content-Type: text/html\n";
print "Location: $clickthru_url\n\n";
exit;