http server with keep-alive

httpd-k.lua

ocal luv = require('luv')

local response_html = "<p>Hello, world!</p>"
local response_size = #response_html
local http_response = "HTTP/1.0 200 OK\r\
Content-Type: text/html\r\
Content-Length: "..tostring(response_size).."\r\
Connection: Keep-Alive\r\
\r\
"..response_html

local server = luv.net.tcp()
server:bind("127.0.0.1", 8080)
server:listen(1024)

local main = luv.fiber.create(function()
   while true do
      local client = luv.net.tcp()
      server:accept(client)
      print("accept:", client)

      local child = luv.fiber.create(function(client)
         print("enter child")
         while true do
            local got, str = client:read()
            if got then
               if got == 0 then
                  print("got zero, EOF?")
               else
                  if client:write(http_response) == -1 then
                     client:close()
                  end
               end
            else
               print("got nil, closing")
               client:close()
               break
            end
         end
      end, client)

      -- put it in the ready queue
      child:ready()
   end
end)

main:join()

With timer added:

local luv = require('luv')

local response_html = "

Hello, world!

"
local response_size = #response_html
local http_response = "HTTP/1.0 200 OK\r
Content-Type: text/html\r
Content-Length: "..tostring(response_size).."\r
Connection: Keep-Alive\r
\r
"..response_html

local server = luv.net.tcp()
server:bind("127.0.0.1", 8080)
server:listen(1024)

local main = luv.fiber.create(function()
while true do
local client = luv.net.tcp()
server:accept(client)
print("accept:", client)

  local child = luv.fiber.create(function(client)
     print("enter child")
     local t1 = luv.timer.create()
     t1:start(100,100)
     while true do
        local got, str = client:read()
        if got then
           if got == 0 then
              print("got zero, EOF?", #str, str)
           else
              t1:wait()
              if client:write(http_response) == -1 then
                 client:close()
              end
           end
        else
           print("got nil, closing")
           client:close()
           break
        end
     end
     t1:stop()
  end, client)

  -- put it in the ready queue
  child:ready()

end
end)

main:join()