Function cliLuaHttp

Source/Basic/Application.cpp:328–385

}

int cliLuaHttp(lua_State* L) {
	auto method = cliGetString(L, 1);
	auto url = cliGetString(L, 2);
	std::vector<std::string> names;
	std::vector<std::string> values;
	if (lua_istable(L, 3)) {
		lua_pushnil(L);
		while (lua_next(L, 3) != 0) {
			size_t keyLen = 0;
			size_t valueLen = 0;
			auto key = luaL_tolstring(L, -2, &keyLen);
			auto value = luaL_tolstring(L, -2, &valueLen);
			names.emplace_back(key, keyLen);
			values.emplace_back(value, valueLen);
			lua_pop(L, 3);
		}
	}
	size_t bodyLen = 0;
	auto body = lua_gettop(L) >= 4 && !lua_isnil(L, 4) ? luaL_checklstring(L, 4, &bodyLen) : nullptr;
	auto timeout = lua_gettop(L) >= 5 && !lua_isnil(L, 5) ? luaL_checknumber(L, 5) : 10.0;
	std::vector<const char*> headerNames;
	std::vector<const char*> headerValues;
	headerNames.reserve(names.size());
	headerValues.reserve(values.size());
	for (const auto& name : names) headerNames.push_back(name.c_str());
	for (const auto& value : values) headerValues.push_back(value.c_str());
	std::string responseBody;
	int statusCode = 0;
	auto status = DoraXrtHttpExecuteStream(
		method.c_str(),
		url.c_str(),
		headerNames.data(),
		headerValues.data(),
		headerNames.size(),
		body,
		bodyLen,
		s_cast<unsigned int>(timeout * 1000.0),
		0,
		nullptr,
		nullptr,
		[](const char* data, size_t dataLen, size_t, size_t, void* userData) {
			auto body = s_cast<std::string*>(userData);
			body->append(data, dataLen);
			return 0;
		},
		&responseBody,
		&statusCode);
	lua_newtable(L);
	lua_pushinteger(L, status);
	lua_setfield(L, -2, "netStatus");
	lua_pushstring(L, DoraXrtHttpStatusName(status));
	lua_setfield(L, -2, "netStatusName");
	lua_pushinteger(L, statusCode);
	lua_setfield(L, -2, "statusCode");
	lua_pushlstring(L, responseBody.data(), responseBody.size());
	lua_setfield(L, -2, "body");
	return 1;
}