From ebcdf793f932c98fbf8c7f7d59a16827e875daa6 Mon Sep 17 00:00:00 2001 From: Emil Williams Date: Wed, 14 May 2025 13:46:22 -0600 Subject: [PATCH] -- --- perl/Triple.pm | 4 ++-- tt/img | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/perl/Triple.pm b/perl/Triple.pm index 0213302..5b334b0 100644 --- a/perl/Triple.pm +++ b/perl/Triple.pm @@ -48,6 +48,8 @@ sub Triple::main { while($request->Accept() >= 0) { + my $cgi = CGI->new; + $vars->{"ip"} = $ENV{'REMOTE_ADDR'} || '?'; $vars->{"uri"} = $ENV{'REQUEST_URI'} // '/'; my $method = $ENV{'REQUEST_METHOD'} || ''; @@ -65,8 +67,6 @@ sub Triple::main { $location = $vars->{"uri"}; } - my $cgi = CGI->new; - print $cgi->header( -Content_Type => 'text/html', -charset => 'UTF-8', diff --git a/tt/img b/tt/img index befcf08..d185da0 100644 --- a/tt/img +++ b/tt/img @@ -9,6 +9,7 @@
[% uri %] - [% description %]
+ +
Name @@ -34,6 +35,7 @@
[% FOREACH thread IN threads %] -- 2.47.3