izaya/OC-PsychOS
2
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

made nbsrv log rather than print everything

Browse Source
This commit is contained in:
Izaya 2017-09-23 14:26:37 +10:00 committed by Izaya
parent 776dca5f27
commit 9def569a2a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
exec/nbsrv.lua
View File

@ -2,26 +2,26 @@ local tA = {...}
local nport = tonumber(tA[1])
local fpath = tostring(tA[2])
for m in component.list("modem") do
print("[nbsrv] opening port on "..m)
log("[nbsrv] opening port on "..m)
component.invoke(m,"open",nport)
end
local f=io.open(fpath,"rb")
local nbdata = f:read("*a")
f:close()
spawn("nbsrv: "..tostring(nport)..","..fpath,function() print(xpcall(function()
spawn("nbsrv: "..tostring(nport)..","..fpath,function() log(xpcall(function()
while true do
local _, laddress, raddress, port, _, payload = event.pull("modem_message")
if port == nport and type(payload) == "string" then
if payload:len() == 36 then
local sraddress,spayload = raddress:sub(1,8),payload:sub(1,8)
print("[nbsrv] request from "..sraddress.."/"..spayload.." on port "..tostring(port))
log("[nbsrv] request from "..sraddress.."/"..spayload.." on port "..tostring(port))
for i = 1, nbdata:len(), 2048 do
component.invoke(laddress,"send",raddress,port,nbdata:sub(i,i+2047))
end
component.invoke(laddress,"send",raddress,port,".")
print("[nbsrv] served request from "..sraddress.."/"..spayload)
log("[nbsrv] served request from "..sraddress.."/"..spayload)
end
end
end
end)) end)
print("[nbsrv] nbsrv started.")
log("[nbsrv] nbsrv started.")