startup

for i,v in ipairs(peripheral.getNames()) do
  if peripheral.getType(v) == "modem" then
    rednet.open(v)
  end
end

function clear()
  term.clear()
  term.setCursorPos(1,1)
end

function choose(a,s)
  selection = 1
  min = 1
  max = #a

  while true do
    clear()
    if s ~= nil then
      print(s)
      print()
    end

    for i,v in ipairs(a) do
      if selection == i then
        print(">"..v)
      else
        print(" "..v)
      end
    end

    e,p1 = os.pullEvent()
    if e == "key" then
      if p1 == 200 then
        if selection == min then
          selection = max
        else
          selection = selection - 1
        end
      elseif p1 == 208 then
        if selection == max then
          selection = min
        else
          selection = selection + 1
        end
      elseif p1 == 28 then
        break
      end
    end
  end
  return a[selection]
end


if not fs.exists("data") then
  clear()
  print("SETTING UP RS SWITCH")
  print()
  sleep(1)
  side = choose(rs.getSides(),"Side out")
  clear()
  stateString = choose({"ACTIVE","DEACTIVE"},"Default state")
  if stateString == "ACTIVE" then
    state = true
  else
    state = false
  end
  clear()
  term.write("Name of RS Switch: ")
  name = read()
  clear()
  term.write("Cearance needed to change state: ")
  clearance = tonumber(read())
  clear()
  term.write("Server ID? ")
  serverID = tonumber(read())
  clear()
  print("LOG IN")
  print()
  term.write("Username: ")
  username = read()
  term.write("Password: ")
  password = read("*")
  clear()
  print("AUTHORIZING RS SWITCH")
  rednet.send(serverID,{ {username, " ", 0, password},"LOG_IN" })
  id,msg,d = rednet.receive(.3)
  cID = os.getComputerID()
  if id == serverID then
    print("AUTHORIZED... REGISTERING RS SWITCH")
    rednet.send(serverID, {msg,"REGISTER_RS_SWITCH",cID,stateString,clearance,name})
    id,msg,d = rednet.receive(.3)
    if id == serverID then
      data = {side,stateString,state,serverID}

      file = fs.open("data","w")
      file.write(textutils.serialise(data))
      file.close()
    else
      print("CLEARANCE TOO LOW... EXITING PROGRAM")
      sleep(1)
      return exit
    end

  else
    print("UNAUTHORIZED... EXITING PROGRAM")
    sleep(1)
    return exit
  end

else
  file = fs.open("data", "r")
  data = file.readAll()
  file.close()

  stats = textutils.unserialise(data)
  side = stats[1]
  stateString = stats[2]
  state = stats[3]
  serverID = stats[4]
end

rs.setOutput(side,state)

while true do
  id,msg,d = rednet.receive()

  if id == serverID then
    if msg == "CHANGE" then
      state = not state
      if state then
        stringState = "ACTIVE"
      else
        stringState = "DEACTIVE"
      end
      rs.setOutput(side, state)
      rednet.send(serverID, stringState)
    elseif msg == "GETSTATE" then
      rednet.send(serverID, stringState)
    end
  end
end