--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 032a986f7b496acb5313fae43cdc99082b08b604..c1bf2ffa716af3061e229991100492cace0579cf 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -26,10 +26,10 @@ use constant {
 };
 
 our %page = (
-    ''      => [ STATIC_PAGE,  '404',   '404 Not Found', '404 Not Found'            ],
-    '/'     => [ STATIC_PAGE,  'index', 'Chendex',       'Forum Index'              ],
-    '/c/'   => [ DYNAMIC_PAGE, 'img',   'Chen',          'Chen Technology'          ],
-    '/sys/' => [ DYNAMIC_PAGE, 'img',   'System',        'Site Info'                ],
+    ''      => [ STATIC_PAGE,  '404',   '404 Not Found',   '404 Not Found'            ],
+    '/'     => [ STATIC_PAGE,  'index', 'Chendex',         'Forum Index'              ],
+    '/c/'   => [ DYNAMIC_PAGE, 'img',   '/c/ - Chen Tech', 'Chen Tech'                ],
+    '/sys/' => [ DYNAMIC_PAGE, 'img',   'System',          'Site Info'                ],
     );
 
 our %static;
@@ -41,15 +41,17 @@ sub Triple::main {
     my ($sitename, $version) = init();
     my $request = FCGI::Request();
 
+    my $vars = {
+        sitename => $sitename,
+        version  => $version,
+    };
+
     while($request->Accept() >= 0) {
-        my $cgi = CGI->new;
 
-        my $vars = {
-            sitename => $sitename,
-            version  => $version,
-            ip       => $ENV{'REMOTE_ADDR'} || '?',
-            uri      => $ENV{'REQUEST_URI'} // '/',
-        };
+        vars->{"ip"}  = $ENV{'REMOTE_ADDR'} || '?',
+        vars->{"uri"} = $ENV{'REQUEST_URI'} // '/',
+
+        my $cgi = CGI->new;
 
         print $cgi->header(
             -Content_Type => 'text/html',
@@ -75,6 +77,7 @@ sub Triple::main {
 sub preinit {
 
     sub sitename {
+
         use Cwd;
         my $cwd = getcwd();
         $cwd =~ s/.*\///;
@@ -82,12 +85,14 @@ sub preinit {
     }
 
     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;
@@ -104,6 +109,7 @@ sub preinit {
 sub init {
 
     sub init_static {
+
         my ($sitename, $version) = @_;
         my @boards = (
             '/c/',
@@ -116,6 +122,7 @@ sub init {
             version      => $version,
         };
         foreach my $key (keys %page) {
+
             my @set = @{$page{$key}};
             next if $set[PAGE_TYPE] != STATIC_PAGE;
             syslog("info", "Marking Static '$key'");