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

--
---

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;