Suppress warning with chunked JSON

Content-Type is not set when using Transfer-Encoding, so suppress the warning about an invalid argument string.
hollie · Jul 28, 2020 · 403f6db · 403f6db
1 parent 8938a87
commit 403f6db
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/http_server.pl b/lib/http_server.pl
@@ -400,6 +400,8 @@ sub http_process_request {
     #
         } elsif ($Http{'Content-Type'} =~ m%^application/(json|x-www-form-urlencoded)%i && $HTTP_BODY =~ /^\{/) {
              print "[http_server.pl]: posting json data\n" if $main::Debug{http};
+        } elsif ($Http{'Transfer-Encoding'} && $HTTP_BODY =~ /^\{/) {
+             print "[http_server.pl]: posting chunked json data\n" if $main::Debug{http};
         } else {
             &main::print_log("[http_server.pl]: Warning, invalid argument string detected ($buf) ($Http{'Content-Type'}) ($HTTP_BODY)\n");
         }