From: Emil Williams Date: Thu, 8 May 2025 03:39:32 +0000 (-0600) Subject: -- X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=956973950a1a49f7e8d275f46d2c6c88ecd0e294;p=emil-3chen.org.git -- --- 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; }