#!/usr/bin/perl

use warnings;
use strict;
use HTML::Template::Compiled;
use File::Find;

print STDERR "Pre-loading HTML Templates...\n";

my $cache_dir = '/var/htc_cache';
my $htc = HTML::Template::Compiled->new(
	path			=> '/srv/www/tuxen/templates',
	file_cache		=> 1,
	file_cache_dir	=> $cache_dir,
	
);

my $count_templates = $htc->preload($cache_dir);

print STDERR "$count_templates successfull loaded\n";

1;