Networked Power Monitor

function csvToTable(s)
  local tab = {}
  for match in string.gmatch(s, "[ t]*([^,]+)") do tab[#tab + 1] = match end
  return tab
end
function fromCSV (s)
s = s .. ','		-- ending comma
local t = {}		-- table to collect fields
local fieldstart = 1
repeat
-- next field is quoted? (start with `"'?)
  if string.find(s, '^"', fieldstart) then
   local a, c
   local i  = fieldstart
   repeat
	-- find closing quote
	a, i, c = string.find(s, '"("?)', i+1)
   until c ~= '"'	-- quote not followed by quote?
   if not i then error('unmatched "') end
   local f = string.sub(s, fieldstart+1, i-1)
   table.insert(t, (string.gsub(f, '""', '"')))
   fieldstart = string.find(s, ',', i) + 1
  else				-- unquoted; find next comma
   local nexti = string.find(s, ',', fieldstart)
   table.insert(t, string.sub(s, fieldstart, nexti-1))
   fieldstart = nexti + 1
  end
until fieldstart > string.len(s)
return t
end
os.sleep(5)
Computers = {}
rebootnet = false
tx,ty,tz=0
x,y,z= gps.locate(2)
while (true) do
rednet.open("top")
term.clear()
temp={}
term.setCursorPos(1,1)
print("Running...."..x..","..y..","..z)
senderId, message = rednet.receive(2)

if (senderId~=nil) then
  print("building table....")
  temp = fromCSV(message)
  print()
  print("building table....done")
  if (#Computers==nil) then
   print("com nil")
   Computers[0] = {}
   Computers[0].Id = senderId
   Computers[0].Io = message
   Computers[0].Cp = temp[1]
   Computers[0].Cs = temp[2]
   Computers[0].Cm = temp[3]
   Computers[0].Ix = 0
   Computers[0].Iy = 0
   Computers[0].Iz = 0
   rednet.close("top")
  else
   print("com check")
   intable = false
   for k, v in pairs(Computers) do
	if(v.Id==senderId) then
	 print("com Found")
	 intable = true
	 print("com info Update")
	 v.Io = message
	 v.Cp = temp[1]
	 v.Cs = temp[2]
	 v.Cm = temp[3]
	 v.Ix = tonumber(temp[4])-x
	 v.Iy = tonumber(temp[5])-y
	 v.Iz = tonumber(temp[6])-z
	end
	--print (k, v)
   end -- for loop
   if(intable==false) then
	print("com Not Found:"..temp[2]..","..x)
	write(type(temp[4]))
	tx=tonumber(temp[4])
				print(temp)
	ty=temp[5]-y
	tz=temp[6]-z
	print("com Not Found:"..tx..","..x)
	table.insert(Computers,{Id = senderId,Io = message,Cp = temp[1],Cs = temp[2],Cm = temp[3],Ix = tx,Iy = ty ,Iz = tz})
	print("com Added")
	rednet.broadcast(senderId..",OK")
	rednet.close("top")
   end
  end
else
  print("No Com Traffic")
  rednet.close("top")
end
os.sleep(0.1)
term.clear()
term.setCursorPos(1,1)


--table.sort (Computers,function (v1, v2) return v1.Id < v2.Id end )
noreply = false
Maxpower = 0
MaxpowerStored = 0
Cores = 0
for k, v in pairs(Computers) do
  Cores = Cores + 1
  term.clear()
  term.setCursorPos(1,1)
  rednet.open("top")
  print("Sent Update Request to:"..v.Id)
  for i = 1,10 do
   temp2={}
   rednet.broadcast(v.Id..",Update")
   --os.sleep(0.1)
   Rid , Mess = rednet.receive(2)
  
   if(Rid==v.Id)then
	temp2 = csvToTable(Mess)
	if (temp2[1]~= nil)then
	 print("Received Update From:"..v.Id)
	 print("Original message:"..v.Io)
	 print(temp2[1])
	 print("X="..v.Ix)
	 print("Y="..v.Iy)
	 print("Z="..v.Iz)
	 v.Cp = temp2[1]
	 v.Cs = temp2[2]
	 v.Cm = temp2 [3]
	 v.Io = Mess
	 Maxpower = Maxpower + tonumber(v.Cm)
	 MaxpowerStored = MaxpowerStored + tonumber(v.Cs)
	 print("New Message:"..v.Io)
	 print("Max Power = " .. Maxpower)
	 print("Max Stored Power = " .. MaxpowerStored)
	 os.sleep(0.2)
	 rednet.broadcast(v.Id..",OK")
	 rednet.close("top")
	 break
	else
	 print("Waiting for reply:"..i.."/10")
	end
   else
	print("Waiting for reply:"..i.."/10")
	if (i==10)then
	 print("Removing Node:"..v.Id)
	 table.remove(Computers,k)
	 noreply = true
	end
   end
   os.sleep(0.1)
  end
  if (noreply==true)then
   break
  end
  --os.sleep(0.5)
end

if (redstone.getInput("left") == true) then

  redstone.setOutput("right", true)
  os.sleep(1)
  redstone.setOutput("right", false)
  rebootnet = true
end

comcount = #Computers
if (rebootnet == true) then
  rednet.open("top")
  while ( #Computers~=0)do
   for k, v in pairs(Computers) do
	if (k==comcount)then
	 for i = 1,10 do
	  rednet.broadcast(v.Id..",Reboot")
	  Rid1 , Mess1 = rednet.receive(2)
	
	  if(Rid1==v.Id)then
	   print(Rid1.."/"..v.Id)
	   print("Rebooting com, "..Rid1)
	   --print(Mess)
	   --v.Io = Mess
	   rebootnet = false
	   print("Removing Node:"..v.Id)
	   table.remove(Computers,k)
	   --print("New Message:"..v.Io)
	   break
	  --else
	   --print("Waiting for reply:"..i.."/10")
	  
	  end
	
	  os.sleep(0.5)
	 end
	
	 break
	end
  
   end
  
   comcount = comcount-1
  end

end
rednet.close("top")

os.sleep(0.1)
end