-----------------------------------------------------------------------------
-- TCP sample: Little program to dump lines received at a given port
-- LuaSocket sample files
-- Author: Diego Nehab
-- RCS ID: $Id: listener.lua,v 1.11 2005/01/02 22:44:00 diego Exp $
-----------------------------------------------------------------------------
local socket = require("socket")
host = host or "*"
port = port or 9999
if arg then
	host = arg[1] or host
	port = arg[2] or port
end
print("Binding to host '" ..host.. "' and port " ..port.. "...")
s = assert(socket.bind(host, port))
i, p   = s:getsockname()
assert(i, p)

cnt = 0
while cnt < 10 do
  print("Waiting connection "..cnt.." from talker on " .. i .. ":" .. p .. "...")
  c = assert(s:accept())
  print("Connected. Here is the stuff:")
  c:send("Hello..\n\r")

  l, e = c:receive()
  while not e do
	--print( e, l )

	c:send("ack\n\r")

	l, e = c:receive()
    print(e,l)

  end
  print(e)
  cnt = cnt + 1
end