Add the VDP, passes intial tests with cat, /bin/true and /bin/false.

README.rst

@@ -49,7 +49,15 @@ DESCRIPTION
 .. _Varnish: http://www.varnish-cache.org/
 
 The pipe library provides `Varnish`_ delivery and fetch processors
-that pipe client and backend responses through external commands.
+(VDPs and VFPs) that pipe client and backend responses through
+external commands.
+
+XXX ...
+
+.. _pipe.vdp():
+
+new xvdp = pipe.vdp(STRING name, STRING path)
+---------------------------------------------
 
 XXX ...
 

src/tests/vdp.vtc

+# looks like -*- vcl -*-
+
+varnishtest "vdp object"
+
+server s1 {
+	rxreq
+	txresp -body {foo bar baz quux}
+} -start
+
+varnish v1 -vcl+backend {
+	import ${vmod_pipe};
+
+	sub vcl_init {
+		new cat = pipe.vdp(name="cat", path="/bin/cat");
+		new t = pipe.vdp(name="true", path="/bin/true");
+		new f = pipe.vdp(name="false", path="/bin/false");
+	}
+
+	sub vcl_deliver {
+		set resp.filters = req.http.X-Filters;
+	}
+} -start
+
+client c1 {
+	txreq -hdr "X-Filters: cat"
+	rxresp
+	expect resp.status == 200
+	expect resp.body == "foo bar baz quux"
+
+	txreq -hdr "X-Filters: cat true"
+	rxresp
+	expect resp.status == 200
+	expect resp.body == ""
+
+	# Only read response headers, the body may fail.
+	txreq -hdr "X-Filters: cat false"
+	rxresp -no_obj
+	expect resp.status == 200
+} -run
+
+logexpect l1 -v v1 -g vxid -d 1 -q {Notice ~ "^vdfp_pipe: vdp cat:"} {
+	expect 0 * Begin  {^req \d+ rxreq$}
+	expect * = Notice {^vdfp_pipe: vdp cat: exec'd /bin/cat as pid \d+$}
+	expect * = Notice {^vdfp_pipe: vdp cat: /bin/cat exited with status 0$}
+	expect * = End
+
+	expect 0 * Begin  {^req \d+ rxreq$}
+	expect * = Notice {^vdfp_pipe: vdp cat: exec'd /bin/cat as pid \d+$}
+	expect * = Notice {^vdfp_pipe: vdp cat: /bin/cat exited with status 0$}
+	expect * = End
+
+	expect 0 * Begin  {^req \d+ rxreq$}
+	expect * = Notice {^vdfp_pipe: vdp cat: exec'd /bin/cat as pid \d+$}
+	expect * = Notice {^vdfp_pipe: vdp cat: /bin/cat exited with status 0$}
+	expect * = End
+} -run
+
+logexpect l1 -v v1 -g vxid -d 1 -q {Notice ~ "^vdfp_pipe: vdp t:"} {
+	expect 0 * Begin  {^req \d+ rxreq$}
+	expect * = Notice {^vdfp_pipe: vdp t: exec'd /bin/true as pid \d+$}
+	expect * = Notice {^vdfp_pipe: vdp t: /bin/true exited with status 0$}
+	expect * = End
+} -run
+
+logexpect l1 -v v1 -g vxid -d 1 -q {Error ~ "^vdfp_pipe: vdp f:" or Notice ~ "^vdfp_pipe: vdp f"} {
+	expect 0 * Begin  {^req \d+ rxreq$}
+	expect * = Notice {^vdfp_pipe: vdp f: exec'd /bin/false as pid \d+$}
+	expect * = Error  {^vdfp_pipe: vdp f: /bin/false exited with status \d+$}
+	expect * = End
+} -run

src/vdfp_pipe.vcc

@@ -45,7 +45,12 @@ DESCRIPTION
 .. _Varnish: http://www.varnish-cache.org/
 
 The pipe library provides `Varnish`_ delivery and fetch processors
-that pipe client and backend responses through external commands.
+(VDPs and VFPs) that pipe client and backend responses through
+external commands.
+
+XXX ...
+
+$Object vdp(STRING name, STRING path)
 
 XXX ...