/usr/share/lua/5.1/wsapi/util.lua is in liblua5.1-wsapi1 1.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 | module("wsapi.util", package.seeall)
----------------------------------------------------------------------------
-- Decode an URL-encoded string (see RFC 2396)
----------------------------------------------------------------------------
function url_decode(str)
if not str then return nil end
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
----------------------------------------------------------------------------
-- URL-encode a string (see RFC 2396)
----------------------------------------------------------------------------
function url_encode(str)
if not str then return nil end
str = string.gsub (str, "\n", "\r\n")
str = string.gsub (str, "([^%w ])",
function (c) return string.format ("%%%02X", string.byte(c)) end)
str = string.gsub (str, " ", "+")
return str
end
----------------------------------------------------------------------------
-- Sanitizes all HTML tags
----------------------------------------------------------------------------
function sanitize(text)
return text:gsub(">", ">"):gsub("<", "<")
end
----------------------------------------------------------------------------
-- Checks whether s is not nil or the empty string
----------------------------------------------------------------------------
function not_empty(s)
if s and s ~= "" then return s else return nil end
end
----------------------------------------------------------------------------
-- Wraps the WSAPI environment to make the input rewindable, so you
-- can parse postdata more than once, call wsapi_env.input:rewind()
----------------------------------------------------------------------------
function make_rewindable(wsapi_env)
local new_env = { input = { position = 1, contents = "" } }
function new_env.input:read(size)
local left = #self.contents - self.position + 1
local s
if left < size then
self.contents = self.contents .. wsapi_env.input:read(size - left)
s = self.contents:sub(self.position)
self.position = #self.contents + 1
else
s = self.contents:sub(self.position, self.position + size)
self.position = self.position + size
end
if s == "" then return nil else return s end
end
function new_env.input:rewind()
self.position = 1
end
return setmetatable(new_env, { __index = wsapi_env, __newindex = wsapi_env })
end
----------------------------------------------------------------------------
-- getopt, POSIX style command line argument parser
-- param arg contains the command line arguments in a standard table.
-- param options is a string with the letters that expect string values.
-- returns a table where associated keys are true, nil, or a string value.
-- The following example styles are supported
-- -a one ==> opts["a"]=="one"
-- -bone ==> opts["b"]=="one"
-- -c ==> opts["c"]==true
-- --c=one ==> opts["c"]=="one"
-- -cdaone ==> opts["c"]==true opts["d"]==true opts["a"]=="one"
-- note POSIX demands the parser ends at the first non option
-- this behavior isn't implemented.
----------------------------------------------------------------------------
function getopt( arg, options )
local tab, args = {}, {}
local k = 1
while k <= #arg do
local v = arg[k]
if string.sub( v, 1, 2) == "--" then
local x = string.find( v, "=", 1, true )
if x then tab[ string.sub( v, 3, x-1 ) ] = string.sub( v, x+1 )
else tab[ string.sub( v, 3 ) ] = true
end
k = k + 1
elseif string.sub( v, 1, 1 ) == "-" then
local y = 2
local l = #v
local jopt
local next = 1
while ( y <= l ) do
jopt = string.sub( v, y, y )
if string.find( options, jopt, 1, true ) then
if y < l then
tab[ jopt ] = string.sub( v, y+1 )
y = l
else
tab[ jopt ] = arg[ k + 1 ]
next = 2
end
else
tab[ jopt ] = true
end
y = y + 1
end
k = k + next
else
args[#args + 1] = v
k = k + 1
end
end
return tab, args
end
----------------------------------------------------------------------------
-- Makes a mock WSAPI environment with GET method and the provided
-- query string
----------------------------------------------------------------------------
function make_env_get(qs)
return {
REQUEST_METHOD = "GET",
QUERY_STRING = qs or "",
CONTENT_LENGTH = 0,
PATH_INFO = "/",
SCRIPT_NAME = "",
CONTENT_TYPE = "x-www-form-urlencoded",
input = {
read = function () return nil end
},
error = {
messages = {},
write = function (self, msg)
self.messages[#self.messages+1] = msg
end
}
}
end
----------------------------------------------------------------------------
-- Makes a mock WSAPI environment with POST method and the provided
-- postdata, type (x-www-form-urlenconded default) and query string
----------------------------------------------------------------------------
function make_env_post(pd, type, qs)
pd = pd or ""
return {
REQUEST_METHOD = "POST",
QUERY_STRING = qs or "",
CONTENT_LENGTH = #pd,
PATH_INFO = "/",
CONTENT_TYPE = type or "x-www-form-urlencoded",
SCRIPT_NAME = "",
input = {
post_data = pd,
current = 1,
read = function (self, len)
if self.current > #self.post_data then return nil end
local s = self.post_data:sub(self.current, len)
self.current = self.current + len
return s
end
},
error = {
messages = {},
write = function (self, msg)
self.messages[#self.messages+1] = msg
end
}
}
end
|