Initial revision

1 files changed, 22 insertions, 0 deletions

diff --git a/samples/echosrvr.lua b/samples/echosrvr.lua
new file mode 100644
index 0000000..fe7da06
--- /dev/null
+++ b/samples/echosrvr.lua
@@ -0,0 +1,22 @@
+host = host or "127.0.0.1"
+port = port or 7
+if arg then
+    host = arg[1] or host
+    port = arg[2] or port
+end
+print("Binding to host '" ..host.. "' and port " ..port.. "...")
+udp, err = udpsocket()
+if not udp then print(err) exit() end
+err = setsockname(udp, host, port)
+if err then print(err) exit() end
+timeout(udp, 5)
+ip, port = getsockname(udp)
+print("Waiting packets on " .. ip .. ":" .. port .. "...")
+while 1 do
+        dgram, ip, port = receivefrom(udp)
+        if not dgram then print(ip) 
+        else 
+                print("Echoing from " .. ip .. ":" .. port)
+                sendto(udp, dgram, ip, port)
+        end
+end