--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 24c5c560e4b9886b2016711f93208237ba246e1f..306607cf6ad1f64d65527907052317193a60a77c 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -15,33 +15,48 @@ use Secrets;
 
 our $debug = 0;
 
+use constant {
+    STATIC_PAGE => 1,
+    DYNAMIC_PAGE => 0,
+};
+
+our %pages = (
+    '/'     => (STATIC_PAGE, 'index'),
+    '/+/'   => (DYNAMIC_PAGE, 'img'),       # General Board; primary general discussion
+    '/sys/' => (DYNAMIC_PAGE, 'img'),       # Admin Board; Administration info, Q&A, & Changelog
+    );
+
 sub Triple::main {
     my ($sitename, $version) = init();
     my $request = FCGI::Request();
     my $template = Template->new({INCLUDE_PATH => 'tt'});
+    while($request->Accept() >= 0) {
+        my $cgi = CGI->new;
+    }
 }
 
-sub sitename {
-    use Cwd;
-    my $sitename =  getcwd();
-       $sitename =~ s/.*\///;
-    return $sitename;
-}
+sub init {
 
-sub debug {
-    my $sitename = $_[0];
-    openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
-    $debug = 1 if $sitename =~ /^test\./;
-}
+    sub sitename {
+        use Cwd;
+        my $sitename =  getcwd();
+        $sitename =~ s/.*\///;
+        return $sitename;
+    }
 
-sub version {
-    open my $fh, '<', "version" or die "Can't open file: $!";
-    my $line = uc(substr(<$fh>, 0, 12));
-    close $fh;
-    return $line;
-}
+    sub debug {
+        my $sitename = $_[0];
+        openlog($sitename, "ndelay,pid", Sys::Syslog::LOG_DAEMON);
+        $debug = 1 if $sitename =~ /^test\./;
+    }
+
+    sub version {
+        open my $fh, '<', "version" or die "Can't open file: $!";
+        my $line = uc(substr(<$fh>, 0, 12));
+        close $fh;
+        return $line;
+    }
 
-sub init {
     my $sitename = sitename();
     debug($sitename);
     my $version = version();