[master] 5aa97f1 add std.strstr

[Per Buer]

commit 5aa97f16f416019f25a591902c4e704c4ff1d372
Author: Per Buer <perbu at varnish-software.com>
Date:   Sat Sep 20 17:57:18 2014 +0200

    add std.strstr

diff --git a/bin/varnishtest/tests/m00018.vtc b/bin/varnishtest/tests/m00018.vtc
new file mode 100644
index 0000000..b51ed18
--- /dev/null
+++ b/bin/varnishtest/tests/m00018.vtc
@@ -0,0 +1,34 @@
+varnishtest "Test substring matching in std"
+
+server s1 {
+       rxreq
+       txresp
+
+       rxreq
+       txresp
+} -start
+
+varnish v1 -vcl+backend {
+	import ${vmod_std};
+
+	sub vcl_deliver {
+	    if (std.strstr(req.url, "foo")) {
+		set resp.http.sub = "found";	
+	    } else {
+		set resp.http.sub = "not found";	
+	    }
+		
+	}
+} -start
+
+client c1 {
+	txreq -url "/foobar"
+	rxresp
+	expect resp.http.sub == "found"
+
+
+	txreq -url "/quux"
+	rxresp
+	expect resp.http.sub == "not found"
+} -run
+
diff --git a/lib/libvmod_std/vmod.vcc b/lib/libvmod_std/vmod.vcc
index fbc082b..455485a 100644
--- a/lib/libvmod_std/vmod.vcc
+++ b/lib/libvmod_std/vmod.vcc
@@ -195,7 +195,6 @@ $Function STRING querysort(STRING)
 
 Description
         Sorts the querystring for cache normalization purposes.
-
 Example
         set req.url = std.querysort(req.url);
 
@@ -208,6 +207,17 @@ Example
 
        This will cache the req.body if its size is smaller than 1KB.
 
+$Function STRING strstr(STRING, STRING)
+
+Description
+	Returns true if the second string is a substring of the first
+	string. Note that the comparison is case sensitive. You can
+	use the tolower function on both strings if you want case
+	insensitivity.
+Example
+	if (std.strstr(req.url, req.http.x-restrict)) 
+
+
 
 SEE ALSO
 ========
diff --git a/lib/libvmod_std/vmod_std.c b/lib/libvmod_std/vmod_std.c
index 8872a1c..898e8dd 100644
--- a/lib/libvmod_std/vmod_std.c
+++ b/lib/libvmod_std/vmod_std.c
@@ -239,3 +239,14 @@ vmod_cache_req_body(const struct vrt_ctx *ctx, VCL_BYTES size)
 	result = VRT_CacheReqBody(ctx, size);
 	VSLb(ctx->vsl, SLT_Debug,"VRT_CacheReqBody(%zu): %d", (size_t)size, result);
 }
+
+VCL_STRING __match_proto__(td_std_strstr)
+vmod_strstr(const struct vrt_ctx *ctx, VCL_STRING mstr, VCL_STRING msubstr)
+{
+        
+        CHECK_OBJ_NOTNULL(ctx, VRT_CTX_MAGIC);
+        char *match =  strstr(mstr, msubstr);
+
+	return(match);
+}
+