#!/usr/bin/perl
##############################################################
#                                                            #
#                   Ultimate Affiliate                       #
#           ***********TEXT EDITION**********                #
#                     By Steve Miles                         #
#                http://www.groundbreak.com                  #
#                                                            #
#                 Copyright <c> 1999-2000                    #
#                                                            #
#     Selling or distributing this software or               #
#     modifications of this software without                 #
#     permission is expressly forbidden. Permission          #
#     to modify the script for personal use is granted.      #
#     In all cases this header and copyright                 #
#     must remain intact. All violators will be              #
#     PROSECUTED to the full extent.                         #
#                                                            #
##############################################################

require "config.cgi";

######################################################################
# No need to edit below here
######################################################################
use Time::Local;
use CGI qw (:standard);
$q = new CGI;

@stuff = $q->param;
foreach $stuff (@stuff) {${$stuff} = $q->param($stuff);}
$time = time(); 

@daysinmonth = (30,28,31,30,31,30,31,31,30,30,30,31);
@monthnames = ("January","February","March","April","May","June","July","August","September","October","November","December");
@hournames = ("12am-1am","1am-2am","2am-3am","3am-4am","4am-5am","5am-6am","6am-7am","7am-8am","8am-9am","9am-10am","10am-11am","11am-12pm","12pm-1pm","1pm-2pm","2pm-3pm","3pm-4pm","4pm-5pm","5pm-6pm","6pm-7pm","7pm-8pm","8pm-9pm","9pm-10pm","10pm-11pm","11pm-12am");
@daynames = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");

if($action =~ /Get Lost Password/i){
	&emailpassword;
	exit;
}
if($action =~ /Did you lose your password\?/i){
	&lostpasswordform;
	exit;
}
######################################################################
# Verify User
######################################################################
open (FILE, "$datadir$userdata");
flock(FILE, 2);
while (<FILE>) {
@tempuserarray = split (/\|/, $_);
	if ($tempuserarray[5] eq $user) {
	$usergoahead = "OK";
		if ($tempuserarray[6] eq $pass) {
		$passgoahead = "OK"; $clickfile = $tempuserarray[0];
		}
	}
}
flock(FILE, 8);
close (FILE);

if ($user eq "") { &loginpage; exit; }
if ($usergoahead ne "OK") { print_default('Username does not exist'); exit;}
if ($passgoahead ne "OK") { print_default('Password is wrong'); exit;}

if($action eq "Update Your Info"){
	&changeinfoform;
	exit;
}

if($action eq "Top 100 Referral Sites"){
	&getreferrers;
	exit;
}

if($action eq "Update User Info"){
&updateuser;
	exit;
}

if($action eq "Get Link Code"){
	&bannercode;
	exit;
}

if($action eq "Last 24 hours"){
	&create_month_hash;
	&create_month_stats;
	&last24hours;
	exit;
}

if($action eq "Year to date" || $action eq "View this year"){
	&create_month_hash;
	&create_month_stats;
	&year_stats;
	exit;
}

if($action eq "In\-depth Commissions" || $action eq "View Commissions"){
	&create_month_hash;
	&viewtransactions;
	exit;
}

if ($affiliate_program eq "twotier" || $affiliate_program eq "threetier" && $show_downline eq 1) {
if($action eq "Level 1 Details"){
	&level_one;
	exit;
}}

if ($affiliate_program eq "threetier" && $show_downline eq 1) {
if($action eq "Level 2 Details"){
	&level_two;
	exit;
}}

&create_month_hash;
&create_month_stats;
&statspage;exit;

######################################################################
# Show level one affiliates
######################################################################
sub level_one {
print $q->header;
open (FILE, "$datadir$userdata");
flock(FILE, 2);
while (<FILE>) {	
	($date,$log_sponsor,$com1,$com2,$com3,$log_user,@rest)=split(/\|/, $_ );
	$users{$log_user} = "$log_sponsor|$rest[2]|$rest[1]";
}
flock(FILE, 8);
close (FILE);
print<<EOF;
<center><table cellspacing=0 cellpadding=5 border=1>
<tr><td colspan=2><font face=verdana,arial size=2><b><center>Affiliates signed up on your first tier.</b></center></td></tr>
EOF
foreach $log_user (keys %users) {
	($sponsor,$name,$email) = split (/\|/, $users{$log_user});
	if ($sponsor eq $user) { 
	$goahead = "OK";
print<<EOF;
<tr><td><font face=verdana,arial size=2><b>$name</td><td><font face=verdana,arial size=2><b><a href=mailto:$email>$email</a></td></tr>
EOF
	}
}
if ($goahead ne "OK") { 
print "<center><font face=verdana,arial size=2><b>There are no tier 2 affiliates.</b></center>";
exit;
}
print<<EOF;
</TABLE></CENTER>
EOF
}

######################################################################
# Show level two affiliates
######################################################################
sub level_two {
print $q->header;
open (FILE, "$datadir$userdata");
flock(FILE, 2);
while (<FILE>) {	
	($date,$log_sponsor,$com1,$com2,$com3,$log_user,@rest)=split(/\|/, $_ );
	$users{$log_user} = "$log_sponsor|$rest[2]|$rest[1]";
}
flock(FILE, 8);
close (FILE);
print<<EOF;
<center><table cellspacing=0 cellpadding=5 border=1>
<tr><td colspan=2><font face=verdana,arial size=2><b><center>Affiliates signed up on your second tier.</b></center></td></tr>
EOF
foreach $log_user (keys %users) {
	($sponsor,$name,$email) = split (/\|/, $users{$log_user});
	if ($sponsor eq $user) { 
			push (@tier1_affiliates, $log_user);
	}
}
foreach $person (@tier1_affiliates) {
	foreach $log_user (keys %users) {
	($sponsor,$name,$email) = split (/\|/, $users{$log_user});
		if ($sponsor eq $person) { 
		$goahead = "OK";
print<<EOF;
<tr><td><font face=verdana,arial size=2><b>$name</td><td><font face=verdana,arial size=2><b><a href=mailto:$email>$email</a></td></tr>
EOF
		}
	}}
if ($goahead ne "OK") { 
print "<center><font face=verdana,arial size=2><b>There are no tier 2 affiliates.</b></center>";
exit;
}
print<<EOF;
</TABLE></CENTER>
EOF
}

######################################################################
# Top Referring Sites for that user
######################################################################
sub getreferrers {

open (FILE, "$datadir$user");
flock(FILE, 2);
while (<FILE>) {
chomp $_;
($t,$i,$p,$r) = split (/\|/, $_);
if (exists $uniquetwo{$r}) {
$uniquetwo{$r}++;
} else {
$uniquetwo{$r} = 1;
}
}
flock(FILE, 8);
close (FILE);

foreach $k (keys %uniquetwo) {
	while (exists $newlist{$uniquetwo{$k}}) {
		$uniquetwo{$k}--;
	}
   $newlist{$uniquetwo{$k}} = $k;
   push (@newlistkeys, $uniquetwo{$k});
}

@newlistkeys = sort {$a <=> $b} (@newlistkeys);
$newlistkeynum = @newlistkeys;

print $q->header;

print<<EOF;
<HTML><HEAD><TITLE>Top 100 Referring Sites</TITLE></HEAD>
<BODY BGCOLOR=$background TEXT=$darktext LINK=$darklinktext VLINK=$darkvlinktext>
<CENTER><TABLE WIDTH=700 BORDER=1 CELLSPACING=0 CELLPADDING=5><TR><TD bgcolor=$darkcolor>
<CENTER><FONT FACE=VERDANA,Verdana,Arial SIZE=4 color=$lighttext>
<B>Top 100 Referring Sites<br><font size=1>Based on total referrals with your affiliate ID.<br>(Urls truncated to 100 characters - click to go to the full url)</B></FONT></CENTER>
</TD></TR></TABLE></CENTER>
<CENTER><TABLE WIDTH=700 BORDER=1 CELLSPACING=0 CELLPADDING=5>
<TR><TD align=center bgcolor=$darkcolor><font face=verdana,Verdana,Arial size=2 color=$lighttext>
<b>Referrals</b></TD><TD bgcolor=$darkcolor><font face=verdana,Verdana,Arial size=2 color=$lighttext><B>From:</B></TD></TR>
EOF


while ($x < 101) {

$k = pop @newlistkeys;
if ($newlist{$k}) {
		if ($k < 1 ) {
				$refnumber = 1;
		} else {
				$refnumber = $k;
		}
print "<TR><TD align=center bgcolor=$lightcolor><font face=verdana,Verdana,Arial size=2>$refnumber</font></TD><TD bgcolor=$lightcolor><a href=\"$newlist{$k}\">";
$newlist{$k} = substr($newlist{$k},0,100);
print "<font face=Verdana,Arial size=1>$newlist{$k}</font></TD></a></TR>\n";
}
$x++;
}

print<<EOF;
</TABLE></CENTER>
<CENTER><p><font face=verdana,Verdana,Arial size=4>
<a href=stats.cgi?pass=$pass&user=$user>Back to Main Stats Page</a>
</center>
</BODY></HTML>
EOF
exit;

}

######################################################################
# View User Info
######################################################################
sub changeinfoform {

open (FILE, "$datadir/$userdata");
flock(FILE, 2);

while (<FILE>) {
	chomp $_;
	($date,$sponsor,$com1,$com2,$com3,@rest) = split(/\|/, $_); 
		if ($user eq $rest[0]) {
			foreach $field (@signupfields) {
				${$field} = shift(@rest);
			}
			$real_sponsor = $sponsor;
			$neat_sponsor = $real_sponsor;
			$neat_sponsor =~ s/_/ /;
			$real_date = $date;
		}
}

&realdate($real_date);

flock(FILE, 8);
close (FILE);

print $q->header;

print<<EOF;
<HTML><HEAD><TITLE>$user</TITLE></HEAD>
<BODY BGCOLOR=$background TEXT=$darktext LINK=$darklinktext VLINK=$darkvlinktext>
<FORM ACTION=stats.cgi METHOD=post>
<CENTER>
EOF
if ($action eq "Update User Info") { print "<center><font size=3 face=verdana><b>User $user Updated Successfully</b></font></center>"; }
print<<EOF;
<TABLE BORDER=1 WIDTH=600 CELLSPACING=0 CELLPADDING=0><TR><TD bgcolor=$darkcolor>
<font face=verdana,Verdana,Arial size=4 color=$lighttext><b><center><i>Info for $user</i></b></center>
</TD></TR></TABLE>
<TABLE WIDTH=600 CELLSPACING=0 CELLPADDING=0><TR><TD WIDTH=200>
<TABLE WIDTH=200>
<TR><TD align=right><font face=Arial,Verdana size=2><b>Joined:</TD><TD><font face=Arial,Verdana size=2><b>$mon/$day/$year<b></TD></TR>
<TR><TD align=right><font face=Arial,Verdana size=2><b>Sponsor:</TD><TD><INPUT TYPE=hidden NAME=sponsor VALUE="$real_sponsor" size=30><font face=Arial,Verdana size=2><b>$neat_sponsor</b></TD></TR>
EOF

foreach $field (@signupfields) {
	if ($field eq "Username") { print "<TR><TD align=right><font face=Arial,Verdana size=2><b>$field:</TD><TD><INPUT TYPE=hidden NAME=$field VALUE=\"${$field}\"><font face=Arial,Verdana size=2><b>${$field}</b></TD></TR>"; }
	else { print "<TR><TD align=right><font face=Arial,Verdana size=2><b>$field:</TD><TD><font face=Arial,Verdana size=2><INPUT TYPE=text NAME=$field VALUE=\"${$field}\" size=30></TD></TR>"; }
}

print<<EOF;
</TABLE>
</TD><TD valign=middle>
	<center>
	<INPUT TYPE=hidden NAME=pass VALUE=$pass>
	<INPUT TYPE=hidden NAME=user VALUE=$user>
	<INPUT TYPE=hidden NAME=com1 VALUE="$com1">
	<INPUT TYPE=hidden NAME=com2 VALUE="$com2">
	<INPUT TYPE=hidden NAME=com3 VALUE="$com3">
	<INPUT TYPE=submit NAME=action VALUE="Update User Info">
	<p><font face=verdana,Verdana,Arial size=2>
	<a href=stats.cgi?pass=$pass&user=$user>Back to Main Stats Page</a>
	</center>
</TD></TR></TABLE></CENTER>
</FORM></BODY></HTML>
EOF

}

######################################################################
# Update User
######################################################################
sub updateuser {

open (FILE, "$datadir/$userdata");
flock(FILE, 2);
	while (<FILE>) {
	
	(@tempuserarray) = split(/\|/, $_); 
	if ($user eq $tempuserarray[5]) { 
		$record = "$tempuserarray[0]|$sponsor|$com1|$com2|$com3";
		foreach $field (@signupfields) {
		${$field} = $q->param($field);
		${$field}  = filter(${$field});
		if ($Terms eq "YES") { $termcheck = "OK" }
		if ($field eq "Address2" || $field eq "Terms" || $field eq "Phone" || $field eq "Fax") {}
		else {
		if (${$field} eq "") { &print_default("The $field field is empty"); }
		}
		$record .= "\|${$field}";
		}	
 	}
	
	else { push (@newlist, $_); }
	
	}
flock(FILE, 8);
close (FILE);

	if ($Username =~ /^[A-Za-z0-9]+$/) {}
	else {&print_default("Username must contain only letters with no spaces!"); exit;} 
	
	if ($Email =~ /^[\w\-\.]+\@[\w\-]+\.[\w\-\.]+\w$/) {}
	else {&print_default("Not a valid email format!"); exit;} 
	
	if ($Siteurl =~ m/:\/\// ) {}
	else {&print_default("Please use \"http://\" in url!"); exit;} 
	
	if ($termcheck ne "OK") { &print_default('You did not agree on the terms!'); exit;}
	
	if ($SSNumber =~ /^[0-9]+$/) {}
	else {&print_default("Social Security number must be 9 numbers!"); exit;} 

open (FILE, ">$datadir/$userdata");
flock(FILE, 2);
	print FILE "$record\n";
	foreach $item (@newlist) {
	print FILE $item;
	}
flock(FILE, 8);
close (FILE);

&changeinfoform;
exit;

}

######################################################################
# Create Stats hashes for this month
######################################################################
sub create_month_stats {

$time = time();
open (FILE, "$datadir$user");
flock(FILE, 2);
while (<FILE>) {
($log_time,$log_id,$log_ip,$log_referrer) = split (/\|/, $_);
($sec, $min, $hour, $log_day, $log_month, $log_year, $dweek, $dyear, $daylight) = localtime($log_time);
	if ($mon eq $log_month && $year eq $log_year && $action ne "Last 24 hours") {
		$mon{$log_day}++;
		$log_day = "$log_day$user";
		${$log_day}{$log_ip} = 0;
		$whole_unique{$log_ip} = 0;
	}
	if ($year eq $log_year && $action eq "Year to date" || $action eq "View this year") { 
		$month_data{$log_month}++;
		$month_unique = "$log_month$user\M";
		${$month_unique}{$log_ip} = 0;
	}
	if ($action eq "Last 24 hours") {
	$i = 1;
	$finish = $time - 3600;
	while ($i < 25) {
	   if ($log_time > $finish && $log_time < $finish + 3600) {
	   $hour{$i}++;
	   }
	   $i++;
	   $finish = $finish - 3600;
	}}
}
flock(FILE, 8);
close (FILE);

if ($action ne "Last 24 hours") {
open (FILE, "$datadir$user\_P");
flock(FILE, 2);
while (<FILE>) {
   ($log_time,$log_tier,$log_status,$log_recur,$log_cookie,$log_payout,$log_referurl,$log_ip,$log_goods) = split (/\|/, $_);
		if ($log_cookie eq $user) {
($sec, $min, $hour, $log_day, $log_month, $log_year, $dweek, $dyear, $daylight) = localtime($log_time);
		if ($mon eq $log_month && $year eq $log_year) { 
				 if ($log_tier eq "TIER1") {
				 	$tier1 = "tier1$log_day";
					${$tier1}{$log_time} = $status;
					$tier1A = "tier1$log_day\A";
					${$tier1A} = ${$tier1A} + $log_payout;
				 }
				 if ($log_tier eq "TIER2") { 
				 	$tier2 = "tier2$log_day";
			        ${$tier2}{$log_time} = $status;
					$tier2A = "tier2$log_day\A";
					${$tier2A} = ${$tier2A} + $log_payout;
				 }
				 if ($log_tier eq "TIER3") { 
				 	$tier3 = "tier3$log_day";
				 	${$tier3}{$log_time} = $status;
					$tier3A = "tier3$log_day\A";
					${$tier3A} = ${$tier3A} + $log_payout;
				 }
				    $total = "total$log_day";
					${$total} = ${$total} + $log_payout;
					$whole_month_total = $whole_month_total + $log_payout;
					$sale_number++;
		    }
		}
		if ($year eq $log_year) { 
			$tier1 = "yearit$log_month";
			$tier1T = "yearit$log_month\T";
			${$tier1T} = ${$tier1T} + $log_payout;
			${$tier1}{$log_time} = $status;
		}
}
flock(FILE, 8);
close (FILE);
}

if ($action eq "Last 24 hours") {
$hour_max = 0;
foreach $key (keys %hour) {
	if ($hour{$key} > $hour_max) {
		$hour_max = $hour{$key};
	}
}}

if ($action ne "Year to date" || $action ne "Last 24 hours") {
$mon_max = 0;
foreach $key (keys %mon) {
	if ($mon{$key} > $mon_max) {
		$mon_max = $mon{$key};
	}
}
$i = 1;
while ($i < 32) { 
$tier1 = "tier1$i"; $t1 = keys %{$tier1};
$tier2 = "tier2$i"; $t2 = keys %{$tier2};
$tier2 = "tier2$i"; $t3 = keys %{$tier3};
$big_total = $t1 + $t2 + $t3; 
if ($mon_max < $big_total) {$mon_max = $big_total;}
$i++;
}
}

if ($action eq "Year to date" || $action eq "View this year") {
$year_max = 0;
foreach $key (keys %month_data) {
	if ($month_data{$key} > $year_max) {
		$year_max = $month_data{$key};
	}
}
$i = 1;
while ($i < 13) { 
$tier1 = "yearit$i"; $t1 = keys %{$tier1};
if ($year_max < $t1) {$year_max = $t1;}
$i++;
}
}

if ($affiliate_program eq "twotier" || $affiliate_program eq "threetier") {
open (FILE, "$datadir$userdata");
flock(FILE, 2);
while (<FILE>) {	
	($date,$log_sponsor,$com1,$com2,$com3,$log_user,@rest)=split(/\|/, $_ );
	$users{$log_user} = $log_sponsor;
}
flock(FILE, 8);
close (FILE);
foreach $log_user (keys %users) {
	if ($users{$log_user} eq $user) { 
		$tier_one_affiliates++;
		$total_affiliates++;
		push (@tier1_affiliates, $log_user);
	}
}
if ($affiliate_program eq "threetier") {
foreach $person (@tier1_affiliates) {
	foreach $log_user (keys %users) {
		if ($users{$log_user} eq $person) { 
			$tier_two_affiliates++;
			$total_affiliates++;	
		}
	}
}}
}
if ($tier_one_affiliates < 1) {$tier_one_affiliates=0;}
if ($tier_two_affiliates < 1) {$tier_two_affiliates=0;}
if ($total_affiliates < 1) {$total_affiliates=0;}
$temp_num = keys %whole_unique;
if ($sale_number eq 0 || $temp_num eq 0) {$sales_conversion = 0;}
else {
$sales_conversion = $sale_number/$temp_num;
if ($sales_conversion < .01) { 
	$sales_conversion = $sales_conversion *100000;
} else {
	$sales_conversion = $sales_conversion *100;
}
$sales_conversion = int $sales_conversion;
if ($sales_conversion > 100) {$sales_conversion = $sales_conversion/1000;}
}
if ($whole_month_total < .001) {$whole_month_total=0;}
$days_in_the_month = @days_of_the_month;
}

######################################################################
# Banner Code Page
######################################################################
sub bannercode {

print $q->header;

print<<EOF;
<HTML><HEAD><TITLE>$user affiliate stats for $main_site_name</TITLE></HEAD>
<BODY BGCOLOR=$background TEXT=$darktext LINK=$darklinktext VLINK=$darkvlinktext>
<form action="stats.cgi" method=post>
<CENTER><TABLE BORDER=0 BGCOLOR=$darkcolor WIDTH=610 cellpadding=2 cellspacing=0><TR><TD>
<CENTER><FONT FACE="Verdana,Arial" COLOR=$lighttext SIZE=4><B>$main_site_name Control Panel</B></FONT></CENTER>
<CENTER><FONT FACE="Verdana,Arial" COLOR=$lighttext SIZE=2><B>Banner and Hyperlink Code</B></FONT></CENTER>
<CENTER><TABLE BORDER=0 BGCOLOR=$lightcolor width=100% cellpadding=5 cellspacing=0><TR><TD>
<center>
<font face=verdana,Verdana,Arial size=2>
<b>All Promotional Tools (banners, text links, emails, etc.):</b><br>
<a href="http://lessworkmoremoney.com/affil_pop.htm" target="_blank">
http://lessworkmoremoney.com/affil_pop.htm</a><br><br><br><b>
Main Affiliate Url:</b><br>
<font face=verdana,Verdana,Arial size=1>
$url_to_cgi_directory/clickthru.cgi?id=$user<p>
<br>

<font face=verdana,Verdana,Arial size=2>
<b>Graphic Link Example:</b><br>
EOF

foreach $banner (@url_to_banner) {
print<<EOF;
<center><a href="$url_to_cgi_directory/clickthru.cgi?id=$user"><br>
<img src="$banner" alt="$main_site_name" border="0"></a></center>
<font face=verdana,Verdana,Arial size=1>
<br>&lt;a href=&quot;$url_to_cgi_directory/clickthru.cgi?id=$user&quot;&gt;<br>
&lt;img src=&quot;$banner&quot; alt=&quot;$main_site_name&quot; 
border=&quot;0&quot;&gt;&lt;/a&gt;
<p>
EOF
}
print<<EOF;
<font face=verdana,Verdana,Arial size=2>
<b>Text Link Example:</b><p>
<a href="$url_to_cgi_directory/clickthru.cgi?id=$user">$main_site_name</a>
<font face=verdana,Verdana,Arial size=1>
<p>&lt;a href=&quot;$url_to_cgi_directory/clickthru.cgi?id=$user&quot;&gt;<br>$main_site_name&lt;/a&gt;
<p>
<font face=verdana,Verdana,Arial size=2>You can now link to any page in the $main_site_name website. Just add an additional variable
to your link code called "page" with the FULL URL of the page you want to redirect to.<p>
<b>EXAMPLE:</b><br>
<font face=verdana,Verdana,Arial size=1>
$url_to_cgi_directory/clickthru.cgi<br>?id=$user&page=http://whateversite.com/newpage.html<p>
Make sure the code above is all on one line.<br>It's split here to conserve space.<p>
<font face=verdana,Verdana,Arial size=2>
and the click will be forwarded to newpage.html.<p></center>
</TD></TR></TABLE></CENTER>
</TD></TR></TABLE></CENTER>
<center>
<p><font face=verdana,Verdana,Arial size=4>
<a href=stats.cgi?pass=$pass&user=$user>Back to Main Stats Page</a>
</center></BODY></HTML>
EOF
}

######################################################################
# Lost Password Form Page
######################################################################
sub lostpasswordform {

print $q->header;

print<<EOF;
<HTML><HEAD><TITLE>Lost Password?</TITLE></HEAD>
<BODY BGCOLOR=$background TEXT=$darktext LINK=$darklinktext VLINK=$darkvlinktext>
<form action="stats.cgi" method=post>
<CENTER><TABLE BORDER=0 BGCOLOR=$darkcolor WIDTH=610 cellpadding=2 cellspacing=0><TR><TD>
<CENTER><FONT FACE="Verdana,Arial" COLOR=$lighttext SIZE=4><B>Password Retrieval</B></FONT></CENTER>
<hr size=1>

<CENTER><TABLE BORDER=0 BGCOLOR=$lightcolor width=100% cellpadding=5 cellspacing=0><TR><TD ALIGN=RIGHT>

<center>
<FORM ACTION=stats.cgi METHOD=post>
<font face=Arial,Verdana size=2>&nbsp;<br>
<b><INPUT TYPE=SUBMIT NAME=action VALUE="Get Lost Password"></b>
<font face=Arial,Verdana size=2><INPUT TYPE=TEXT SIZE=40 NAME=email VALUE=" TYPE YOUR EMAIL ADDRESS HERE!">
</form>
<font face=verdana,Verdana,Arial size=2>
<b>Just type in your email address and your <br>login name and password will be emailed to you shortly.</b><br>
</b></font>
</center>

</TD></TR></TABLE></CENTER>


</TD></TR></TABLE></CENTER>
</BODY></HTML>

EOF
}

######################################################################
# Email lost password
######################################################################
sub emailpassword {

open (FILE, "$datadir$userdata");
flock(FILE, 2);
while (<FILE>) {
	($date,$sponsor,$com1,$com2,$com3,@rest) = split(/\|/, $_ ); 
if ($rest[2] eq $email) {
$subject = "Your $main_site_name Password";	
open (MAIL, "|$mailprog $email") || die "Can't open $mailprog!\n";
print MAIL <<"HEADER";
To: $email
Subject: $subject
From: $admin_email

Username: $rest[0]
Password: $rest[1] 

HEADER
	
close (MAIL);
$foundit = "OK";
		}
}
flock(FILE, 8);
close (FILE);
if ($foundit eq "OK") {
&print_default("Your password has been sent to $email");
} else {
&print_default("$email not found in database");
}
exit;

}

######################################################################
# View Commissions In Depth
######################################################################
sub viewtransactions {
print $q->header;
if (defined $view_year_com) {$current_year = $view_year_com;} else {$current_year = $real_year;}
if (defined $view_month_com) {$current_month = $view_month_com;} else {$current_month = $mon;}
open (FILE, "$datadir$user\_P");
flock(FILE, 2);
while (<FILE>) {
    ($key,@rest) = split (/\|/, $_);
($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($key);
	$year = $year + 1900;
	if ($year eq $current_year) {
	push (@{$month_hash_com{$mon}}, $_);
	}
}
flock(FILE, 8);
close (FILE);

print<<EOF;
    <FORM ACTION=stats.cgi METHOD=post><INPUT TYPE=HIDDEN NAME=pass VALUE=$pass>
	<center><font face=arial,verdana size=4><b>Transactions for $user</font><br>
    <font face=arial,verdana size=2><b>View&nbsp;<SELECT NAME=view_month_com>
EOF

$i=0;
while ($i<12) {
if ($current_month eq $i) {
print "<OPTION VALUE=$i SELECTED>$monthnames[$i]\n";
} else {
print "<OPTION VALUE=$i>$monthnames[$i]\n";
}
$i++;
}

print "</SELECT><SELECT NAME=view_year_com>";

$i = 1999;
while ($i < 2011) {
if ($current_year eq $i) {
print "<OPTION VALUE=$i SELECTED>$i\n";
} else {
print "<OPTION VALUE=$i>$i\n";
}
$i++;
}

print<<EOF;
</SELECT><font size=1><INPUT TYPE=HIDDEN NAME=user VALUE="$user"><INPUT TYPE=SUBMIT NAME=action VALUE="View Commissions">
</font><br><font face=verdana,Verdana,Arial size=2>
<a href=stats.cgi?pass=$pass&user=$user>Back to Main Stats Page</a>
<TABLE WIDTH=500 BORDER=1 CELLPADDING=2 CELLSPACING=0></FORM>
EOF

$i = $current_month;
	@list = sort {$a <=> $b} @{$month_hash_com{$i}};
	@list = reverse @list;
print<<EOF;
	<TR><TD align=center bgcolor=003E7B COLSPAN=4><font face=arial,verdana size=4 color=FFFFFF><B>@monthnames[$i] $current_year</TD></TR>
	<TR><TD align=center bgcolor=003E7B><font face=arial,verdana size=3 color=FFFFFF><B>DATE</font>
	</TD><TD align=center bgcolor=003E7B><font face=arial,verdana size=3 color=FFFFFF><B>LEVEL</font>
    </TD><TD align=center bgcolor=003E7B><font face=arial,verdana size=3 color=FFFFFF><B>AMOUNT</font>
	</TD><TD align=center bgcolor=003E7B><font face=arial,verdana size=3 color=FFFFFF><B>EXTRA INFO</font></TD></TR>
EOF
	foreach $list (@list) {
    ($key,$transaction,$status,$recur,$affiliate,$amount,$referer,$ip,$info) = split (/\|/, $list);
	$info = "\&nbsp\;$info";
	&date($key);
print<<EOF;
     <FORM ACTION=stats.cgi METHOD=POST>
	</TD><TD align=center><font face=arial,verdana size=2>$monthnames[$mon] $day, $year</font>
	</TD><TD align=center><font face=arial,verdana size=2>$transaction</font>
    </TD><TD align=center><font face=arial,verdana size=2>\$$amount</font>
	</TD><TD align=center><font face=arial,verdana size=2>$info</font></TD></form></TR>
EOF
	}
print<<EOF;
     </TABLE></CENTER>
EOF
}

######################################################################
# Last 24 Hours of hits
######################################################################
sub last24hours {
print $q->header;
print<<EOF;
<HTML><HEAD><TITLE>$main_site_name\'s stats for the last 24 hours.</TITLE></HEAD>
<BODY BGCOLOR="FFFFFF" TEXT="000000" LINK="000000" VLINK="CFCFCF">
<CENTER><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=5 BGCOLOR=FFFFFF>
<TR><TD align=center COLSPAN=25><FONT FACE="Verdana,Arial" SIZE=4><B>Last 24 hours<br><font size=2>(Number of Referrals per Hour)</B></FONT></TD></TR>
<TR><TD align=center COLSPAN=25><font size=1>&nbsp;</TD></TR>
<TR>
EOF

$i = 1;
while ($i < 25) {
 	if ($hour{$i}) {} else {$hour{$i}=0;}
	if ($hour_max) {} else {$hour_max=200;}
	$height = $hour{$i} / $hour_max * 200;
	if ($height < 1) {$height = 1;}
	print "<TD valign=bottom ROWSPAN=2 align=center><IMG SRC=$graphic_1 width=10 height=$height border=0></TD>\n";
	$i++;
}

print<<EOF;
</TD><TD valign=top><font size=1 face=verdana,Verdana,Arial><b>$hour_max</b></TD></TR><TR><TD valign=bottom><font size=1 face=verdana,Verdana,Arial><b>0</b></font>
</TD></TR>
EOF

$i = 1;
$time = time();
while ($i < 25) {
($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time);
    $hour = $hour + 1;
	if ($hour > 12.5) {$hour = $hour - 12; $hours = "pm";}
	else { $hours = "am" }
 	if ($i < 10) { $i = "$i<br>\&nbsp\;\&nbsp\;\&nbsp\;"; }
	print "<TD valign=top align=center><font size=1 face=Verdana,Arial>$hour<br><sup>$hours</sup></TD>\n";
	$i++; $time = $time - (60*60);
}

print<<EOF;
</TD><TD valign=top><font size=1 face=verdana,Verdana,Arial><b>scale</b></TD></TR>
<TR>
EOF

$i = 1;
while ($i < 25) {
 	if ($hour{$i}) {} else {$hour{$i}=0;}
	print "<TD valign=middle align=center><font size=1 face=verdana,Verdana,Arial>$hour{$i}</TD>\n";
	$i++;
}

print<<EOF;
<TD valign=top><font size=1 face=verdana,Verdana,Arial><b>hits<br>sent</b></TD></TR>
</TABLE></CENTER></BODY></HTML>
EOF
exit;
}

######################################################################
# Graph of the year
######################################################################
sub year_stats {
$year = $year + 1900;
print $q->header;
print<<EOF;
<HTML><HEAD><TITLE>$main_site_name\'s stats for the year</TITLE></HEAD>
<BODY BGCOLOR="FFFFFF" TEXT="000000" LINK="000000" VLINK="CFCFCF">
<CENTER>
<form action=stats.cgi method=post>
<input type=hidden name=pass value=$pass>
<input type=hidden name=user value=$user>
<TABLE WIDTH=200 BORDER=0 CELLSPACING=0 CELLPADDING=5 BGCOLOR=FFFFFF>
<TR><TD align=center COLSPAN=14><FONT FACE="Verdana,Arial" SIZE=4><B>History for $year</B></FONT>
<br><font face=verdana,Verdana,Arial size=1><B><SELECT NAME=view_year>
EOF
$i = 1999;
while ($i < 2010) {
    if ($i eq $real_year) { $temp = "SELECTED"; }
	print "<OPTION VALUE=\"$i\" $temp>$i";
	$i++; $temp = "";
}
print<<EOF;
</SELECT><font face=verdana,Verdana,Arial size=1><B><INPUT TYPE=SUBMIT NAME=action VALUE="View this year"></b></font><p>
<IMG SRC=$graphic_1 width=15 height=5 border=0><font face=verdana,Verdana,Arial size=1>&nbsp;Total Referrals&nbsp;&nbsp;
<IMG SRC=$graphic_2 width=15 height=5 border=0><font face=verdana,Verdana,Arial size=1>&nbsp;Unique Referrals&nbsp;&nbsp;
<IMG SRC=$graphic_3 width=15 height=5 border=0><font face=verdana,Verdana,Arial size=1>&nbsp;Sales
</TD></TR><TR><TD align=center valign=bottom ROWSPAN=2>&nbsp;</TD>
EOF

$i = 0;
while ($i < 12) {
 	if ($month_data{$i}) {} else {$month_data{$i}=0;}
	if ($year_max) {} else {$year_max=100;}
	$temp = "$i$user\M";
	$uniq_num = keys %{$temp};
	$tier1 = "yearit$i";
	$number = keys %{$tier1};
	$height1 = $month_data{$i} / $year_max * 200;
	$height2 = $uniq_num / $year_max * 200;
	$height3 = $number / $year_max * 200;
	if ($height1 < 1) {$height1 = 1;}
	if ($height2 < 1) {$height2 = 1;}
	if ($height3 < 1) {$height3 = 1;}
	print "<TD align=center valign=bottom ROWSPAN=2><IMG SRC=$graphic_1 width=10 height=$height1 border=0><IMG SRC=$graphic_2 width=10 height=$height2 border=0><IMG SRC=$graphic_3 width=10 height=$height3 border=0></TD>\n";
	$i++;
}

print<<EOF;
<TD valign=top><font size=1 face=verdana,Verdana,Arial><b>$year_max</b></TD></TR><TR><TD valign=bottom><font size=1 face=verdana,Verdana,Arial><b>0</b></font></TD>
</TR><TR><TD>&nbsp;</TD>
EOF

$i = 0;
while ($i < 12) {
    $themonth = @monthnames[$i];
	$themonth = substr($themonth,0,3);
	print "<TD align=center valign=top><font size=1 face=verdana,Verdana,Arial>$themonth</font></TD>\n";
	$i++;
}

print<<EOF;
<TD valign=top><font size=1 face=verdana,Verdana,Arial><b>scale</b></TD></TR>
<TR><TD COLSPAN=14>&nbsp;</TD></TR>
</TR><TR></TD><TD align=right valign=middle><font size=1 face=verdana,Verdana,Arial><b>Total<br>Referrals</b></TD>
EOF

$i = 0;
while ($i < 12) {
 	if ($month_data{$i}) {} else {$month_data{$i}=0;}
	$temp = "$i$user\M";
	$uniq_num = keys %{$temp};
	$tier1 = "yearit$i";
	$number = keys %{$tier1};
	$height1 = $month_data{$i} / $year_max * 200;
	$height2 = $uniq_num / $year_max * 200;
	$height3 = $number / $year_max * 200;
	if ($height1 < 1) {$height1 = 1;}
	if ($height2 < 1) {$height2 = 1;}
	if ($height3 < 1) {$height3 = 1;}
	print "<TD align=center valign=middle><font size=1 face=verdana,Verdana,Arial><b>$month_data{$i}</b></TD>\n";
	$i++;
}

print<<EOF;
<TD>&nbsp;</TD>
</TR><TR><TD align=right valign=middle><font size=1 face=verdana,Verdana,Arial><b>Unique<br>Referrals</b></TD>
EOF

$i = 0;
while ($i < 12) {
 	if ($month_data{$i}) {} else {$month_data{$i}=0;}
	$temp = "$i$user\M";
	$uniq_num = keys %{$temp};
	$tier1 = "yearit$i";
	$number = keys %{$tier1};
	$height1 = $month_data{$i} / $year_max * 200;
	$height2 = $uniq_num / $year_max * 200;
	$height3 = $number / $year_max * 200;
	if ($height1 < 1) {$height1 = 1;}
	if ($height2 < 1) {$height2 = 1;}
	if ($height3 < 1) {$height3 = 1;}
	print "<TD align=center valign=middle><font size=1 face=verdana,Verdana,Arial><b>$uniq_num</b></TD>\n";
	$i++;
}

print<<EOF;
<TD>&nbsp;</TD>
</TR><TR><TD align=right valign=middle><font size=1 face=verdana,Verdana,Arial><b>Sales</b></TD>
EOF

$i = 0;
while ($i < 12) {
 	if ($month_data{$i}) {} else {$month_data{$i}=0;}
	$temp = "$i$user\M";
	$uniq_num = keys %{$temp};
	$tier1 = "yearit$i";
	$number = keys %{$tier1};
	$height1 = $month_data{$i} / $year_max * 200;
	$height2 = $uniq_num / $year_max * 200;
	$height3 = $number / $year_max * 200;
	if ($height1 < 1) {$height1 = 1;}
	if ($height2 < 1) {$height2 = 1;}
	if ($height3 < 1) {$height3 = 1;}
	print "<TD align=center valign=middle><font size=1 face=verdana,Verdana,Arial><b>$number</b></TD>\n";
	$i++;
}

print<<EOF;
<TD>&nbsp;</TD>
</TR><TR><TD align=right valign=middle><font size=1 face=verdana,Verdana,Arial><b>Commissions</b></TD>
EOF
	
$i = 0;
while ($i < 12) {
	$tier1T = "yearit$i\T";
	if (${$tier1T}) {} else {${$tier1T} = 0}
	print "<TD align=center valign=middle><font size=1 face=verdana,Verdana,Arial><b>\$${$tier1T}</b></TD>\n";
	$i++;
}

print<<EOF;
<TD>&nbsp;</TD>
</TR></TABLE></FORM><CENTER>
<font face=verdana,Verdana,Arial size=3><p>
<a href=stats.cgi?pass=$pass&user=$user>Back to Main Stats Page</a>
</CENTER></body></html>
EOF
exit;
}

######################################################################
# Main Affiliate Control Panel Page
######################################################################
sub statspage {
print $q->header;
print<<EOF;
<HTML><HEAD><TITLE>$main_site_name Stats Page</TITLE></HEAD>
<BODY BGCOLOR="FFFFFF" TEXT="000000">
<CENTER><TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=002244><TR><TD align=center valign=middle BGCOLOR=FFFFFF>
<FONT FACE=VERDANA,Verdana,Arial SIZE=4 COLOR=000000><b>AFFILIATE CONTROL PANEL</b><br>
<font size=2><b>Referral and Commission Data for $user.<p></FONT><br>
<font face="Arial" size=2>This affiliate tracker will be inactivated Friday Feb 4th.
Login to the new affiliate center using your current pwd<br>and the new ID that was
emailed to you on Feb 1st: <a href="http://wetrack.it/mikkema/affiliate">http://wetrack.it/mikkema/affiliate</a>
. Check your email for the details. <br>Or email me at <a href="mailto:affil_support&#64;lessworkmoremoney.com">affil_support&#64;lessworkmoremoney.com</a><br><br>
<form action=stats.cgi method=post>
<input type=hidden name=pass value=$pass>
<input type=hidden name=user value=$user>
<FONT FACE=VERDANA,Verdana,Arial SIZE=1 COLOR=1C0000><b>
<INPUT TYPE=SUBMIT NAME=action VALUE="Get Link Code">&nbsp;
<INPUT TYPE=SUBMIT NAME=action VALUE="Update Your Info">&nbsp;
<INPUT TYPE=SUBMIT NAME=action VALUE="In-depth Commissions"><br>&nbsp;<br>
<INPUT TYPE=SUBMIT NAME=action VALUE="Top 100 Referral Sites">&nbsp;
<INPUT TYPE=SUBMIT NAME=action VALUE="Last 24 hours">&nbsp;
<INPUT TYPE=SUBMIT NAME=action VALUE="Year to date"><p>
EOF
if ($affiliate_program eq "twotier" || $affiliate_program eq "threetier" && $show_downline eq 1) {
print<<EOF;
<INPUT TYPE=SUBMIT NAME=action VALUE="Level 1 Details">
EOF
if ($affiliate_program eq "twotier" && $show_downline eq 1) { print "<p>"; }
}
if ($affiliate_program eq "threetier" && $show_downline eq 1) {
print<<EOF;
&nbsp;&nbsp;<INPUT TYPE=SUBMIT NAME=action VALUE="Level 2 Details">
EOF
}
print<<EOF;
<p>
<center><INPUT TYPE=SUBMIT NAME=action VALUE="View">&nbsp;<SELECT NAME=view_month>
EOF
foreach $name (@monthnames) {
	if ($name eq $view_month || $name eq $monthnames[$mon]) { $temp = "SELECTED"; }
	print "<OPTION VALUE=\"$name\" $temp>$name";
	$temp = "";
}
print<<EOF;
</SELECT>
<SELECT NAME=view_year>
EOF
$i = 1999;
while ($i < 2010) {
    if ($i eq $real_year) { $temp = "SELECTED"; }
	print "<OPTION VALUE=\"$i\" $temp>$i";
	$i++; $temp = "";
}
print<<EOF;
</SELECT>
</font>
</form>
</TD></TR><TR><TD valign=middle align=center>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=3 BGCOLOR=002244><TR>
<TD align=center valign=middle bgcolor=003E7B><FONT FACE="Verdana,Arial" SIZE=2 COLOR=FFFFFF><B>$monthnames[$mon] 1-15, $real_year</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
	print "<TD align=center valign=middle bgcolor=003E7B><FONT FACE=Arial,Verdana SIZE=2 COLOR=FFFFFF><B>$i</B></FONT></TD>\n";
$i++;
}

print<<EOF;
</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Verdana,Arial" SIZE=1><B>Total Clicks</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
	print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>$mon{$i}</B></FONT></TD>\n";
$i++;
}

print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Unique Clicks</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
$day = "$i$user";
$number = keys %{$day};
	print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>$number</B></FONT></TD>\n";
$i++;
}

print<<EOF;


</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Sales</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
$tier1 = "tier1$i";
$tier2 = "tier2$i";
$tier3 = "tier3$i";
$number1 = keys %{$tier1};
$number2 = keys %{$tier2};
$number3 = keys %{$tier3};
$number = $number1 + $number2 + $number3;
	print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>$number</B></FONT></TD>\n";
$i++;
}

print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Tier 1 Commissions</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
$num = "tier1$i\A";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>\n";
$i++;
}

if ($affiliate_program eq "twotier" || $affiliate_program eq "threetier") {
print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Tier 2 Commissions</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
$num = "tier2$i\A";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>\n";
$i++;
}
}

if ($affiliate_program eq "threetier") {
print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Tier 3 Commissions</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
$num = "tier3$i\A";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>\n";
$i++;
}
}

print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Total Commissions</B></FONT></TD>
EOF

$i = 1;
while ($i < 16) {
$num = "total$i";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>\n";
$i++;
}

print<<EOF;
</TR>
</TABLE>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=3 BGCOLOR=000000>

<TR>
<TD align=center valign=middle bgcolor=003E7B><FONT FACE="Verdana,Arial" SIZE=2 COLOR=FFFFFF><B>$monthnames[$mon] 16-$days_in_the_month, $real_year</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
	print "<TD align=center valign=middle bgcolor=003E7B><FONT FACE=Arial,Verdana SIZE=2 COLOR=FFFFFF><B>$i</B></FONT></TD>\n";
$i++;
}

print<<EOF;
</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Total Clicks</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
	print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>$mon{$i}</B></FONT></TD>\n";
$i++;
}

print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Unique Clicks</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
$day = "$i$user";
$number = keys %{$day};
	print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>$number</B></FONT></TD>\n";
$i++;
}

print<<EOF;


</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Sales</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
$tier1 = "tier1$i";
$number = keys %{$tier1};
	print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>$number</B></FONT></TD>\n";
$i++;
}

print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Tier 1 Commissions</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
$num = "tier1$i\A";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>";
$i++;
}

if ($affiliate_program eq "twotier" || $affiliate_program eq "threetier") {
print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Tier 2 Commissions</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
$num = "tier2$i\A";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>\n";
$i++;
}
}

if ($affiliate_program eq "threetier") {
print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Tier 3 Commissions</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
$num = "tier3$i\A";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>\n";
$i++;
}
}

print<<EOF;

</TR><TR>
<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE="Verdana,Arial" SIZE=1><B>Total Commissions</B></FONT></TD>
EOF

$i = 16;
while ($i < ($days_in_the_month+1)) {
$num = "total$i";
if (${$num} > 0) {} else {${$num} = 0;}
print "<TD align=center valign=middle BGCOLOR=FFFFFF><FONT FACE=Arial,Verdana SIZE=1><B>\$${$num}</B></FONT></TD>\n";
$i++;
}

print<<EOF;
</TR>
</TABLE>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=0 BGCOLOR=000000><TR><TD>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=5 BGCOLOR=000000><TR><TD BGCOLOR=FFFFFF align=center>
EOF

print<<EOF;
<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=5 BGCOLOR=FFFFFF>
<TR><TD align=center BGCOLOR=FFFFFF>
<FONT FACE=VERDANA,Verdana,Arial SIZE=2 COLOR=1C0000><b>
Commissions due to you ($monthnames[$mon] $real_year) = \$$whole_month_total <br>
Commissions / Unique IP Clicks = $sales_conversion% Sales Conversion<br>
EOF
if ($affiliate_program eq "twotier" || $affiliate_program eq "threetier") {
print<<EOF;
Total affiliates signup up under $user: $total_affiliates<br>
Affiliates on your first level: $tier_one_affiliates<br>
EOF
if ($affiliate_program eq "threetier") {
print<<EOF;
Affiliates on your second level: $tier_two_affiliates
EOF
}}
print<<EOF;
</TD></TR></TABLE>
<CENTER><TABLE width=100% BORDER=0 CELLSPACING=1 CELLPADDING=1 BGCOLOR=FFFFFF>
<TR><TD BGCOLOR=FFFFFF>&nbsp;</TD><TD align=center COLSPAN=$days_in_the_month><FONT FACE="Verdana,Verdana,Arial" SIZE=2><B>Daily Trends for $monthnames[$mon] $real_year</B></FONT>
<br><IMG SRC=$graphic_1 width=15 height=5 border=0><font face=verdana,Verdana,Arial size=1>&nbsp;Total Referrals&nbsp;&nbsp;
<IMG SRC=$graphic_2 width=15 height=5 border=0><font face=verdana,Verdana,Arial size=1>&nbsp;Unique Referrals&nbsp;&nbsp;
<IMG SRC=$graphic_3 width=15 height=5 border=0><font face=verdana,Verdana,Arial size=1>&nbsp;Sales
<p></TD><TD BGCOLOR=FFFFFF>&nbsp;</TD></TR>
<TR><TD BGCOLOR=FFFFFF ROWSPAN=2>&nbsp;</TD>
EOF

$i = 1;
while ($i < ($days_in_the_month+1)) {
 	if ($mon{$i}) {} else {$mon{$i}=0;}
	if ($mon_max) {} else {$mon_max=100;}
	$temp = "$i$user";
	$uniq_num = keys %{$temp};
	$tier1 = "tier1$i";
	$tier2 = "tier2$i";
	$tier3 = "tier3$i";
	$number1 = keys %{$tier1};
	$number2 = keys %{$tier2};
	$number3 = keys %{$tier3};
	$number = $number1 + $number2 + $number3;
	if ($sales_max) {} else {$sales_max=100;}
	$height1 = $mon{$i} / $mon_max * 100;
	$height2 = $uniq_num / $mon_max * 100;
	$height3 = $number / $mon_max * 100;
	if ($height1 eq 0) { $height1 = 1; }
	if ($height2 eq 0) { $height2 = 1; }
	if ($height3 eq 0) { $height3 = 1; }
	print "<TD align=center valign=bottom ROWSPAN=2><IMG SRC=$graphic_1 width=4 height=$height1 border=0><IMG SRC=$graphic_2 width=4 height=$height2 border=0><IMG SRC=$graphic_3 width=4 height=$height3 border=0></TD>\n";
	$i++;
}

print<<EOF;
<TD BGCOLOR=FFFFFF valign=top><font face=verdana,Verdana,Arial size=1>$mon_max</font></TD></TR><TR><TD valign=bottom><font face=verdana,Verdana,Arial size=1>0</font></TD></TR><TR><TD BGCOLOR=FFFFFF>&nbsp;</TD>
EOF

$i = 1;
while ($i < ($days_in_the_month+1)) {
	print "<td valign=top align=center><font face=verdana size=1>$i</font></td>\n";
	$i++;
}

print<<EOF;
<TD BGCOLOR=FFFFFF><font face=verdana,Verdana,Arial size=1>scale</font></TD></TR>
</TABLE></CENTER>

<CENTER><FONT FACE="Verdana,Arial" SIZE=2><B>Your link code:</B></FONT></CENTER>
<TABLE WIDTH=100% BORDER=0 CELLSPACING=1 CELLPADDING=5 BGCOLOR=FFFFFF>
<TR><TD align=center bgcolor=003E7B>
<FONT FACE=Arial,Verdana SIZE=2 COLOR=1C0000><b>
<a href=$url_to_cgi_directory/clickthru.cgi?id=$user>$url_to_cgi_directory/clickthru.cgi?id=$user</a>
</TD></TR></TABLE>


</TD></TR></TABLE>

</TD></TR></TABLE></TD></TR></TABLE></CENTER>
</BODY>
</HTML>
EOF

exit;
}

######################################################################
# Print Out the Login Page
######################################################################
sub loginpage {
print $q->header;
print<<EOF;

<HTML><HEAD><TITLE>Stats Login</TITLE></HEAD>
<BODY BGCOLOR="FFFFFF" TEXT="000000" LINK="0000FF" VLINK="800080">
&nbsp;<P><P>
<CENTER><TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=5 BGCOLOR=003E7B><TR>
<TD><CENTER><FONT FACE="Verdana,Arial" COLOR=FFFFFF SIZE=4><B>$main_site_name<br><font size=2><I>A f f i l i a t e &nbsp;&nbsp; C o n t r o l &nbsp;&nbsp; P a n e l &nbsp;&nbsp; L o g i n</I></B></FONT></CENTER></TD>
</TR></TABLE></CENTER>
<P><font face="Arial">This affiliate tracker will be inactivated Friday Feb 4th.
Login to the new affiliate center using your current pwd and the new ID that was
emailed to you on Feb 1st: <a href="http://wetrack.it/mikkema/affiliate">http://wetrack.it/mikkema/affiliate</a>
. Check your email for the details. Or email me at <a href="mailto:affil_support&#64;lessworkmoremoney.com">affil_support&#64;lessworkmoremoney.com</a><br><br>
<CENTER><TABLE BORDER=0 BGCOLOR="white" CELLSPACING=1 CELLPADDING=5><TR><TD align=right>   
	  <form action="stats.cgi" method=post>
	  <CENTER> 
	  <FONT FACE="Verdana" SIZE=3><B>USERNAME:</B></FONT></TD><TD>
	  <INPUT type="text" name="user" size="20" maxlength="20"></TD></TR><TR><TD align=right>
	  <FONT FACE="Verdana" SIZE=3><B>PASSWORD:</B></FONT></TD><TD>
	  <INPUT type="text" name="pass" size="20" maxlength="20"></TD></TR><TR><TD COLSPAN=2>
	  <CENTER><INPUT type="submit" name="action" value="Login">
	  <INPUT type="submit" name="action" value="Did you lose your password?"></CENTER>
	  <CENTER><FONT FACE="Verdana" SIZE=1 COLOR="000000"><br>
	  <B>Copyright &copy; 1999 Steve Miles - 
	  <a href="http://www.groundbreak.com">www.groundbreak.com</a></B></FONT></CENTER>
</TD></TR></TABLE></form></CENTER>

<CENTER><TABLE WIDTH=600 BORDER=0 CELLSPACING=0 CELLPADDING=5 BGCOLOR=003E7B><TR>
<TD><CENTER><FONT FACE="Verdana,Arial" COLOR=FFFFFF SIZE=4><B>$main_site_name<br><font size=2><I>A f f i l i a t e &nbsp;&nbsp; C o n t r o l &nbsp;&nbsp; P a n e l &nbsp;&nbsp; L o g i n</I></B></FONT></CENTER></TD>
</TR></TABLE></CENTER>

</BODY></HTML>

EOF
exit;
}

######################################################################
# Default Error HTML
######################################################################
sub print_default {
 print $q->header;
 print<<HTML;
<HTML><HEAD><TITLE>Affiliate Program</TITLE>
</HEAD<BODY BGCOLOR=$background TEXT=$darktext LINK=$darklinktext VLINK=$darkvlinktext>
<FONT SIZE=3 face=Arial,Verdana><CENTER><b>$_[0]</b></CENTER></FONT><HR WIDTH=50%>
      <P>
      <FONT SIZE=5><CENTER>
HTML
	  if ($action ne "Get Lost Password") {
       print "<a href=stats.cgi>Go Back</A>";
	  }
	   
print<<HTML;
</CENTER></FONT></BODY></HTML>
HTML
exit;
}

######################################################################
# Filter pipes ("|") out of user submissions
######################################################################
sub filter{
  $temp = $_[0];
  $temp =~ s/\|//;
  return ($temp);
}

######################################################################
# Date Subroutines
######################################################################

sub create_month_hash {

if ($action eq "View" || $action eq "View this year") { 
$year = $view_year - 1900;
$real_year = $year + 1900;
$i = 0;
	foreach $name (@monthnames) {
	if ($name eq $view_month) { $mon = $i; }
	$i++;
	}
$time = timelocal(0,0,1,15,$mon,$year);
} else {$time = time();}
($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time);
$month = $mon;

while ($month eq $mon) {
	$mon{$day} = 0;
	$time = $time - (60 * 60 * 24);
	($sec, $min, $hour, $day, $month, $year, $dweek, $dyear, $daylight) = localtime($time);
}

if ($action eq "View" || $action eq "View this year") { 
$year = $view_year - 1900;
$real_year = $year + 1900;
$i = 0;
	foreach $name (@monthnames) {
	if ($name eq $view_month) { $mon = $i; }
	$i++;
	}
$time = timelocal(0,0,1,15,$mon,$year);
} else {$time = time();}
($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time);
$month = $mon;
	
while ($month eq $mon) {
	$mon{$day} = 0;
	$time = $time + (60 * 60 * 24);
	($sec, $min, $hour, $day, $month, $year, $dweek, $dyear, $daylight) = localtime($time);
}

@days_of_the_month = sort { $a <=> $b } (keys %mon);
if ($mon >= 11) { $year = $year - 1; }
$real_year = $year + 1900;
}
	
sub realdate {
	$time = time();
    ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time);
	$mon = $mon;
    $real_year = $year + 1900;
}

sub date {
    ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($_[0]);
	$month = $mon;
    $year = $year + 1900;
}