Splash normalize headers

headers.lua

-- x-FOO-bAr -> X-Foo-Bar
function normalize_header(name)
    name = upper(sub(name, 1, 1)) .. lower(sub(name, 2))
    while true do
        local start,fin = find(name, '-[a-z]')
        if start ~= nil then
            name = sub(name, 1, start) .. upper(sub(name, fin, fin)) .. sub(name, fin+1)
        else
            break
        end
    end
    return name
end

function normalize_headers(headers)
    local res = {}
    for name,value in pairs(headers) do
        res[normalize_header(name)] = value
    end
    return res
end