#!/usr/bin/perl


use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use vars qw($form);

#####################################################
#Import our custom modules used in the main site    #
#####################################################

BEGIN {push (@INC,"modules/site");
       push (@INC,"modules/custom");
      }
use databaseFunctions;
use moduleSecurity;
use forms;
use template;

########################
#Connect to Database   #
########################

our $db = new databaseFunctions; #declare a new database object
$db->connect(); 		#Connect to the database



########################
#Do Form Stuff         #
########################

our $form = new CGI;



#We need to find out what URL the user is calling and see if its in our
#Portal List
my $queryString = "SELECT portal from portalUrls where url like '\%$ENV{'HTTP_HOST'}'";
my $dbSelect = $db->query($queryString);


print "Content-type: text/plain\n\n"; #This will be removed, and other header stuff will be added to each module itself
if($dbSelect->{0}{portal} ==0) {
	print "No Document Found";
}
else {
	#The Portal was found, now to see if its active
	$queryString = "SELECT active,defaultModule from portalSettings where id =" . $dbSelect->{0}{portal};
	$dbSelect = $db->query($queryString);
	
	if($dbSelect->{0}{active} eq "n") {
		#This is where we would normally print a page saying the portal is temporarily unavailable
		#But for now, this will do
	
		print "At this time the site you have requested is unavailable. Please check back later";
	}
	else {
		#The Portal is Active. That means defaultModule is available
		#We need to check if this module is allowed to be used without authentication

		my $secCheck  = new moduleSecurity();
		my $secReturn = $secCheck->checkModule($dbSelect->{0}{defaultModule});
                         

                
		my $templateFile = "site/main";
		my $tpl = new template;
		my $returnedtpl = $tpl->parse($templateFile,"print");
 	       	
		if($secReturn eq "y") {
			print "Security Required";
		}
		else {
			#my $module = $dbSelect->{0}{defaultModule};
			require "$dbSelect->{0}{defaultModule}.pm";
			my $returned = $dbSelect->{0}{defaultModule}->mainModule;
			print $returned;			

		}

	}
}