From 1efcdc47f69c4f5bd9ac54a6fe53b21019bd2253 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Tue, 6 May 2025 12:32:25 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 6ccd822..2199a7d 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -20,22 +20,35 @@ use constant {
     DYNAMIC_PAGE => 0,
 };
 
-our %pages = (
+our %page = (
+    ''      => [ STATIC_PAGE, '404'   ],
     '/'     => [ STATIC_PAGE, 'index' ],
-    '/+/'   => [ DYNAMIC_PAGE, 'img' ],       # General Board; primary general discussion
-    '/sys/' => [ DYNAMIC_PAGE, 'img' ],       # Admin Board; Administration info, Q&A, & Changelog
+    '/+/'   => [ DYNAMIC_PAGE, 'img'  ],       # General Board: General Discussion
+    '/sys/' => [ DYNAMIC_PAGE, 'img'  ],       #   Admin Board: Administration info, Q&A, & Changelog
     );
 
+our %static;
+
+our $template = Template->new({INCLUDE_PATH => 'tt'});
+
+sub init_static {
+    foreach (my ($path, @datum) = each %page) {
+        last if $datum[0] == DYNAMIC_PAGE;
+        syslog("info", "Marking Static $path");
+        $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
+        $static{$path} = $_;
+    }
+}
+
 sub Triple::main {
-    my ($sitename, $version) = init();
+    my ($sitename, $version) = preinit();
     my $request = FCGI::Request();
-    my $template = Template->new({INCLUDE_PATH => 'tt'});
     while($request->Accept() >= 0) {
         my $cgi = CGI->new;
     }
 }
 
-sub init {
+sub preinit {
 
     sub sitename {
         use Cwd;
-- 
2.47.3