1-- Set keep_alive. The return value specifies if this is possible at all.
2canKeepAlive = mg.keep_alive(true)
3now = os.date("!%a, %d %b %Y %H:%M:%S")
4
5-- First send the http headers
6mg.write("HTTP/1.1 200 OK\r\n")
7mg.write("Content-Type: text/html\r\n")
8mg.write("Date: " .. now .. " GMT\r\n")
9mg.write("Cache-Control: no-cache\r\n")
10mg.write("Last-Modified: " .. now .. " GMT\r\n")
11if not canKeepAlive then
12    mg.write("Connection: close\r\n")
13    mg.write("\r\n")
14    mg.write("<html><body>Keep alive not possible!</body></html>")
15    return
16end
17if mg.request_info.http_version ~= "1.1" then
18    -- wget will use HTTP/1.0 and Connection: keep-alive, so chunked transfer is not possible
19    mg.write("Connection: close\r\n")
20    mg.write("\r\n")
21    mg.write("<html><body>Chunked transfer is only possible for HTTP/1.1 requests!</body></html>")
22    mg.keep_alive(false)
23    return
24end
25
26-- use chunked encoding (http://www.jmarshall.com/easy/http/#http1.1c2)
27mg.write("Cache-Control: max-age=0, must-revalidate\r\n")
28--mg.write("Cache-Control: no-cache\r\n")
29--mg.write("Cache-Control: no-store\r\n")
30mg.write("Connection: keep-alive\r\n")
31mg.write("Transfer-Encoding: chunked\r\n")
32mg.write("\r\n")
33
34-- function to send a chunk
35function send(str)
36    local len = string.len(str)
37    mg.write(string.format("%x\r\n", len))
38    mg.write(str.."\r\n")
39end
40
41-- send the chunks
42send("<html>")
43send("<head><title>Civetweb Lua script chunked transfer test page</title></head>")
44send("<body>\n")
45
46fileCnt = 0
47if lfs then
48    send("Files in " .. lfs.currentdir())
49    send('\n<table border="1">\n')
50    send('<tr><th>name</th><th>type</th><th>size</th></tr>\n')
51    for f in lfs.dir(".") do
52        local at = lfs.attributes(f);
53        if at then
54          send('<tr><td>' .. f .. '</td><td>' .. at.mode .. '</td><td>' .. at.size .. '</td></tr>\n')
55        end
56        fileCnt = fileCnt + 1
57    end
58    send("</table>\n")
59end
60
61send(fileCnt .. " entries (" .. now .. " GMT)\n")
62send("</body>")
63send("</html>")
64
65-- end
66send("")
67