Initial revision

1 files changed, 25 insertions, 0 deletions

diff --git a/samples/listener.lua b/samples/listener.lua
new file mode 100644
index 0000000..a47d9a3
--- /dev/null
+++ b/samples/listener.lua
@@ -0,0 +1,25 @@
+host = "localhost"

+port = 8080

+if arg then

+        host = arg[1] or host

+        port = arg[2] or port

+end

+print("Binding to host '" ..host.. "' and port " ..port.. "...")

+s, i, p, e = bind(host, port)

+if not s then

+        print(e)

+        exit()

+end

+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)