implement region lookup

src/tests/test01.vtc

@@ -10,13 +10,15 @@ varnish v1 -vcl+backend {
 
 	sub vcl_recv {
 		set req.http.X-GeoIP = geoip.country("127.0.0.1");
+		set req.http.X-Location = geoip.region("127.0.0.1");
 	}
 } -start
 
 client c1 {
 	txreq -url "/"
 	rxresp
 	expect req.http.X-GeoIP == "Unknown"
+	expect req.http.X-Location == "Unknown"
 }
 
 client c1 -run

src/vmod_geoip.c

@@ -25,6 +25,7 @@
 //  `----
 
 static const char *unknownCountry= "AA";
+static const char *unknownRegion= "Unknown";
 
 int
 init_function(struct vmod_priv *priv, const struct VCL_conf *conf)
@@ -53,3 +54,29 @@ vmod_country(struct sess *sp, const char *ip)
     }
     return(cp);
 }
+
+const char *
+vmod_region(struct sess *sp, const char *ip)
+{
+    GeoIPRegion *gir;
+    const char *region;
+    GeoIP *gi = NULL;
+
+    gi = GeoIP_new(GEOIP_STANDARD);
+    if (gi) {
+      gir =   GeoIP_region_by_addr(gi, ip);
+    }
+    if (!gir) {
+      region = unknownRegion;
+    }
+    region = WS_Dup(sp->wrk->ws, gir->region);
+
+    if (gi) {
+      GeoIP_delete(gi);
+    }
+    if ( gir) {
+			GeoIPRegion_delete(gir);
+		}
+    return(region);
+
+}

src/vmod_geoip.vcc

@@ -1,3 +1,4 @@
 Module geoip
 Init init_function
 Function STRING country(STRING)
+Function STRING region(STRING)