mirrors/prosody
1
0
Fork 0
mirror of https://github.com/bjc/prosody.git synced 2025-04-03 21:27:38 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

util.http: Refactor and import all necessary functions

Browse source
This commit is contained in:
Matthew Wild 2013-04-12 20:26:35 +01:00
parent 45326136c4
commit bc590ea5dc
1 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

22
util/http.lua
View file

@ -5,12 +5,14 @@
-- COPYING file in the source package for more information.
--
local http = {};
local format, char = string.format, string.char;
local pairs, ipairs, tonumber = pairs, ipairs, tonumber;
local t_insert, t_concat = table.insert, table.concat;
function http.urlencode(s)
local function urlencode(s)
return s and (s:gsub("[^a-zA-Z0-9.~_-]", function (c) return format("%%%02x", c:byte()); end));
end
function http.urldecode(s)
local function urldecode(s)
return s and (s:gsub("%%(%x%x)", function (c) return char(tonumber(c,16)); end));
end
@ -24,7 +26,7 @@ local function _formencodepart(s)
end));
end
function http.formencode(form)
local function formencode(form)
local result = {};
if form[1] then -- Array of ordered { name, value }
for _, field in ipairs(form) do
@ -38,7 +40,7 @@ function http.formencode(form)
return t_concat(result, "&");
end
function http.formdecode(s)
local function formdecode(s)
if not s:match("=") then return urldecode(s); end
local r = {};
for k, v in s:gmatch("([^=&]*)=([^&]*)") do
@ -50,11 +52,13 @@ function http.formdecode(s)
return r;
end
function http.contains_token(field, token)
local function contains_token(field, token)
field = ","..field:gsub("[ \t]", ""):lower()..",";
return field:find(","..token:lower()..",", 1, true) ~= nil;
end
return http;
return {
urlencode = urlencode, urldecode = urldecode;
formencode = formencode, formdecode = formdecode;
contains_token = contains_token;
};