v1

<*
-------------------------------------------------------------
--------------------- Utility functions ---------------------
-------------------------------------------------------------
local function toOrderedJSON(json)
	return call(getThisResource(), "toOrderedJSON", json)
end

local function routerExecute(...)
	return call(getThisResource(), "routerExecute", ...)
end

local function sendResponse(code, result)
	httpSetResponseHeader("content-type", "application/json")
	httpWrite( result )
end

function processRequest( headers, params )
	outputServerLog( var_dump("-v", params) )
	local m = headers['x-http-method-override'] or 'GET'
	local p = params.p
	local ok, code, result, errorMsg = routerExecute(m, p, params, {account = user})
	-- outputServerLog( ok and var_dump("-v", ok) or "nil" )
	-- outputServerLog( code and var_dump("-v", code) or "nil" )
	-- outputServerLog( result and var_dump("-v", result) or "nil")
	-- outputServerLog( errorMsg and var_dump("-v", errorMsg) or "nil" )
	if not ok then -- routerExecute failed to call function
		errorMsg = code
		code = 500
	elseif not result then -- function called but returned nil as result
		result = errorMsg or "An error occured !"
	else -- function called and returned a result we have to convert in json
		result = toOrderedJSON(result)
	end
	if errorMsg then outputServerLog("[API] "..tostring(errorMsg), 1) end
	sendResponse(code, result)
end

---------------- URL encode and decode ----------------
-- http://www.esp8266.com/viewtopic.php?f=21&t=2300
local function urlDecode(str)
    str = string.gsub(str, "+", " ")
    str = string.gsub(str, "%%(%x%x)", function(h) return string.char(tonumber(h, 16)) end)
    str = string.gsub(str, "\r\n", "\n")
    return str
end

local function decodeForm()
	local f = {}
	if type(form) ~= "table" then return end
	for key, value in pairs(form) do
		f[urlDecode(key)] = urlDecode(value)
	end
	form = f
end

function var_dump(...)
	-- default options
	local verbose = false
	local firstLevel = true
	local outputDirectly = true
	local noNames = false
	local indentation = "\t\t\t\t\t\t"
	local depth = nil

	local name = nil
	local output = {}
	for k,v in ipairs(arg) do
		-- check for modifiers
		if type(v) == "string" and k < #arg and v:sub(1,1) == "-" then
			local modifiers = v:sub(2)
			if modifiers:find("v") ~= nil then
				verbose = true
			end
			if modifiers:find("s") ~= nil then
				outputDirectly = false
			end
			if modifiers:find("n") ~= nil then
				verbose = false
			end
			if modifiers:find("u") ~= nil then
				noNames = true
			end
			local s,e = modifiers:find("d%d+")
			if s ~= nil then
				depth = tonumber(string.sub(modifiers,s+1,e))
			end
		-- set name if appropriate
		elseif type(v) == "string" and k < #arg and name == nil and not noNames then
			name = v
		else
			if name ~= nil then
				name = ""..name..": "
			else
				name = ""
			end

			local o = ""
			if type(v) == "string" then
				table.insert(output,name..type(v).."("..v:len()..") \""..v.."\"")
			elseif type(v) == "userdata" then
				local elementType = "no valid MTA element"
				if isElement(v) then
					elementType = getElementType(v)
				end
				table.insert(output,name..type(v).."("..elementType..") \""..tostring(v).."\"")
			elseif type(v) == "table" then
				local count = 0
				for key,value in pairs(v) do
					count = count + 1
				end
				table.insert(output,name..type(v).."("..count..") \""..tostring(v).."\"")
				if verbose and count > 0 and (depth == nil or depth > 0) then
					table.insert(output,"\t{")
					for key,value in pairs(v) do
						-- calls itself, so be careful when you change anything
						local newModifiers = "-s"
						if depth == nil then
							newModifiers = "-sv"
						elseif  depth > 1 then
							local newDepth = depth - 1
							newModifiers = "-svd"..newDepth
						end
						local keyString, keyTable = var_dump(newModifiers,key)
						local valueString, valueTable = var_dump(newModifiers,value)

						if #keyTable == 1 and #valueTable == 1 then
							table.insert(output,indentation.."["..keyString.."]\t=>\t"..valueString)
						elseif #keyTable == 1 then
							table.insert(output,indentation.."["..keyString.."]\t=>")
							for k,v in ipairs(valueTable) do
								table.insert(output,indentation..v)
							end
						elseif #valueTable == 1 then
							for k,v in ipairs(keyTable) do
								if k == 1 then
									table.insert(output,indentation.."["..v)
								elseif k == #keyTable then
									table.insert(output,indentation..v.."]")
								else
									table.insert(output,indentation..v)
								end
							end
							table.insert(output,indentation.."\t=>\t"..valueString)
						else
							for k,v in ipairs(keyTable) do
								if k == 1 then
									table.insert(output,indentation.."["..v)
								elseif k == #keyTable then
									table.insert(output,indentation..v.."]")
								else
									table.insert(output,indentation..v)
								end
							end
							for k,v in ipairs(valueTable) do
								if k == 1 then
									table.insert(output,indentation.." => "..v)
								else
									table.insert(output,indentation..v)
								end
							end
						end
					end
					table.insert(output,"\t}")
				end
			else
				table.insert(output,name..type(v).." \""..tostring(v).."\"")
			end
			name = nil
		end
	end
	local string = ""
	for k,v in ipairs(output) do
		if outputDirectly then
			outputConsole(v)
		end
		string = string..v
	end
	return string, output
end
-------------------------------------------------------------

decodeForm() -- Decode urlencoded form
processRequest( requestHeaders, form )

*>