From 5e46ef1d28c48b6727f15dc90c6633c001b18f37 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Sat, 10 May 2025 22:25:09 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f7635a9..d12e90e 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -45,8 +45,10 @@ sub Triple::main {
         my $cgi = CGI->new;
 
         my $vars = {
-            ip  => $ENV{'REMOTE_ADDR'} || '?',
-            uri => $ENV{'REQUEST_URI'} // '/',
+            sitename => $sitename,
+            version  => $version,
+            ip       => $ENV{'REMOTE_ADDR'} || '?',
+            uri      => $ENV{'REQUEST_URI'} // '/',
         };
 
         print $cgi->header(
@@ -59,6 +61,8 @@ sub Triple::main {
             my $dynamic = $page{$vars->{uri}};
             if ($dynamic) {
                 my @set = @{$dynamic};
+                $vars->{"title"} = "$set[PAGE_TITLE]";
+                $vars->{"description"} = "$set[PAGE_DESCRIPTION]";
                 $page = "dynamic $set[PAGE_TYPE], no?";
             } else {
                 $page = %static{''};
-- 
2.39.5