bankServer

if fs.exists("server/id") then
  local time = os.time()
  local date = os.day()
  local file = fs.open("backups/serverlog","a")
  file.write(day..","..time.."("..id.."): Server started")
  file.close()
  rednet.open("left")
  local file = fs.open("backups/serverlog","a")
  file.write(day..","..time.."("..id.."): RedNet activated")
  file.close()
  print("Opening listening ports")
  while true do
    local id,msg = rednet.receive()
    if msg == "install" then
      local file = fs.open("backups/serverlog","a")
      file.write(day..","..time.."("..id.."): Attempting client install")
      file.close()
      print("("..id.."): Attempting Client Install")
      if fs.exists("clients/")then
        if fs.exists ("clients/"..id) then
          rednet.send(id, " Client already installed")
          local file = fs.open("backups/serverlog","a")
          file.write(day..","..time.."("..id.."): Client already installed")
          file.close()
          print("("..id.."): Client already installed")
        else
          local file = fs.open("clients/"..id,"w")
          file.close()
          rednet.send(id, " Client installed")
          local file = fs.open("backups/serverlog","a")
          file.write(day..","..time.."("..id.."): Client installed")
          file.close()
          print("("..id.."): Client installed")
        end
      else
        fs.makeDir("clients")
        local file = fs.open("clients/"..id,"w")
        file.close()
        rednet.send(id, " Client installed")
        local file = fs.open("backups/serverlog","a")
        file.write(day..","..time.."("..id.."): Client installed")
        file.close()
        print("("..id.."):  Client installed")
      end
    elseif msg == "authenticate" then
      local file = fs.open("backups/serverlog","a")
      file.write(day..","..time.."("..id.."): Client authentication attempted")
      file.close()
      print("("..id.."): Client authentication attempted")
      if fs.exists ("clients/"..id) then
        rednet.send(id, "Client Authenticated")
        local file = fs.open("backups/serverlog","a")
        file.write(day..","..time.."("..id.."): Client Authenicated")
        file.close()
        print("("..id.."): Client Authenticated")
      else
        rednet.send(id, "Access Denied")
        local file = fs.open("backups/serverlog","a")
        file.write(day..","..time.."("..id.."): Authentication failed")
        file.close()
        print("("..id.."): Authentication failed")
      end
    elseif msg == "create" then
      if fs.exists("clients/"..id) then
        rednet.send(id, "continue")
        id,usr = rednet.receive()
        if fs.exists("users/" ..usr)then
          rednet.send(id, "declined")
          local file = fs.open("backups/serverlog","a")
          file.write(day..","..time.."("..id.."): Account "..usr" already created")
          file.close()
          print("("..id.."): Account "..usr.." already created")
        else
          rednet.send(id, "continue")
          id,pwd = rednet.receive()
          local file = fs.open("users/"..usr, "w")
          bank = {Name = usr, Password = pwd, Balance = 1000}
          file.write(textutils.serialize(bank))
          file.close()
          rednet.send(id, "created")
          local file = fs.open("backups/serverlog","a")
          file.write(day..","..time.."("..id.."): Account "..usr.." created")
          file.close()
          print("("..id.."): Account "..usr.." created")
        end
      else rednet.send(id, "declined")
        local file = fs.open("backups/serverlog","a")
        file.write(day..","..time.."("..id.."): Unknown command "..msg.." entered")
        file.close()
        print("("..id.."): Unknown command "..msg.." entered")
      end
    end
  end
else
  local id = os.getComputerID()
  fs.makeDir("server")
  local file = fs.open("server/id","w")
  file.write(id)
  file.close()
  local file = fs.open("backups/serverlog","a")
  file.write(day..","..time.."("..id.."): Server Created")
  file.close()
  print("This Server's ID is "..id)
  sleep(5)
end