--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index d7f7b0bdf0a01f8c9e89e827287290554aed9d81..afae291227d60fdbb3303dfe465c39f3bc2571d1 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -3,7 +3,6 @@ package Triple;
 use strict;
 use warnings;
 
-use Cwd;
 use Sys::Syslog;
 use Data::Dumper;
 
@@ -14,15 +13,25 @@ use Template;
 # Internal
 use Secrets;
 
+sub version {
+    open my $fh, '<', $_[0] or die "Can't open file: $!";
+    my $line = uc(substr(<$fh>, 0, 12));
+    close $fh;
+    return $line;
+}
+
 sub Triple::main() {
-    my $sitename =  getcwd();
-       $sitename =~ s/.*\///;
+    my $sitename;
+    {
+        use Cwd;
+        $sitename =  getcwd();
+        $sitename =~ s/.*\///;
+    }
     my $debug = 1 if $sitename =~ /^test\./;
     openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
 
     my $request = FCGI::Request();
-    my $template;
-    $template = Template->new({INCLUDE_PATH => 'tt'}) or syslog("info", $template->error());
+    my $template = Template->new({INCLUDE_PATH => 'tt'});
 }
 
 1;