--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index 2d2c682e8af1918a8c4119de2bc41248f17c0808..e2a6bc1dec31e233aaa6e7afa5d198bf3ef57b4a 100644 (file)
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -32,6 +32,7 @@ our %static;
 our $template = Template->new({INCLUDE_PATH => 'tt'});
 
 sub Triple::main {
+
     my ($sitename, $version) = init();
     my $request = FCGI::Request();
 
@@ -40,6 +41,8 @@ sub Triple::main {
 
         my $path = $ENV{'REQUEST_URI'} // '/';
 
+        exit;
+
         print $cgi->header(
             -Content_Type => 'text/html',
             -charset      => 'UTF-8',
@@ -86,10 +89,10 @@ sub init {
             # boards       => \@Triple::boards,
             # titles       => \%Triple::titles,
             # descriptions => \%Triple::descriptions,
-            # sitename     => $sitename,
-            # version      => $version,
-            # uri          => '',
-            # description  => '',
+            sitename     => $sitename,
+            version      => $version,
+            uri          => '',
+            description  => '',
         };
         foreach my $key (keys %page) {
             my @set = @{$page{$key}};
@@ -105,7 +108,6 @@ sub init {
     my ($sitename, $version) = preinit();
 
     init_static($sitename, $version);
-    exit;
     return $sitename, $version;
 }