From c63b713536304cf5a9457fafdf8566afbc60aa5c Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 7 May 2025 22:19:37 -0600
Subject: [PATCH] --

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

diff --git a/perl/Triple.pm b/perl/Triple.pm
index c88826d..bc87554 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -39,13 +39,16 @@ sub Triple::main {
     while($request->Accept() >= 0) {
         my $cgi = CGI->new;
 
+        my $vars = {
+
+        };
+
         my $path = $ENV{'REQUEST_URI'} // '/';
 
         print $cgi->header(
             -Content_Type => 'text/html',
             -charset      => 'UTF-8',
             );
-
         print %static{$path} // %static{''};
     }
 }
@@ -92,13 +95,13 @@ sub init {
             page         => \%Triple::page,
             sitename     => $sitename,
             version      => $version,
-            description  => '',
         };
         foreach my $key (keys %page) {
             my @set = @{$page{$key}};
             next if $set[0] != STATIC_PAGE;
             syslog("info", "Marking Static '$key'");
             $vars->{"uri"} = "$key";
+            $vars->{"description"} = "$set[3]";
             my $temporary;
             $template->process($set[1], $vars, \$temporary) or syslog("info", $template->error());
             $static{$key} = $temporary;
-- 
2.47.3