package template;
use DBI;
use strict;
use warnings;
use variables;

BEGIN{ push(@INC,"modules/site");
       push(@INC,"modules/custom");
     }

sub new {
        my ($class) = @_;
        my $self = {_template => undef, _method => undef, _filehandle=>undef};
        bless $self,$class;
        return $self;
}


sub parse {
	#use String::Random;
	#my $ran = new String::Random;
	

	my $returnTPL= "";
        my ($self,$template,$method) = @_;
	$self->{_template} = $template if defined($template);
	$self->{_method} = $method if defined($method);
	#my $filehandle = $ran->randregex('\w\w\w\'); 
	$self->{_filehandle} = "a121";
	
	if(!(-e "templates/$self->{_template}.tpl")) {
		#template does not exists;
		print "Error... No such template exists";
	}
	else {
		#template does exist
		open(tpl,"templates/$self->{_template}.tpl");
			my $x=0;
			while(<tpl>) {
				if($_ =~ /\<\%include/) {
					#We found a template request, now we need to find what it is
	
					if($_ =~ /\<\%include\s?(\w.*)\=[\"\']([a-zA-Z0-9\/].*)[\"\']\%\>/) {
						my $type = $1;
						my $val  = $2;

						if($type =~ /variable/i) {
							my $vars = variables->get();
							$_ =~ s/<\%include\s?(\w.*)\=[\"\']([a-zA-Z0-9].*)[\"\']\%\>/$vars->{$val}/;		
						}
						if($type =~ /template/i) {
							#create a new template instance so this template
							#doesn't get deleted
							
							my $innertpl = new template;
							my $_innertpl = $innertpl->parse($val,"return");

							print $_innertpl;
							#$_ =~ s/<\%include\s?(\w.*)\=[\"\']([a-zA-Z0-9\/].*)[\"\']\%\>/$_innertpl/;
							
						}			
						if($type =~ /menu/i) {
							#query the database for the menu in question
							#Butcher, and fix
							my $menu = "The Menu Items";
							$_ =~ s/<\%include\s?(\w.*)\=[\"\']([a-zA-Z0-9].*)[\"\']\%\>/$menu/;
						}
						if($type =~ /module/i) {
							#Activate the modules include function

							require "$val.pm";
							my $returnedData = $val->includeModule();
							$_ =~ s/<\%include\s?(\w.*)\=[\"\']([a-zA-Z0-9].*)[\"\']\%\>/$returnedData/;
				
						}
					}				
				}
				if($self->{_method} eq "print") {
					print $_;
				}
				if($self->{_method} eq "return") {
					$returnTPL = join("",$returnTPL,$_);
					#print $returnTPL;
				}
			}
		close(tpl);
		
	}

	if($self->{_method} eq "return") {
		return $returnTPL;
	}

}
1;