From c382b56b846d3def111cd392174a055c5236fe01 Mon Sep 17 00:00:00 2001
From: Emil Williams <emilemilemil@cock.li>
Date: Wed, 14 May 2025 12:53:42 -0600
Subject: [PATCH] --

---
 perl/Triple.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f18122a..bf3b4a8 100644
--- a/perl/Triple.pm
+++ b/perl/Triple.pm
@@ -48,14 +48,23 @@ sub Triple::main {
 
     while($request->Accept() >= 0) {
 
-        $vars->{"ip"}  = $ENV{'REMOTE_ADDR'} || '?',
-        $vars->{"uri"} = $ENV{'REQUEST_URI'} // '/',
+        $vars->{"ip"}       = $ENV{'REMOTE_ADDR'} || '?';
+        $vars->{"uri"}      = $ENV{'REQUEST_URI'} // '/';
+        my $method         = $ENV{'REQUEST_METHOD'} || '';
+        my $content_length = $ENV{'CONTENT_LENGTH'} || 0;
+        my $content_type   = $ENV{'CONTENT_TYPE'} || '';
+
+        my $body = '';
+        if ($method eq 'POST' && $content_length > 0) {
+            read(STDIN, $body, $content_length);
+        }
 
         my $cgi = CGI->new;
 
         print $cgi->header(
             -Content_Type => 'text/html',
             -charset      => 'UTF-8',
+            -status       => '',
             );
 
         my $page = $static{$vars->{uri}};
-- 
2.47.3