cache_fetch: Send Content-Length: 0 for POST, PUT and PATCH

otherwise keep the existing logic of sending no Content-Length header if there
is no request body.

This code runs before vcl_backend_fetch, so should VCL gain back control over
Content-Length as proposed in #4331, it will be possible again to override this
default.

Fixes #4331 for the special case

Author: nigoroll

bin/varnishd/cache/cache_fetch.c

@@ -411,8 +411,15 @@ vbf_stp_startfetch(struct worker *wrk, struct busyobj *bo)
 
 	http_PrintfHeader(bo->bereq, "X-Varnish: %ju", VXID(bo->vsl->wid));
 
-	if (bo->bereq_body == NULL && bo->req == NULL)
-		http_Unset(bo->bereq, H_Content_Length);
+	if (bo->bereq_body == NULL && bo->req == NULL) {
+		const char *met = http_GetMethod(bo->bereq);
+		if (http_method_eq(met, POST) ||
+		    http_method_eq(met, PUT) ||
+		    http_method_eq(met, PATCH))
+			http_ForceHeader(bo->bereq, H_Content_Length, "0");
+		else
+			http_Unset(bo->bereq, H_Content_Length);
+	}
 
 	VCL_backend_fetch_method(bo->vcl, wrk, NULL, bo, NULL);
 

bin/varnishtest/tests/r04331.vtc

@@ -0,0 +1,18 @@
+varnishtest "C-L with empty POST"
+
+server s1 {
+	rxreq
+	txresp
+	expect req.http.content-length == 0
+} -start
+
+varnish v1 -vcl+backend {
+
+} -start
+
+client c1 {
+	txreq -method POST -hdr "content-length: 0"
+	rxresp
+} -run
+
+server s1 -wait