#! /usr/bin/perl -T
#
# (c) Noa

use strict;

$ENV{'PATH'} = '/usr/bin:/bin:/usr/local/bin';
delete @ENV{ 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

use lib qw(./); 
use ScorchLib::Configuration;
use ScorchLib::HTMLTemplate;

my $page = new ScorchLib::HTMLTemplate;
my $config = new ScorchLib::Configuration;
#my $cart = new ScorchLib::Cart;

#$cart->load();

# Noa's method of deleting useless *.txt
#$cart->save();
#$cart->tidyCarts();

my ($html_content) = $page->load($config->{'templates'}->{'front_pagehm'});
$page->print($html_content);