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;
    }
}