From 392044c6f736cda815ce6e27de0879033607e77e Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 11:58:40 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index afae291..990aae0 100644
--- 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'});
-- 
2.47.3