From 3a6c6b00eb4c62b24c5e5ca670142ac5a00d7847 Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Tue, 18 Jun 2024 22:46:31 +0100
Subject: o

---
 qs.lua | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 qs.lua

(limited to 'qs.lua')

diff --git a/qs.lua b/qs.lua
new file mode 100644
index 0000000..70484b7
--- /dev/null
+++ b/qs.lua
@@ -0,0 +1,26 @@
+-- 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
+
+return {
+	urldecode = urldecode,
+	parse_qs = parse_qs,
+}
-- 
cgit v1.2.3