--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f7635a9a3653a4a0ce47163cce25e1ba6eebd2c1..d12e90eeda99e426eaab5a97ea50264043960cda 100644 (file)
--- 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{''};