Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- adminId = "ADMIN"
- function OpenAll()
- for _,side in ipairs(rs.getSides()) do
- rednet.open(side)
- end
- end
- function split(str, pat)
- local t = { }
- local fpat = "(.-)"..pat
- local last_end = 1
- local s, e, cap = str:find(fpat, 1)
- while s do
- if s ~= 1 or cap ~= "" then
- table.insert(t,cap)
- end
- last_end = e+1
- s, e, cap = str:find(fpat, last_end)
- end
- if last_end <= #str then
- cap = str:sub(last_end)
- table.insert(t, cap)
- end
- return t
- end
- function runApp()
- OpenAll()
- id, msg, d = rednet.receive()
- if msg ~= nil then
- t = split(msg, "!SP!")
- usr = t[1]
- cmd = t[2]
- print("--------------------------------------------------")
- print("USER: "..usr)
- print("COMMAND: "..cmd)
- if cmd == "search" then
- usr2 = t[3]
- print("USER 2: "..usr2)
- print("--------------------------------------------------")
- elseif cmd == "status update" then
- status = t[3]
- print("STATUS: "..status)
- print("--------------------------------------------------")
- elseif cmd == "makeUser" then
- password = t[3]
- print("PASSWORD: "..password)
- print("--------------------------------------------------")
- elseif cmd == "logIn" then
- password = t[3]
- print("PASSWORD: "..password)
- print("--------------------------------------------------")
- elseif cmd == "sndfrq" then
- usr2 = t[3]
- print("USER 2: "..usr2)
- print("--------------------------------------------------")
- elseif cmd == "add friend" then
- usr2 = t[3]
- print("USER 2: "..usr2)
- print("--------------------------------------------------")
- elseif cmd == "list" then
- print("--------------------------------------------------")
- elseif cmd == "deleteUser" then
- usr2 = t[3]
- print("--------------------------------------------------")
- elseif cmd == "listUsers" then
- print("--------------------------------------------------")
- end
- if cmd == "search" then
- if fs.isDir("RedBook/"..usr2) == false then
- rednet.send(id, "USER DOES NOT EXIST")
- else
- if fs.exists("RedBook/"..usr2.."/status") == true then
- usrstatus1 = fs.open("RedBook/"..usr2.."/status", "r")
- usrstatus = usrstatus1.readAll()
- usrstatus1.close()
- end
- x = usr2.."!SP!"..usrstatus.."!SP!"
- rednet.send(id, x)
- end
- runApp()
- elseif cmd == "status update" then
- f = fs.open("RedBook/"..usr.."/status", "w")
- f.write(status)
- f.close()
- runApp()
- elseif cmd == "list" then
- h = fs.open("RedBook/"..usr.."/friendlist", "a")
- h.close()
- friends = fs.open("RedBook/"..usr.."/friendlist", "r")
- xyz = friends.readAll()
- print(xyz)
- rednet.send(id, xyz)
- runApp()
- elseif cmd == "sndfrq" then
- check = fs.open("RedBook/"..usr2.."/friendlist", "r")
- chck2 = check.readAll()
- chck3 = split(chck2, "!SP!")
- check.close()
- a = fs.open("RedBook/"..usr2.."/friendreq", "a")
- a.write("RedBook/"..usr.."!SP!")
- a.close()
- runApp()
- elseif cmd == "chck frnd req" then
- if fs.exists("RedBook/"..usr.."/friendreq") == false then
- go = fs.open(usr.."/friendreq", "a")
- go.close()
- end
- chck = fs.open("RedBook/"..usr.."/friendreq", "r")
- cv = chck.readAll()
- chck.close()
- clear = fs.open("RedBook/"..usr.."/friendreq", "w")
- clear.close()
- print(cv)
- rednet.send(id, cv)
- print("SENT")
- print("--------------------------------------------------")
- chck.close()
- runApp()
- elseif cmd == "add friend" then
- print(usr2)
- nFriend = usr2.."!SP!"
- nFriend2 = usr.."!SP!"
- print(nFriend)
- gol = fs.open("RedBook/"..usr.."/friendlist", "a")
- gol.write(nFriend)
- gol.close()
- gold = fs.open("RedBook/"..usr2.."/friendlist", "a")
- gold.write(nFriend2)
- gold.close()
- runApp()
- elseif cmd == "logIn" then
- if fs.isDir("RedBook/"..usr) == true then
- w = fs.open("RedBook/"..usr.."/password", "r")
- y = w.readAll()
- if y == password then
- rednet.send(id, "YOU HAVE BEEN LOGGED IN")
- else
- rednet.send(id, "ERROR: WRONG PASSWORD")
- end
- else
- rednet.send(id, "ERROR: WRONG USERNAME")
- end
- runApp()
- elseif cmd == "makeUser" then
- fs.makeDir("RedBook/"..usr)
- make1 = fs.open("RedBook/"..usr.."/friendreq", "a")
- make1.close()
- make2 = fs.open("RedBook/"..usr.."/status", "a")
- make2.close()
- make3 = fs.open("RedBook/"..usr.."/friendlist", "a")
- make3.close()
- make4 = fs.open("RedBook/"..usr.."/password", "w")
- make4.write(password)
- make4.close()
- rednet.send(id, "USER HAS BEEN CREATED")
- runApp()
- elseif cmd == "listUsers" and usr == "ADMIN" then
- list = fs.list("RedBook/")
- list2 = textutils.serialize(list)
- rednet.send(adminId, list2)
- runApp()
- elseif cmd == "deleteUser" and usr == "ADMIN" then
- if fs.exists("RedBook/"..usr2) then
- fs.delete("RedBook/"..usr2)
- rednet.send(adminId, "USER IS GONE >:^D")
- else
- rednet.send(adminId, "USER DOES NOT EXIST")
- end
- runApp()
- end
- end
- end
- runApp()
Add Comment
Please, Sign In to add comment