From 5fe2dfcf9d043238f74d67b435b806fc5a860815 Mon Sep 17 00:00:00 2001
From: Marcos Kirsch <bitbucket@kirsch.com.mx>
Date: Sun, 22 Feb 2015 16:05:35 -0600
Subject: [PATCH] Add script that shows how arguments are handled by server

---
 http/args.lua | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 http/args.lua
diff --git a/http/args.lua b/http/args.lua
new file mode 100644
index 0000000..c2fd669
--- /dev/null
+++ b/http/args.lua
@@ -0,0 +1,27 @@
+return function (connection, args)
+   connection:send("HTTP/1.0 200 OK\r\nContent-Type: text/html\r\Cache-Control: private, no-store\r\n\r\n")
+   connection:send('<!DOCTYPE html><html lang="en"><head><meta charset="utf-8"><title>Arguments</title></head>')
+   connection:send('<body>')
+   connection:send('<h1>Arguments</h1>')
+
+local form = [===[
+<form method="GET">
+   First name:<br><input type="text" name="firstName"><br>
+   Last name:<br><input type="text" name="lastName"><br>
+   <input type="radio" name="sex" value="male" checked>Male<input type="radio" name="sex" value="female">Female<br>
+   <input type="submit" value="Submit">
+</form>
+]===]
+
+   connection:send(form)
+
+   connection:send('<h2>Received the following values:</h2>')
+   connection:send("<ul>\n")
+   for name, value in pairs(args) do
+      if value == nil then value = "nil" end
+      connection:send('<li><b>' .. name .. ':</b> ' .. value .. "<br></li>\n")
+   end
+
+   connection:send("</ul>\n")
+   connection:send('</body></html>')
+end
