#!/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__