-- Moonbridge example application -- invoke with ./moonbridge example_application.lua -- -- see helloworld.lua for a simpler example local http = require "moonbridge_http" -- preparation before forking: local documents = {} for i, document_name in ipairs{"example_webpage.html", "example_webpage.css"} do local file = assert(io.open(document_name)) documents[document_name] = file:read("*a") -- store file contents in memory file:close() end listen{ -- listen to a tcp version 4 socket { proto = "tcp4", port = 8080, localhost = true }, -- listen to a tcp version 6 socket { proto = "tcp6", port = 8080, localhost = true }, -- listen to a unix domain socket --{ proto = "local", path = 'socket' }, -- execute the listener regularly (without incoming connection) --{ proto = "interval", name = "myint", delay = 10, strict = false }, -- desired number of spare (idle) processes pre_fork = 1, -- number of forks -- minimum number of processes min_fork = 2, -- number of forks -- maximum number of processes (hard limit) max_fork = 16, -- number of forks -- delay between creation of spare processes fork_delay = 0.25, -- seconds -- delay before retry of failed process creation fork_error_delay = 2, -- seconds -- delay between destruction of excessive spare processes exit_delay = 60, -- seconds -- idle time after a fork gets terminated idle_timeout = 0, -- seconds (0 for no timeout) -- maximum memory consumption before process gets terminated --memory_limit = 1024*1024, -- bytes -- preparation of process (executed after fork) prepare = function() -- e.g. open database connection end, -- connection handler connect = http.generate_handler( { static_headers = {"Server: Moonbridge Example Server"}, request_body_size_limit = 16*1024*1024*1024, -- allow big file uploads request_header_timeout = 360, -- request headers must be sent within 6 minutes (if nil, defaults to timeout below) timeout = 1800 -- request body and response must be sent within 30 minutes }, function(request) local function error_response(status) request:send_status(status) request:send_header("Content-Type", "text/html") request:send_data("\n", status, "\n

", status, "

\n\n") request:finish() end if request.method == "GET" or request.method == "HEAD" then if request.path == "" then request:send_status("303 See Other") request:send_header("Location", "http://" .. request.headers_value.host .. "/example_webpage.html") else local document_name = request.path local document_extension = string.match(document_name, "%.([^.])$") local document = documents[document_name] -- loads file contents from memory if document then request:send_status("200 OK") if document_extension == "html" then request:send_header("Content-Type", "text/html; charset=UTF-8") elseif document_extension == "css" then request:send_header("Content-Type", "text/css; charset=UTF-8") end request:send_data(document) else error_response("404 Not Found") end end elseif request.method == "POST" then if request.path == "post_example" then local files = {} do local file request:stream_post_param("files", function(chunk, field_name, meta) if meta then file = { file_name = meta.file_name, content_type = meta.content_type, length = 0 } end if chunk then file.length = file.length + #chunk else files[#files+1] = file end end) end request:send_status("200 OK") request:send_header("Content-Type", "text/html; chatset=UTF-8") request:send_data("\n\n") request:send_data('\n') request:send_data("Moonbridge Network Server for Lua Applications – Example Application\n") request:send_data("\n\n") request:send_data("

Moonbridge Network Server for Lua – Example Application

\n") request:send_data("

POST request successful

\n") request:send_data('\n\n\n') for i, file in ipairs(files) do request:send_data("") request:send_data("") request:send_data("") request:send_data('") request:send_data("\n") end request:send_data("\n
File nameContent typeBytes received
", http.encode_html(file.file_name or "(unknown)"), "", http.encode_html(file.content_type or "(unknown)"), "', http.encode_html(tostring(file.length)), "
\n") request:send_data("

Submitted comment: ", http.encode_html(request.post_params.comment), "

\n") request:send_data("\n\n") else error_response("404 Not Found") end else error_response("405 Method not allowed") end -- returning false causes termination of current process (and re-forking) return true end), -- executed on process termination finish = function() -- e.g. close database connection end }