#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use FindBin qw($RealBin);
my $safepath;
BEGIN {
	if ($RealBin =~ m!^(/home/username/uk/www)!) {
		$safepath = "$1/../lib";
	} else {
		die "Illegal use of software - visit www.example.com to use this site";
	}
}
use lib "$safepath";

use Site::HTML;
use Site::Wayfinder;
use Bod::CRM;

use strict;
use warnings;

my $crm = Bod::CRM->new('test');

print "Content-type: text/plain\n\n";

my $db = '...';
my $un = '...';
my $pw = '...';

#####  Uncomment one line #####
#my $dbh = DBI->connect("dbi:mysql:$db:localhost:3306",$un,$pw) || die "DB ERROR: " . $dbh->errstr;
my $dbh = $crm->db;

$dbh->do("CREATE TEMPORARY TABLE Temp_Test (
			idTest   INT NOT NULL AUTO_INCREMENT PRIMARY KEY,
			fname    VARCHAR(40),
			nname    VARCHAR(40),
			sname    VARCHAR(60),
			email    VARCHAR(100),
			altEmail VARCHAR(100)
		)
		ENGINE MyISAM");

print "ERROR: " . $dbh->errstr if $dbh->err;

$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('Ian', 'Bod', 'Boddison', 'me\@example.com')");
$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('Boomer', 'Boo', 'Dog', 'dog\@example.com')");
$dbh->do("INSERT INTO Temp_Test (fname, nname, sname, email) VALUES ('Oi', '', 'You', 'you\@example.com')");

my $query = $dbh->prepare("SELECT * FROM Temp_Test");
$query->execute;
$, = ' - ';
while (my @row = $query->fetchrow_array) {
	print @row;
	print "\n";
}

my %data;
$data{'email'} = 'dog@example.com';

my $crid = $dbh->selectrow_array("SELECT idTest FROM Temp_Test WHERE email = ? OR altEmail = ?", undef, $data{'email'}, $data{'email'});

print "ERROR: " . $dbh->errstr if $dbh->err;

print "\nCRID: $crid\n";