2003-03-28 21:08:50 +00:00
|
|
|
-----------------------------------------------------------------------------
|
2003-06-09 18:23:40 +00:00
|
|
|
-- TCP sample: Little program to dump lines received at a given port
|
2003-06-26 18:47:49 +00:00
|
|
|
-- LuaSocket sample files
|
2003-06-09 18:23:40 +00:00
|
|
|
-- Author: Diego Nehab
|
|
|
|
-- RCS ID: $Id$
|
2003-03-28 21:08:50 +00:00
|
|
|
-----------------------------------------------------------------------------
|
2004-06-04 15:15:45 +00:00
|
|
|
local socket = require("socket")
|
2001-09-27 20:02:24 +00:00
|
|
|
host = host or "*"
|
2001-03-06 19:54:57 +00:00
|
|
|
port = port or 8080
|
2000-12-29 22:15:09 +00:00
|
|
|
if arg then
|
|
|
|
host = arg[1] or host
|
|
|
|
port = arg[2] or port
|
|
|
|
end
|
|
|
|
print("Binding to host '" ..host.. "' and port " ..port.. "...")
|
2004-05-30 21:36:22 +00:00
|
|
|
s = socket.try(socket.bind(host, port))
|
|
|
|
i, p = socket.try(s:getsockname())
|
2000-12-29 22:15:09 +00:00
|
|
|
print("Waiting connection from talker on " .. i .. ":" .. p .. "...")
|
2004-05-30 21:36:22 +00:00
|
|
|
c = socket.try(s:accept())
|
2000-12-29 22:15:09 +00:00
|
|
|
print("Connected. Here is the stuff:")
|
|
|
|
l, e = c:receive()
|
|
|
|
while not e do
|
|
|
|
print(l)
|
|
|
|
l, e = c:receive()
|
|
|
|
end
|
|
|
|
print(e)
|