From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 17:58:40 +0000 (-0600)
Subject: --
X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=392044c6f736cda815ce6e27de0879033607e77e;p=emil-3chen.org.git

--
---

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'});