#!/usr/local/bin/perl

############################################################################################
# SalesDoubler Version 1.3 COPYRIGHT ©1999, Commercial Networks Inc., CommercialNetworks.com
############################################################################################ 
# Do not remove.
# This script is part of SalesDoubler set of scripts.
# For more info about SalesDoubler send email to: info@commercialnetworks.com
# This script is licenced to be used on kloakit.com server only.
# Permission to modify this script is granted only on kloakit.com server.
# Any other distribution or use of this script will be considered as a 
# copyright infringement.

require 'cgi-lib.sol';
require 'cgi-lib.pl';
require 'setup.pl';

&ReadParse(*input);

  $! = 1;


print "Location: $scriptbase/index.cgi?dealer=$input{dealer}&page=index\n\n"; 

#---------------------------------------------------------------------------
#this is adding to administrator's database
open(FILE,"$data_path/Users/$input{dealer}".".dat") || &CgiDie("Can't open 4");
while(<FILE>)
	{
	@data = split(/\|/,"$_");
	}
close(FILE);
$data[1] = $data[1]+1;

&GetFileLock("$data_path/Locks/lock.file");
$output = join("|",@data);
open(FILE,">$data_path/Users/$input{dealer}".".dat") || &CgiDie("Can't write 4");
print FILE "$output";
close(FILE);
#---------------------------------------------------------------------------
#this is adding to administrator's database
@data = "";
$output = "";
open(FILE,"$data_path/stats.dat") || &CgiDie("Can't open 4");
while(<FILE>)
	{
	@data = split(/\|/,"$_");
	}
close(FILE);
$data[1] = $data[1]+1;

$output = join("|",@data);
open(FILE,">$data_path/stats.dat") || &CgiDie("Can't write 3");
print FILE "$output";
close(FILE);
&ReleaseFileLock("$data_path/Locks/lock.file");
#---------------------------------------------------------------------------