Added the LuaSimpleWinHttp library for HTTP(S) client implementation.

.gitmodules

@@ -19,3 +19,9 @@
 [submodule "lib/lua-cjson"]
 	path = lib/lua-cjson
 	url = https://github.com/madmaxoft/lua-cjson
+[submodule "lib/LuaSimpleWinHttp"]
+	path = lib/LuaSimpleWinHttp
+	url = https://github.com/madmaxoft/LuaSimpleWinHttp.git
+[submodule "lib/fmt"]
+	path = lib/fmt
+	url = https://github.com/madmaxoft/fmt

lib/CMakeLists.txt

@@ -11,3 +11,5 @@ add_subdirectory(lzlib)
 add_subdirectory(luasocket)
 add_subdirectory(lsqlite3)
 add_subdirectory(lua-cjson)
+add_subdirectory(fmt)
+add_subdirectory(LuaSimpleWinHttp)

src/CMakeLists.txt

@@ -45,6 +45,7 @@ target_link_libraries(LunaPaak
 	luasocket
 	lsqlite3
 	cjson
+	LuaSimpleWinHttp
 )
 
 
@@ -53,6 +54,7 @@ set(TESTS
 	Sqlite
 	Lfs
 	CJson
+	LuaSimpleWinHttp
 )
 
 

src/LunaPaak.cpp

@@ -11,6 +11,7 @@ extern "C"
 	#include <lualib.h>
 	#include <lauxlib.h>
 	#include <lfs.h>
+	#include <LuaSimpleWinHttp.h>
 
 	// lzlib fwd:
 	extern int luaopen_zlib(lua_State *);
@@ -244,6 +245,8 @@ int main(int argc, char * argv[])
 	lua_pop(L, 1);
 	luaL_requiref(L, "cjson.safe", &luaopen_cjson, false);
 	luaopen_cjson_safe(L);
+	lua_pop(L, 1);
+	luaopen_LuaSimpleWinHttp(L);
 	lua_settop(L, 0);  // Trim off all excess values left over by the reg functions
 
 	// Store the args to the script in a separate "arg" global:

tests/LuaSimpleWinHttp.luna

@@ -0,0 +1,74 @@
+print("LuaSimpleWinHttp test starting")
+
+local lswh = require("LuaSimpleWinHttp")
+
+
+local function tryCustomHeaders()
+	print("Sending a GET request...")
+	local options =
+	{
+		headers =
+		{
+			"Custom-Header: blablabla",
+			"Custom2: bleble",
+		},
+	}
+	local resp, code, status, hdrs = assert(lswh.get("https://github.com", options))
+	print("code = " .. tostring(code))
+	print("status = " .. tostring(status))
+	print("hdrs:")
+	for _, hdr in ipairs(hdrs) do
+		print("  " .. hdr)
+	end
+	print("(done)")
+	print("resp(" .. type(resp) .. "): " .. tostring(resp))
+end
+
+
+
+
+
+local function tryJsonApi()
+	print("Sending a POST(JSON) request...")
+	local json = '{"title":"foo", "body":"bar", "userId":1}'
+	local resp, statusCode, _, hdrs = assert(lswh.post(
+		"https://jsonplaceholder.typicode.com/posts",
+		json,
+		"application/json; charset=UTF-8"
+	))
+	print("API resp: " .. tostring(resp))
+	print("-------")
+	print("hdrs:")
+	for _, hdr in ipairs(hdrs) do
+		print("  " .. hdr)
+	end
+	print("(done)")
+end
+
+
+
+local function tryWebDav()
+	print("Sending a PROPFIND request...")
+	local resp, code, status, hdrs = assert(lswh.request("PROPFIND", "https://www.google.com/calendar/dav", "", ""))
+	print("code = " .. tostring(code))
+	print("status = " .. tostring(status))
+	print("hdrs:")
+	for _, hdr in ipairs(hdrs) do
+		print("  " .. hdr)
+	end
+	print("(done)")
+	print("resp(" .. type(resp) .. "): " .. tostring(resp))
+end
+
+
+
+
+
+tryJsonApi()
+tryWebDav()
+tryCustomHeaders()
+
+
+
+
+print("LuaSimpleWinHttp test finished")