From 5f3aeac02a7fd6cdc3f5cbc3deadde9ef38c4719 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 7 May 2025 21:25:20 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 6d6f188..03ffd25 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -81,22 +81,27 @@ sub preinit {
 sub init {
 
     sub init_static {
+        my ($sitename, $version) = @_;
         my $vars = {
-            banana => 'sand',
+            # boards       => \@Triple::boards,
+            # titles       => \%Triple::titles,
+            # descriptions => \%Triple::descriptions,
+            sitename     => $sitename,
+            version      => $version,
         };
         foreach my $key (keys %page) {
             my @set = @{$page{$key}};
             next if $set[0] != STATIC_PAGE;
             syslog("info", "Marking Static '$key'");
-            local $_;
-            $template->process($set[1], $vars, \$_) or syslog("info", $template->error());
-            $static{$key} = $_;
+            my $temporary;
+            $template->process($set[1], $vars, \$temporary) or syslog("info", $template->error());
+            $static{$key} = $temporary;
         }
     }
 
     my ($sitename, $version) = preinit();
 
-    init_static();
+    init_static($sitename, $version);
     return $sitename, $version;
 }
 
-- 
2.39.5