View difference between Paste ID: e1dux1ht and 2WYkaNB4

---Unnamed message forwarding
+--Unnamed message forwarding
---This is WTFPL, just change the name, OK?
+--This is WTFPL, just change the name, OK?
---Version 1.0 - this means it's the most broken yet
+--Version 1.0 - this means it's the most broken yet
---I commented out all they annoying text outputs. You people love me.
+--I commented out all they annoying text outputs. You people love me.
-
+
-local component = require "component"
+local component = require "component"
-local event = require "event"
+local event = require "event"
-local text = require "text"
+local text = require "text"
-local shell = require "shell"
+local shell = require "shell"
-local serial = require "serialization"
+local serial = require "serialization"
-
+
-modem = component.modem
+modem = component.modem
-local modemPower = 400
+local modemPower = 400
-local msgBuffer = {}
+local msgBuffer = {}
-nodeAddr = "derp3"
+nodeAddr = "derp3"
-local magicNumbers = {}
+local magicNumbers = {}
-
+
-local function extractPath(path)
+local function extractPath(path)
- if path:find("!") ~= nil then
+ if path:find("!") ~= nil then
-  return path:sub(1,path:find("!")-1), path:sub(path:find("!")+1,path:len())
+  return path:sub(1,path:find("!")-1), path:sub(path:find("!")+1,path:len())
- else
+ else
-  return path, path
+  return path, path
- end
+ end
-end
+end
-
+
-function recvMsg(name,user,message)
+function recvMsg(name,user,message)
- local f = io.open("/home/"..user.."/mail/"..name,"ab")
+ local f = io.open("/home/"..user.."/mail/"..name,"ab")
- if f ~= nil then
+ if f ~= nil then
-  f:write(message)
+  f:write(message)
-  f:close()
+  f:close()
- end
+ end
-end
+end
-
+
-local function sks_send(path,retPath,name,user,message)
+local function sks_send(path,retPath,name,user,message)
- local toAddr, contPath = extractPath(path)
+ local toAddr, contPath = extractPath(path)
- --print(toAddr,contPath)
+ --print(toAddr,contPath)
- modem.broadcast(42,toAddr,contPath,retPath,name,user,message,math.random(0,65535))
+ modem.broadcast(42,toAddr,contPath,retPath,name,user,message,math.random(0,65535))
-end
+end
-
+
-local function store(path,retPath,name,user,message)
+local function store(path,retPath,name,user,message)
- table.insert(msgBuffer,{path,retPath,name,user,message})
+ table.insert(msgBuffer,{path,retPath,name,user,message})
-end
+end
-
+
-function msgListener(_,_,from,port,_,toAddr,path,retPath,name,user,message,magNum)
+function msgListener(_,_,from,port,_,toAddr,path,retPath,name,user,message,magNum)
- local hBR = false
+ local hBR = false
- for i = 1, #magicNumbers do
+ for i = 1, #magicNumbers do
-  if magicNumbers[i] == magNum then
+  if magicNumbers[i] == magNum then
-   hBR = true
+   hBR = true
-  end
+  end
- end
+ end
- if not hBR then
+ if not hBR then
-  if port == 42 and path ~= nodeAddr and toAddr == nodeAddr then
+  if port == 42 and path ~= nodeAddr and toAddr == nodeAddr then
-   store(path,retPath,name,user,message)
+   store(path,retPath,name,user,message)
-   --print "routed"
+   --print "routed"
-  elseif port == 42 and path == nodeAddr and toAddr == nodeAddr then
+  elseif port == 42 and path == nodeAddr and toAddr == nodeAddr then
-   --print "Mail recieved!"
+   --print "Mail recieved!"
-   recvMsg(name,user,message)
+   recvMsg(name,user,message)
-  end
+  end
- end
+ end
-end
+end
-
+
-local function sendTimer()
+local function sendTimer()
- --print "Send timer activated"
+ --print "Send timer activated"
- if #msgBuffer > 0 then
+ if #msgBuffer > 0 then
-  for i = 1, #msgBuffer do
+  for i = 1, #msgBuffer do
-   sks_send(msgBuffer[i][1],msgBuffer[i][2],msgBuffer[i][3],msgBuffer[i][4],msgBuffer[i][5])
+   sks_send(msgBuffer[i][1],msgBuffer[i][2],msgBuffer[i][3],msgBuffer[i][4],msgBuffer[i][5])
-  end
+  end
-  msgBuffer = {}
+  msgBuffer = {}
-  --print "Messages sent!"
+  --print "Messages sent!"
- else
+ else
-  --print "No messages sent!"
+  --print "No messages sent!"
- end
+ end
-end
+end
-
+
-local function loadConfig()
+local function loadConfig()
- local f = io.open("/etc/net.cfg")
+ local f = io.open("/etc/net.cfg")
- local configTab = serial.unserialize(f:read("*a"))
+ local configTab = serial.unserialize(f:read("*a"))
- f:close()
+ f:close()
- nodeAddr = configTab.nodeName
+ nodeAddr = configTab.nodeName
- modemPower = configTab.modemPower
+ modemPower = configTab.modemPower
-end
+end
-
+
-local function setup()
+local function setup()
- modem.open(42)
+ modem.open(42)
- --loadConfig()
+ --loadConfig()
- --pcall(modem.setStrength(modemPower))
+ --pcall(modem.setStrength(modemPower))
- print("netnode.d v1.0 running; nodename: " .. nodeAddr)
+ print("netnode.d v1.0 running; nodename: " .. nodeAddr)
- event.listen("modem_message",msgListener)
+ event.listen("modem_message",msgListener)
- event.timer(1,sendTimer,math.huge)
+ event.timer(1,sendTimer,math.huge)
- sendTimer()
+ sendTimer()
-end
+end
-
+
 setup()