diff options
Diffstat (limited to 'samples')
-rw-r--r-- | samples/cddb.lua | 3 | ||||
-rw-r--r-- | samples/daytimeclnt.lua | 1 | ||||
-rw-r--r-- | samples/echoclnt.lua | 15 | ||||
-rw-r--r-- | samples/echosrvr.lua | 21 |
4 files changed, 20 insertions, 20 deletions
diff --git a/samples/cddb.lua b/samples/cddb.lua index 0ed7c71..09309e8 100644 --- a/samples/cddb.lua +++ b/samples/cddb.lua | |||
@@ -1,3 +1,6 @@ | |||
1 | require"luasocket" | ||
2 | require"http" | ||
3 | |||
1 | if not arg or not arg[1] or not arg[2] then | 4 | if not arg or not arg[1] or not arg[2] then |
2 | print("luasocket cddb.lua <category> <disc-id> [<server>]") | 5 | print("luasocket cddb.lua <category> <disc-id> [<server>]") |
3 | os.exit(1) | 6 | os.exit(1) |
diff --git a/samples/daytimeclnt.lua b/samples/daytimeclnt.lua index 63f4017..ee7f652 100644 --- a/samples/daytimeclnt.lua +++ b/samples/daytimeclnt.lua | |||
@@ -4,6 +4,7 @@ | |||
4 | -- Author: Diego Nehab | 4 | -- Author: Diego Nehab |
5 | -- RCS ID: $Id$ | 5 | -- RCS ID: $Id$ |
6 | ----------------------------------------------------------------------------- | 6 | ----------------------------------------------------------------------------- |
7 | require"luasocket" | ||
7 | host = host or "127.0.0.1" | 8 | host = host or "127.0.0.1" |
8 | port = port or 13 | 9 | port = port or 13 |
9 | if arg then | 10 | if arg then |
diff --git a/samples/echoclnt.lua b/samples/echoclnt.lua index 56bd123..a3d75f3 100644 --- a/samples/echoclnt.lua +++ b/samples/echoclnt.lua | |||
@@ -4,6 +4,7 @@ | |||
4 | -- Author: Diego Nehab | 4 | -- Author: Diego Nehab |
5 | -- RCS ID: $Id$ | 5 | -- RCS ID: $Id$ |
6 | ----------------------------------------------------------------------------- | 6 | ----------------------------------------------------------------------------- |
7 | require"luasocket" | ||
7 | host = host or "localhost" | 8 | host = host or "localhost" |
8 | port = port or 7 | 9 | port = port or 7 |
9 | if arg then | 10 | if arg then |
@@ -11,17 +12,13 @@ if arg then | |||
11 | port = arg[2] or port | 12 | port = arg[2] or port |
12 | end | 13 | end |
13 | host = socket.dns.toip(host) | 14 | host = socket.dns.toip(host) |
14 | udp, err = socket.udp() | 15 | udp = socket.try(socket.udp()) |
15 | assert(udp, err) | 16 | socket.try(udp:setpeername(host, port)) |
16 | ret, err = udp:setpeername(host, port) | 17 | print("Using remote host '" ..host.. "' and port " .. port .. "...") |
17 | assert(ret, err) | ||
18 | print("Using host '" ..host.. "' and port " .. port .. "...") | ||
19 | while 1 do | 18 | while 1 do |
20 | line = io.read() | 19 | line = io.read() |
21 | if not line then os.exit() end | 20 | if not line then os.exit() end |
22 | ret, err = udp:send(line) | 21 | socket.try(udp:send(line)) |
23 | if not ret then print(err) os.exit() end | 22 | dgram = socket.try(udp:receive()) |
24 | dgram, err = udp:receive() | ||
25 | if not dgram then print(err) os.exit() end | ||
26 | print(dgram) | 23 | print(dgram) |
27 | end | 24 | end |
diff --git a/samples/echosrvr.lua b/samples/echosrvr.lua index a7ed03c..9d99506 100644 --- a/samples/echosrvr.lua +++ b/samples/echosrvr.lua | |||
@@ -4,6 +4,7 @@ | |||
4 | -- Author: Diego Nehab | 4 | -- Author: Diego Nehab |
5 | -- RCS ID: $Id$ | 5 | -- RCS ID: $Id$ |
6 | ----------------------------------------------------------------------------- | 6 | ----------------------------------------------------------------------------- |
7 | require"luasocket" | ||
7 | host = host or "127.0.0.1" | 8 | host = host or "127.0.0.1" |
8 | port = port or 7 | 9 | port = port or 7 |
9 | if arg then | 10 | if arg then |
@@ -11,19 +12,17 @@ if arg then | |||
11 | port = arg[2] or port | 12 | port = arg[2] or port |
12 | end | 13 | end |
13 | print("Binding to host '" ..host.. "' and port " ..port.. "...") | 14 | print("Binding to host '" ..host.. "' and port " ..port.. "...") |
14 | udp, err = socket.udp() | 15 | udp = socket.try(socket.udp()) |
15 | assert(udp, err) | 16 | socket.try(udp:setsockname(host, port)) |
16 | ret, err = udp:setsockname(host, port) | 17 | socket.try(udp:settimeout(5)) |
17 | assert(ret, err) | 18 | ip, port = socket.try(udp:getsockname()) |
18 | udp:settimeout(5) | ||
19 | ip, port = udp:getsockname() | ||
20 | assert(ip, port) | ||
21 | print("Waiting packets on " .. ip .. ":" .. port .. "...") | 19 | print("Waiting packets on " .. ip .. ":" .. port .. "...") |
22 | while 1 do | 20 | while 1 do |
23 | dgram, ip, port = udp:receivefrom() | 21 | dgram, ip, port = udp:receivefrom() |
24 | if not dgram then print(ip) | 22 | if dgram then |
25 | else | 23 | print("Echoing '" .. dgram .. "' to " .. ip .. ":" .. port) |
26 | print("Echoing from " .. ip .. ":" .. port) | ||
27 | udp:sendto(dgram, ip, port) | 24 | udp:sendto(dgram, ip, port) |
28 | end | 25 | else |
26 | print(ip) | ||
27 | end | ||
29 | end | 28 | end |