#!/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";

##</code><code>##

#!/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 $html = Site::HTML->new;
my $wf   = Site::Wayfinder->new;
my $crm  = Bod::CRM->new('test');

$html->head;

my $logbox = 'log_login';
$logbox = 'log_fpass' if $data{'command'} eq 'fpass';

# Reset password
if ($data{'command'} eq 'rpass') {
	my $test = $crm->db->selectrow_array("SELECT idPerson FROM Person WHERE email = ? OR altEmail = ?", undef, $data{'email'}, $data{'email'});
	
	print "<p>TEST: $test</p>\n";
	
	my $query = $crm->db->prepare("SELECT idPerson FROM Person WHERE email = ? OR altEmail = ?");
	$query->execute($data{'email'}, $data{'email'});
	my $crid  = $query->fetchrow_array;
	
	print "<p>CRID: $crid</p>\n";
	exit;
}

__END__


##</code><code>##

TEST: 0

CRID: 1

##</code><code>##

$html->head;

##</code><code>##

#$html->head;
print "Content-type: text/plain\n\n";

##</code><code>##

<p>TEST: 0</p>
<p>CRID: 1</p>