UserM

-- USER MANAGER 2.1. DATABASE FILE AT C:/database
-- Thanks lots to "danielsv03" for helping me do this stuff.

-- Get database file and contents
if fs.exists("database") then
local hPeople = fs.open("database", "r")
local persols = hPeople.readAll()
hPeople.close()
local persons = textutils.unserialize(persols)

-- UserM.list()
function list()
for k,v in pairs(persons) do
if v.rank == "Teacher" then
print(v.name.." = Teacher")
elseif v.rank == "Student" then
print(v.name.." = Student")
else
print(v.name.." = "..v.rank)
end
end
end

-- UserM.getRank(<Name>)
function getRank( sArgs )
  if sArgs == nil then
    return nil
else
  for k,v in pairs(persons) do
    if v.name == sArgs then
      return v.rank
end
end
print("Person does not exist.")
end
end

-- UserM.getPermLevel(<Name>)
function getPermLevel( sArgs )
  if sArgs == nil then
    return nil
else
  for k,v in pairs(persons) do
    if v.name == sArgs then
    return v.PermLevel
end
end
print("Person does not exist.")
end
end

-- UserM.setPermLevel(<Name>, <PermLevel>)
function setPermLevel( sArgs, nArgs )
if sArgs == nil then
    return nil
else
  for k,v in pairs(persons) do
    if v.name == sArgs then
      v.PermLevel = nArgs
      return true
end
end
print("Person does not exist.")
end
end

-- UserM.userInfo(<Name>)
function userInfo( sArgs )
if sArgs == nil then
  return nil
else
  for k,v in pairs(persons) do
    if v.name == sArgs then
      return v.name, v.rank, v.PermLevel
end
end
print("Person does not exist.")
end
end

-- UserM.setUserName(<OldName>, <NewName>)
function setUserName( sArg, sArgs)
if sArg == nil then
  return nil
else
  for k,v in pairs(persons) do
    if v.name == sArg then
      v.name = sArgs
      return true
end
end
print("Person does not exist.")
end
end

-- UserM.setRank(<Name>, <Rank>)
function setRank( sArg, sArgs)
if sArg == nil then
  return nil
else
  for k,v in pairs(persons) do
    if v.name == sArg then
      v.rank = sArgs
      return true
end
end
print("Person does not exist.")
end
end

-- UserM.save() (ADDED IN 2.1)
function save()
  local persols = textutils.serialize(persons)
  local hWrite = fs.open("database", "w")
  hWrite.write(persols)
  hWrite.close()
  return true
end
else
shell.run("pastebin get NJHfssa9 database")
print("Downloaded example database file. Feel free to edit it!")
shell.run(shell.getRunningProgram())
end