HTTP now automatically encodes jsonvalue content

luprex/core/cpp/world-accessor.cpp

@@ -654,9 +654,7 @@ LuaDefine(doc, "function",
     return LS.result();
 }
 
-LuaDefine(http_get, "request",
-    "|Make an HTTP GET request.  Returns an HTTP response."
-    "|See doc(http.clientrequest) and doc(http.clientresponse).") {
+int lfn_http_request(lua_State *L, const char *method) {
     World *w = World::fetch_global_pointer(L);
     w->guard_blockable(L, "http.get");
 
@@ -667,7 +665,7 @@ LuaDefine(http_get, "request",
     
     // Parse the request and make sure it's valid.
     // If not, immediately pass a '400 bad request' back to lua.
-    req.set_method("GET");
+    req.set_method(method);
     req.set_config(LS, request);
     req.set_defaults();
     eng::string error = req.check();
@@ -686,4 +684,22 @@ LuaDefine(http_get, "request",
 
     // Block.
     return lua_yield(L, 0);
-}
+}
+
+LuaDefine(http_get, "request",
+    "|Make an HTTP GET request.  Returns an HTTP response."
+    "|See doc(http.clientrequest) and doc(http.clientresponse).") {
+    return lfn_http_request(L, "GET");
+}
+
+LuaDefine(http_head, "request",
+    "|Make an HTTP HEAD request.  Returns an HTTP response."
+    "|See doc(http.clientrequest) and doc(http.clientresponse).") {
+    return lfn_http_request(L, "HEAD");
+}
+
+LuaDefine(http_post, "request",
+    "|Make an HTTP POST request.  Returns an HTTP response."
+    "|See doc(http.clientrequest) and doc(http.clientresponse).") {
+    return lfn_http_request(L, "POST");
+}