aboutsummaryrefslogtreecommitdiff
path: root/etc/cookie.lua
diff options
context:
space:
mode:
Diffstat (limited to 'etc/cookie.lua')
-rw-r--r--etc/cookie.lua88
1 files changed, 0 insertions, 88 deletions
diff --git a/etc/cookie.lua b/etc/cookie.lua
deleted file mode 100644
index 4adb403..0000000
--- a/etc/cookie.lua
+++ /dev/null
@@ -1,88 +0,0 @@
1local socket = require"socket"
2local http = require"socket.http"
3local url = require"socket.url"
4local ltn12 = require"ltn12"
5
6local token_class = '[^%c%s%(%)%<%>%@%,%;%:%\\%"%/%[%]%?%=%{%}]'
7
8local function unquote(t, quoted)
9 local n = string.match(t, "%$(%d+)$")
10 if n then n = tonumber(n) end
11 if quoted[n] then return quoted[n]
12 else return t end
13end
14
15local function parse_set_cookie(c, quoted, cookie_table)
16 c = c .. ";$last=last;"
17 local _, __, n, v, i = string.find(c, "(" .. token_class ..
18 "+)%s*=%s*(.-)%s*;%s*()")
19 local cookie = {
20 name = n,
21 value = unquote(v, quoted),
22 attributes = {}
23 }
24 while 1 do
25 _, __, n, v, i = string.find(c, "(" .. token_class ..
26 "+)%s*=?%s*(.-)%s*;%s*()", i)
27 if not n or n == "$last" then break end
28 cookie.attributes[#cookie.attributes+1] = {
29 name = n,
30 value = unquote(v, quoted)
31 }
32 end
33 cookie_table[#cookie_table+1] = cookie
34end
35
36local function split_set_cookie(s, cookie_table)
37 cookie_table = cookie_table or {}
38 -- remove quoted strings from cookie list
39 local quoted = {}
40 s = string.gsub(s, '"(.-)"', function(q)
41 quoted[#quoted+1] = q
42 return "$" .. #quoted
43 end)
44 -- add sentinel
45 s = s .. ",$last="
46 -- split into individual cookies
47 i = 1
48 while 1 do
49 local _, __, cookie, next_token
50 _, __, cookie, i, next_token = string.find(s, "(.-)%s*%,%s*()(" ..
51 token_class .. "+)%s*=", i)
52 if not next_token then break end
53 parse_set_cookie(cookie, quoted, cookie_table)
54 if next_token == "$last" then break end
55 end
56 return cookie_table
57end
58
59local function quote(s)
60 if string.find(s, "[ %,%;]") then return '"' .. s .. '"'
61 else return s end
62end
63
64local _empty = {}
65local function build_cookies(cookies)
66 s = ""
67 for i,v in ipairs(cookies or _empty) do
68 if v.name then
69 s = s .. v.name
70 if v.value and v.value ~= "" then
71 s = s .. '=' .. quote(v.value)
72 end
73 end
74 if v.name and #(v.attributes or _empty) > 0 then s = s .. "; " end
75 for j,u in ipairs(v.attributes or _empty) do
76 if u.name then
77 s = s .. u.name
78 if u.value and u.value ~= "" then
79 s = s .. '=' .. quote(u.value)
80 end
81 end
82 if j < #v.attributes then s = s .. "; " end
83 end
84 if i < #cookies then s = s .. ", " end
85 end
86 return s
87end
88