37 lines
1.1 KiB
Lua
37 lines
1.1 KiB
Lua
-- ping v2.0.0
|
|
local PING_CHANNEL = 9;
|
|
|
|
local createNet = require('/apis/net');
|
|
local net = createNet();
|
|
|
|
local args = table.pack(...);
|
|
local targetComputerId = tonumber(args[1]) or args[1];
|
|
|
|
local sourceId = os.getComputerID()
|
|
local sourceLabel = os.getComputerLabel();
|
|
|
|
-- gérer les pongs locales
|
|
if targetComputerId == nil or targetComputerId == sourceId or targetComputerId == sourceLabel then
|
|
print("=> local pong from " .. tostring(sourceId)
|
|
.. (sourceLabel and " (label=" .. tostring(sourceLabel) .. ")" or ""));
|
|
end
|
|
|
|
-- envoyer un message sur le canal 9 à la machine cible
|
|
|
|
local ok, results, packets = net.sendMultipleRequests(PING_CHANNEL, 'ping', 'ping', targetComputerId);
|
|
|
|
if not ok then
|
|
error(results)
|
|
end
|
|
|
|
for k, message in ipairs(results) do
|
|
if message == 'pong' then
|
|
local packet = packets[k];
|
|
|
|
-- if targetComputerId == nil or targetComputerId == packet.sourceId or targetComputerId == packet.sourceLabel then
|
|
print("=> pong from " .. tostring(packet.sourceId)
|
|
.. (packet.sourceLabel and " (label=" .. tostring(packet.sourceLabel) .. ")" or ""));
|
|
-- end
|
|
end
|
|
end
|