--

diff --git a/perl/Triple.pm b/perl/Triple.pm
index f18122ad2c34b08c7dbbfaf85a2ec32b5a25b1e3..bf3b4a841f8f04155c35e79160b914b5b3214c05 100644 (file)
--- 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}};