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

--
---

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 1fc5012..3425ed4 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -15,6 +15,25 @@ use Secrets;
 
 our $debug = 0;
 
+sub Triple::main {
+    my ($sitename, $version) = init();
+    my $request = FCGI::Request();
+    my $template = Template->new({INCLUDE_PATH => 'tt'});
+}
+
+sub sitename {
+    use Cwd;
+    $sitename =  getcwd();
+    $sitename =~ s/.*\///;
+    return $sitename;
+}
+
+sub debug {
+    $sitename = $_[0];
+    openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
+    $debug = 1 if $sitename =~ /^test\./;
+}
+
 sub version {
     open my $fh, '<', "version" or die "Can't open file: $!";
     my $line = uc(substr(<$fh>, 0, 12));
@@ -22,22 +41,12 @@ sub version {
     return $line;
 }
 
-sub Triple::main() {
-    my $sitename;
-    {
-        use Cwd;
-        $sitename =  getcwd();
-        $sitename =~ s/.*\///;
-    }
-    openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
-    $debug = 1 if $sitename =~ /^test\./;
-
+sub init {
+    my $sitename = sitename();
+    debug($sitename);
     my $version = version();
-
     syslog("info", "Version $version");
-
-    my $request = FCGI::Request();
-    my $template = Template->new({INCLUDE_PATH => 'tt'});
+    return $sitename, $version;
 }
 
 1;