add qs.lua

1 files changed, 23 insertions, 0 deletions

diff --git a/qs.lua b/qs.lua
new file mode 100644
index 0000000..fd1ed70
--- /dev/null
+++ b/qs.lua
@@ -0,0 +1,23 @@
+-- querystring and post body parsing
+
+local function urldecode(s)
+	return s:gsub('+',' ')
+		:gsub('%%(%x%x)',function(x)
+			return string.char(tonumber(x,16))
+		end)
+end
+
+local function parse_qs(s)
+	local ix = 1
+	local res = {}
+	while true do
+		local _,next_ix,ek,ev = s:find("([^=]+)=([^&]*)&?",ix)
+		if not ek then break end
+		local k,v = urldecode(ek), urldecode(ev)
+		res[k] = v
+		ix = next_ix + 1
+	end
+	return res
+end
+
+