From 956973950a1a49f7e8d275f46d2c6c88ecd0e294 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Wed, 7 May 2025 21:39:32 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index 2d2c682..e2a6bc1 100644 --- 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; } -- 2.47.3