#!/usr/bin/perl

use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

### The full path (NOT URL) to the wsr.conf file
$Conf = "/home/resource-a-day/docs/cgi-bin/resource2/wsr.conf";

### The full path (NOT URL) to the wsr-lib.pl file
$Library = "/home/resource-a-day/docs/cgi-bin/resource2/wsr-lib.pl";

require $Conf;
require $Library;

$User2 = $ENV{QUERY_STRING};
#########################################################################
# Don't change anything below here unless you know what you're doing :) #
#########################################################################
($email2, $sponsor2) = split /=/, $User2;
$email = &decrypt($email2);
$sponsor = &decrypt($sponsor2);
#print "Content-type: text/html\n\n";
$ip =  $ENV{'REMOTE_ADDR'};

$dbh = &connectToDB();
$sth = $dbh->prepare("SELECT email FROM $tablename2 WHERE email = '$email'");
$sth->execute;
$emailexists = $sth->fetchrow;
$sth->finish;
&closeDBConnection();
if ($emailexists) { &Error('Email Address ' . $email . ' already in database'); }

open (TEMPLATE, "/home/resource-a-day/docs/cgi-bin/resource2/templates/confirmemailsuccessful.template") or die "Can't open confirmemailsuccessful.template!\n";
while (<TEMPLATE>) {
   $script .= $_;
}
close(TEMPLATE);
$script =~ s/~EMAIL2~/$email2/sg;
$script =~ s/~EMAIL~/$email/sg;
$script =~ s/~SPONSOR~/$sponsor/sg;
$script =~ s/~GOBACK~/$ENV{'HTTP_REFERER'}/sg;

print "Content-type: text/html\n\n";
print "$script";
		exit;

#################################################################
#			connectToDB()			#
#################################################################

sub connectToDB
	{
	return (DBI->connect($dbName, $dbUserName, $dbPassword));
	}

#################################################################
#			closeDBConnection()			#
#################################################################

sub closeDBConnection
	{
	$dbh->disconnect();
	}