Add VCL function for getting HTTP header

git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@200 d4fa192b-c00b-0410-8231-f00ffab90ce4

diff --git a/varnish-cache/bin/varnishd/cache_vcl.c b/varnish-cache/bin/varnishd/cache_vcl.c
index 0fdca8e07c80207cfcfca22af67b30b037bc858c..8d96b534bb8834acd492bd979e38350aa08905d1 100644 (file)
--- a/varnish-cache/bin/varnishd/cache_vcl.c
+++ b/varnish-cache/bin/varnishd/cache_vcl.c
@@ -259,3 +259,17 @@ VCL_method(recv,  HND_Error|HND_Pass|HND_Pipe|HND_Lookup)
 VCL_method(miss,  HND_Error|HND_Pass|HND_Pipe|HND_Fetch)
 VCL_method(hit,          HND_Error|HND_Pass|HND_Pipe|HND_Deliver)
 VCL_method(fetch, HND_Error|HND_Pass|HND_Pipe|HND_Insert)
+
+/*--------------------------------------------------------------------*/
+
+char *
+VCL_GetHdr(VCL_FARGS, const char *n)
+{
+       char *p;
+
+       assert(sess != NULL);
+       assert(sess->http != NULL);
+       if (!http_GetHdr(sess->http, n, &p))
+               return (NULL);
+       return (p);
+}