local status_line = readline();
local method, path, httpversion = status_line:match("^(%S+)%s+(%S+)%s+HTTP/(%S+)$");
if not method then coroutine.yield("invalid-status-line"); end
- -- TODO parse url
+ path = path:gsub("^//+", "/"); -- TODO parse url more
local headers = readheaders();
-- read body
local body;
if have_body then
local len = tonumber(headers["content-length"]);
- if len then -- TODO check for invalid len
+ if headers["transfer-encoding"] == "chunked" then
+ body = "";
+ while true do
+ local chunk_size = readline():match("^%x+");
+ if not chunk_size then coroutine.yield("invalid-chunk-size"); end
+ chunk_size = tonumber(chunk_size, 16)
+ if chunk_size == 0 then break; end
+ body = body..readlength(chunk_size);
+ if readline() ~= "" then coroutine.yield("invalid-chunk-ending"); end
+ end
+ local trailers = readheaders();
+ elseif len then -- TODO check for invalid len
body = readlength(len);
else -- read to end
repeat
success_cb({
code = status_code;
+ httpversion = httpversion;
+ headers = headers;
+ body = body;
+ -- COMPAT the properties below are deprecated
responseversion = httpversion;
responseheaders = headers;
- body = body;
});
end
else coroutine.yield("unknown-parser-type"); end