netlogger.lua

component = require("component")
event = require("event")
filesystem = require("filesystem")
-----------------------
local function handler(_,_,remote,_,_,msg1,msg2,msg3,msg4,msg5)
 file:write(remote..":")
 if msg1 ~= nil then
  file:write("   "..tostring(msg1))
 end
 if msg2 ~= nil then
  file:write("   "..tostring(msg2))
 end
 if msg3 ~= nil then
  file:write("   "..tostring(msg3))
 end
 if msg4 ~= nil then
  file:write("   "..tostring(msg4))
 end
 if msg5 ~= nil then
  file:write("   "..tostring(msg5))
 end
 file:write("\n")
end
-----------------------
function start()
 modem = component.modem
 if not modem then
  print("Failed to start service: missing network adapter")
  return
 end
 file = filesystem.open("/usr/net.log","a")
 event.listen("modem_message",handler)
end

function stop()
 event.ignore("modem_message",handler)
 file:close()
end

function rmlog()
 if file.exists("/usr/net.log") then filesystem.delete("/usr/net.log") end
end