--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 6ccd822930184ec66e67460f877ae8b0dfa21f9d..2199a7d4f49f20496cf2a2e4ee6b1110907ef468 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -20,22 +20,35 @@ use constant {
     DYNAMIC_PAGE => 0,
 };
 
-our %pages = (
+our %page = (
+    ''      => [ STATIC_PAGE, '404'   ],
     '/'     => [ STATIC_PAGE, 'index' ],
-    '/+/'   => [ DYNAMIC_PAGE, 'img' ],       # General Board; primary general discussion
-    '/sys/' => [ DYNAMIC_PAGE, 'img' ],       # Admin Board; Administration info, Q&A, & Changelog
+    '/+/'   => [ DYNAMIC_PAGE, 'img'  ],       # General Board: General Discussion
+    '/sys/' => [ DYNAMIC_PAGE, 'img'  ],       #   Admin Board: Administration info, Q&A, & Changelog
     );
 
+our %static;
+
+our $template = Template->new({INCLUDE_PATH => 'tt'});
+
+sub init_static {
+    foreach (my ($path, @datum) = each %page) {
+        last if $datum[0] == DYNAMIC_PAGE;
+        syslog("info", "Marking Static $path");
+        $template->process($datum[1], $vars, \$_) or syslog("info", $template->error());
+        $static{$path} = $_;
+    }
+}
+
 sub Triple::main {
-    my ($sitename, $version) = init();
+    my ($sitename, $version) = preinit();
     my $request = FCGI::Request();
-    my $template = Template->new({INCLUDE_PATH => 'tt'});
     while($request->Accept() >= 0) {
         my $cgi = CGI->new;
     }
 }
 
-sub init {
+sub preinit {
 
     sub sitename {
         use Cwd;