From 9c53cc4b7a6532ead5a56af0fdb6c2868272cfa8 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Fri, 16 May 2025 16:39:42 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index ce0be25..f4adf61 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -52,16 +52,17 @@ sub Triple::main { my ($sitename, $version) = init(); my $request = FCGI::Request(); - our $vars = { - sitename => $sitename, - version => $version, - }; - my @posts = ( ("Baba", 1), ("shiet", 2), ); + our $vars = { + sitename => $sitename, + version => $version, + posts => \@posts, + }; + while($request->Accept() >= 0) { my $cgi = CGI->new; -- 2.39.5