OSspine

--Open Rednet Modems
function openRednet()
  if peripheral.getType("left") == "modem" then
    rednet.open("left")
  end
  if peripheral.getType("right") == "modem" then
    rednet.open("right")
  end
  if peripheral.getType("top") == "modem" then
    rednet.open("top")
  end
  if peripheral.getType("bottom") == "modem" then
    rednet.open("bottom")
  end
  if peripheral.getType("back") == "modem" then
    rednet.open("back")
  end
  if peripheral.getType("front") == "modem" then
    rednet.open("front")
  end
end

--Settings
function readSettings()
  lines = {}
  local h = fs.open("/settings", "r" )
  for line in h.readLine do
    lines[#lines+1] = line
  end

  h.close()
  return lines
end

function changeSettings(settingN, change)
  lines[settingN] = change

  local h = fs.open( "/settings", "w" )
  for i = 1, #lines do
    h.writeLine( lines[i] )
  end
  h.close()
end

--Install Applications
function appInst(name,code)
  local page = http.get("http://pastebin.com/raw.php?i="..code)
  if page == nil then
    return false
  else
    local h = fs.open("/Apps/"..name.."/"..name, "w")
    h.writeLine(page.readAll())
    h.close()
    return true
  end
  page.close()
end