From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 21 May 2025 00:35:13 +0000 (-0600)
Subject: --
X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=5527504cb10de71e55d677a16df746ca256c173d;p=emil-3chen.org.git

--
---

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f881a48..527d7c8 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -51,7 +51,7 @@ sub Triple::main {
         return %form;
     }
 
-    my ($sitename, $version) = init();
+    my ($sitename, $version) = Triple::Init::init();
     my $request = FCGI::Request();
     my $template = Template->new({INCLUDE_PATH => 'tt'});
 
@@ -167,13 +167,4 @@ sub Triple::main {
     }
 }
 
-sub init {
-    my $sitename = Triple::Init::sitename();
-    Triple::Init::debug($sitename);
-    my $version = Triple::Init::version();
-    syslog("info", "<Triple $version>");
-    Triple::Init::static($sitename, $version);
-    return $sitename, $version;
-}
-
 1;
diff --git a/perl/Triple/Init.pm b/perl/Triple/Init.pm
index 0afe1a3..a792509 100644
--- a/perl/Triple/Init.pm
+++ b/perl/Triple/Init.pm
@@ -1,5 +1,14 @@
 package Triple::Init;
 
+sub init {
+    my $sitename = sitename();
+    debug($sitename);
+    my $version = version();
+    syslog("info", "<Triple $version>");
+    static($sitename, $version);
+    return $sitename, $version;
+}
+
 sub sitename {
 
     use Cwd;