--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index afae291227d60fdbb3303dfe465c39f3bc2571d1..990aae0bc64ad3392f2cb8c02fdd9c6e11266aea 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -13,8 +13,10 @@ use Template;
 # Internal
 use Secrets;
 
+our $debug = 0;
+
 sub version {
-    open my $fh, '<', $_[0] or die "Can't open file: $!";
+    open my $fh, '<', "version" or die "Can't open file: $!";
     my $line = uc(substr(<$fh>, 0, 12));
     close $fh;
     return $line;
@@ -27,8 +29,11 @@ sub Triple::main() {
         $sitename =  getcwd();
         $sitename =~ s/.*\///;
     }
-    my $debug = 1 if $sitename =~ /^test\./;
     openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
+    $debug = 1 if $sitename =~ /^test\./;
+    $version = version();
+
+    syslog("info", "Version $version");
 
     my $request = FCGI::Request();
     my $template = Template->new({INCLUDE_PATH => 'tt'});