Merge pull request #851 from rudybrian/add_chunked_http_post_support

Suppress warnings when using lowercase transfer-encoding header
hollie · Sep 18, 2022 · 9eafa47 · 9eafa47
2 parents 61ec940 + 12f7647
commit 9eafa47
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/http_server.pl b/lib/http_server.pl
@@ -400,7 +400,7 @@ 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 =~ /^\{/) {
+        } elsif (($Http{'Transfer-Encoding'} && $HTTP_BODY =~ /^\{/) || ($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");