Cache POST requests

post.vtc

varnishtest "Cache POSTs"
 
server s1 {
	rxreq
	txresp -body "resp_body"
	expect req.url == "/"
	expect req.method == "POST"
	expect req.bodylen == 14
} -start

varnish v1 -vcl+backend {
	import std;
	import bodyaccess;

	sub vcl_recv {
		std.cache_req_body(1KB);
		set req.http.X-len = bodyaccess.len_req_body();
		if (req.method == "POST") {
			set req.http.X-method = req.method;
			return(hash);
		}
	}

	sub vcl_backend_fetch {
		if (bereq.http.X-method) {
			set bereq.method = bereq.http.X-method;
		}
	}

	sub vcl_hash {
		bodyaccess.hash_req_body();
	}

	sub vcl_deliver {
		set resp.http.X-len = req.http.X-len;
		set resp.http.X-hits = obj.hits;
	}
} -start
 
client c1 {
	txreq -req "POST" -url "/" -body "post_body_here"
	rxresp
	expect resp.status == 200
	expect resp.body == "resp_body"
	expect resp.http.X-len == 14
	expect resp.http.X-hits == 0

	txreq -req "POST" -url "/" -body "post_body_here"
	rxresp
	expect resp.status == 200
	expect resp.body == "resp_body"
	expect resp.http.X-len == 14
	expect resp.http.X-hits == 1
} -run