37 lines
871 B
Lua
37 lines
871 B
Lua
-- Copyright 2008 Steven Barth <steven@midlink.org>
|
|
-- Copyright 2017 Matthias Schiffer <mschiffer@universe-factory.net>
|
|
-- Licensed to the public under the Apache License 2.0.
|
|
|
|
local stdlib = require 'posix.stdlib'
|
|
local http = require 'gluon.web.http'
|
|
local dispatcher = require 'gluon.web.dispatcher'
|
|
|
|
-- Limited source to avoid endless blocking
|
|
local function limitsource(handle, limit)
|
|
limit = limit or 0
|
|
local BLOCKSIZE = 2048
|
|
|
|
return function()
|
|
if limit < 1 then
|
|
handle:close()
|
|
return nil
|
|
else
|
|
local read = (limit > BLOCKSIZE) and BLOCKSIZE or limit
|
|
limit = limit - read
|
|
|
|
local chunk = handle:read(read)
|
|
if not chunk then handle:close() end
|
|
return chunk
|
|
end
|
|
end
|
|
end
|
|
|
|
return function(config)
|
|
local env = stdlib.getenv()
|
|
dispatcher(config, http.Http(
|
|
env,
|
|
limitsource(io.stdin, tonumber(env.CONTENT_LENGTH)),
|
|
io.stdout
|
|
))
|
|
end
|