From 7a1de67eab114bd2b7a0cb2c2519e49324e76971 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 11:56:35 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index d7f7b0b..afae291 100644
--- 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;
-- 
2.47.3