2001-01-25 22:57:07 +01:00
|
|
|
host = host or "localhost"
|
2001-03-06 20:54:57 +01:00
|
|
|
port = port or 8080
|
2000-12-29 23:15:09 +01:00
|
|
|
if arg then
|
|
|
|
host = arg[1] or host
|
|
|
|
port = arg[2] or port
|
|
|
|
end
|
|
|
|
print("Binding to host '" ..host.. "' and port " ..port.. "...")
|
2001-03-06 20:54:57 +01:00
|
|
|
s, e = bind(host, port)
|
2000-12-29 23:15:09 +01:00
|
|
|
if not s then
|
|
|
|
print(e)
|
|
|
|
exit()
|
|
|
|
end
|
2001-03-06 20:54:57 +01:00
|
|
|
i, p = s:getsockname()
|
2000-12-29 23:15:09 +01:00
|
|
|
print("Waiting connection from talker on " .. i .. ":" .. p .. "...")
|
|
|
|
c, e = s:accept()
|
|
|
|
if not c then
|
|
|
|
print(e)
|
|
|
|
exit()
|
|
|
|
end
|
|
|
|
print("Connected. Here is the stuff:")
|
|
|
|
l, e = c:receive()
|
|
|
|
while not e do
|
|
|
|
print(l)
|
|
|
|
l, e = c:receive()
|
|
|
|
end
|
|
|
|
print(e)
|