package Site::HTML;

use strict;
use warnings;

use DBI;
#use DBD::mysql;
use Exporter;
use Template;
use MIME::Lite;
use Digest::SHA qw(sha256_base64);

use cPanelUserConfig;
use Site::Variables;
use Bod::CRM;

our @ISA = qw(Exporter);
our @EXPORT = qw(%data %file %cookie $dbh $current_user);

our $site = $Site::Variables::site;
our $template = Template->new(
    INCLUDE_PATH    => $Site::Variables::template_path,
    PRE_CHOMP       => 0,
    POST_CHOMP      => 1,
);

our (%data, %file, %cookie, $dbh);
our $current_user = 0;

my $crm = Bod::CRM->new($Site::Variables::env_crm_env);

# Untaint ENV{PATH} for MIME::Lite
my $path = $ENV{'PATH'};
$ENV{'PATH'} = undef;
foreach my $p(split /:/, $path) {
    if ($p =~ m!^(/(usr|bin).*)!) {
        $ENV{'PATH'} .= ':' if $ENV{'PATH'};
        $ENV{'PATH'} .= $1;
    }
}

##</code><code>##

package Site::Wayfinder;

use strict;
use warnings;

use cPanelUserConfig;
use Digest::SHA qw(sha512_base64);
use Facebook::Graph;
use GD;
use Bod::CRM;
use Site::HTML;
use Site::Point;

my $crm = Bod::CRM->new(Site::HTML->crm_env);

sub new {
    my $class = shift;
    my %attrs = @_;
    
    $attrs{'error'} = '';
    $attrs{'fb'}    = Facebook::Graph->new(
        app_id          => '12345678',
        secret          => 'abcdefghijklmnop',
        postback        => "https://$ENV{'HTTP_HOST'}/?command=authorize_facebook",
    );
    
    return bless \%attrs, $class;
}