--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index c88826d650ff989e4994f39d47f33d014c922b48..bc87554075f5b6c27e824d6dfc726601e8be9644 100644 (file)
--- 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;