--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 66d15073250768d12a29adde69ab2195a36449cd..b84958d66763204be147252002f65f58d2308cc3 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -16,9 +16,12 @@ use Secrets;
 
 sub Triple::main() {
     my $sitename =  getcwd();
-    $sitename =~ s/.*\///;
+       $sitename =~ s/.*\///;
     my $debug = 1 if $sitename =~ /^test\./;
     openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
+
+    my $request = FCGI::Request();
+    my $template = Template->new({INCLUDE_PATH => $include}) or syslog("info", $template->error());
 }
 
 1;