--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 8532ebea3e68b77d74759916888976dbbd29b81a..606c737345e5768e37929315ff1111df4f9502e1 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -22,7 +22,7 @@ use constant {
 
 our %page = (
     ''      => [ STATIC_PAGE,  '404',   '404 Not Found', '404 Not Found'            ],
-    '/'     => [ STATIC_PAGE,  'index', 'Chendex',         'Forum Index'              ],
+    '/'     => [ STATIC_PAGE,  'index', 'Chendex',         'Forum Index'            ],
     '/+/'   => [ DYNAMIC_PAGE, 'img',   '+',             'General Discussion Board' ],
     '/sys/' => [ DYNAMIC_PAGE, 'img',   'System',        'Site Info'                ],
     );
@@ -40,16 +40,21 @@ sub Triple::main {
         my $cgi = CGI->new;
 
         my $vars = {
-
+            ip  => $ENV{'REMOTE_ADDR'} || '?',
+            uri => $ENV{'REQUEST_URI'} // '/',
         };
 
-        my $path = $ENV{'REQUEST_URI'} // '/';
-
         print $cgi->header(
             -Content_Type => 'text/html',
             -charset      => 'UTF-8',
             );
-        print %static{$path} // %static{''};
+
+        $page = %static{$vars->{uri}};
+        if (not $page) {
+
+            $page = %static{''};
+        }
+        print $page;
     }
 }