LM as webserver - ERR_INVALID_HTTP_RESPONSE

Code:

-- init server handler

if not ready then

  require('copas')

 

  -- list of client sockets

  clients = {}



  -- incoming data handler

  function datahandler(sock, data)

    local ip, port

    ip, port = sock:getpeername()

      

    -- send reply

    if string.find(data,"GET /getdata/test") then

      sock:send(htmlbody)

    --else

        --log(string.format('[server] data from %s:%d - %s', ip, port, data))

    end

  end

 

  -- connection handler

  function connhandler(sock)

    -- enable keep-alive to check for disconnect events

    --sock:setoption('keepalive', false)

 

    local ip, port, data, err, id

 

    -- get ip and port from socket

    ip, port = sock:getpeername()

 

    -- client id

    id = string.format('%s:%d', ip, port)

    --log(string.format('[server] connection from %s', id))

         

    -- save socket reference

    clients[ id ] = sock

 

    -- main reader loop

    while true do

      -- wait for single line of data (until \n, \r is ignored)

      data, err = copas.receive(sock, '*l')

      -- error while receiving

      if err then

        --log(string.format('[server] closed connection from %s:%d', ip, port))

        -- remove socket reference

        clients[ id ] = nil

        return

      end

      -- handle data frame

      datahandler(sock, data)

      if data == "" then

        --log("stop")

        break

      end

    end

  end

 

  -- bind to port 10001

  tcpserver = socket.bind('*', 19001)

 

  -- error while binding, try again later

  if not tcpserver then

    os.sleep(5)

    log('[server] error: cannot bind')

  end

 

  -- set server connection handler

  copas.addserver(tcpserver, connhandler)

 

  -- create udp server on port 10002

  udpserver = socket.udp()

  udpserver:setsockname('*', 19002)

  udpserver:settimeout(0.1)

 

  ready = true

end

 

-- perform server tasks for one second (5 x (0.1 + 0.1))

for i = 1, 5 do

  message = udpserver:receive()

  

  -- got message from udp, send to all active clients

  if message then

    --log("message: " .. message .. " : " .. chartobyte(message))

    for id, sock in pairs(clients) do

      --log("client id: " .. id)

      sock:send(message .. '\r')

    end

  end

 

  copas.step(0.1)

end



-- all dynamic pages

htmlbody = 

"<HTML>\n"..

"\n"..

"<HEAD>\n"..

"<title>Web Communication</title>\n"..

"</HEAD>\n"..

"\n"..

"<BODY>\n"..

"Web Communication \n"..

"<h3>Test</h3>\n"..

"<pre style='white-space:normal;'>"..

"</pre>"..

"<br>"..

"</BODY>\n"..

"\n"..

"</HTML>"

Code:

-- init server handler

if not ready then

  require('copas')



  -- all dynamic pages

  htmlbody =

  "<html>\n"..

  "\n"..

  "<head>\n"..

  "<title>Web Communication</title>\n"..

  "</head>\n"..

  "\n"..

  "<body>\n"..

  "Web Communication \n"..

  "<h3>Test</h3>\n"..

  "<pre style='white-space:normal;'>"..

  "</pre>"..

  "<br>"..

  "</body>\n"..

  "\n"..

  "</html>"



  function httpsend(sock, body)

    local resp = 'HTTP/1.1 200 OK\r\nContent-Length: %d\r\nContent-type: text/html\r\nConnection: close\r\n\r\n%s'

    local data = string.format(resp, #body, body)

    return sock:send(data)

  end



  -- list of client sockets

  clients = {}



  -- incoming data handler

  function datahandler(sock, data)

    local ip, port

    ip, port = sock:getpeername()



    -- send reply

    if string.find(data,"GET /getdata/test") then

      httpsend(sock, htmlbody)

    --else

        --log(string.format('[server] data from %s:%d - %s', ip, port, data))

    end

  end



  -- connection handler

  function connhandler(sock)

    -- enable keep-alive to check for disconnect events

    --sock:setoption('keepalive', false)



    local ip, port, data, err, id



    -- get ip and port from socket

    ip, port = sock:getpeername()



    -- client id

    id = string.format('%s:%d', ip, port)

    --log(string.format('[server] connection from %s', id))



    -- save socket reference

    clients[ id ] = sock



    -- main reader loop

    while true do

      -- wait for single line of data (until \n, \r is ignored)

      data, err = copas.receive(sock, '*l')

      -- error while receiving

      if err then

        --log(string.format('[server] closed connection from %s:%d', ip, port))

        -- remove socket reference

        clients[ id ] = nil

        return

      end

      -- handle data frame

      datahandler(sock, data)

      if data == "" then

        --log("stop")

        break

      end

    end

  end



  -- bind to port 10001

  tcpserver = socket.bind('*', 19001)



  -- error while binding, try again later

  if not tcpserver then

    os.sleep(5)

    log('[server] error: cannot bind')

  end



  -- set server connection handler

  copas.addserver(tcpserver, connhandler)



  -- create udp server on port 10002

  udpserver = socket.udp()

  udpserver:setsockname('*', 19002)

  udpserver:settimeout(0.1)



  ready = true

end



-- perform server tasks for one second (5 x (0.1 + 0.1))

for i = 1, 5 do

  message = udpserver:receive()



  -- got message from udp, send to all active clients

  if message then

    --log("message: " .. message .. " : " .. chartobyte(message))

    for id, sock in pairs(clients) do

      --log("client id: " .. id)

      sock:send(message .. '\r')

    end

  end



  copas.step(0.1)

end