ChatListener

function hasValue(tab,val,keySearch)
    for k,v in pairs(tab) do
        if keySearch then
            if k == val then
                return true
            end
        else
            if v == val then
                return true
            end
        end
    end
end
function split(s, delimiter)
    result = {}
    for match in (s..delimiter):gmatch("(.-)"..delimiter) do
        table.insert(result, match)
    end
    return result
end
function showValidCommands()
  s = ""
    for _,_command in pairs(validCommands) do
      s = s .. _command .. ","
    end
    return s
end
function config(action)
    if action == "load" then
        if fs.exists("chatConfig.json") then
            file = fs.open("chatConfig.json","r")
            _data = textutils.unserialize(file.readAll())
            print(_data)
            owners = _data.owners or {"YourNameHere"}
            file.close()
        else
            owners = {"YourNameHere"}
            config("save")
        end
    elseif action == "save" then
        _data = {}
        _data.owners = owners
        file = fs.open("chatConfig.json","w")
        file.write(textutils.serialize(_data))
        file.close()
    end

end
owners = {}
config("load")
requesterListFull = {"Alchemist", "Archer in Training", "Baker", "Beekeeper", "Blacksmith", "Builder", "Carpenter",
"Chicken Farmer", "Composter", "Concrete Mixer", "Cook", "Assistant Cook", "Courier", "Cowhand",
"Crusher", "Dyer", "Enchanter", "Farmer", "Fisher", "Fletcher", "Flourist", "Forester", "Glassblower",
"Doctor", "Knight", "Archer", "Druid", "Knight in Training", "Library Student", "Mechanic", "Miner", "Planter",
"Pupil", "Rabbit Herder", "Carpenter", "Student", "Shepherd", "Sifter", "Smelter", "Stonemason", "Stone Smelter", "Swineherd",
"Teacher", "Undertaker", "Researcher", "Quarrier", "Request System"}
validCommands = {
    "add",
    "rm",
    "list",
    "jobs",
    "output",
    --"view",
    "restart",
    "arShowAll",
    "doRequests",
    "update",
    "help"}
validMainCommand = {"$rq", "rq", "requestmanager", "$requestmanager"}
chat = peripheral.find("chatBox")
while true do
    event, player, msg = os.pullEvent("chat")
    print(player)
    --Check owners list
    if hasValue(owners,player) then
        passes = true
        inputs = split(msg, " ")
        --check if its a command for this program
        if hasValue(validMainCommand,inputs[1]) then
            print("found command")
            command = inputs[2]
            --check if it has a proper sub command
            if command == "whoisoutthere" then
                chat.sendMessage("Colony Owner - " .. owners[1], "Request Manager")
                passes = false
            end
            if command == nil or hasValue(validCommands,command) ~= true or command == "help" then
                chat.sendMessageToPlayer(tostring(command) .. " is not a valid command. Valid Commands are: " .. showValidCommands(),player)
                passes = false
            end
            if command == "restart" then
                chat.sendMessageToPlayer("Restarting the Computer",player)
                os.reboot()
            end
            if command == "update" then
                chat.sendMessageToPlayer("Updating, then Restarting the Computer",player)
                os.run({},"update.lua")
                --os.reboot()
                -- if fs.exists("chatListener.lua") then fs.delete("chatListener.lua") end
                -- if fs.exists("colonyInfo.lua") then fs.delete("colonyInfo.lua") end
                -- if fs.exists("requestManager.lua") then fs.delete("requestManager.lua") end
                -- if fs.exists("monitorManager.lua") then fs.delete("monitorManager.lua") end
                -- shell.run("pastebin get Taa1i9Tn chatListener.lua")
                -- shell.run("pastebin get wVz0Kg0N colonyInfo.lua")
                -- shell.run("pastebin get rSDtwYBe requestManager.lua")
                -- shell.run("pastebin get bVQbY1qL monitorManager.lua")
                -- if not fs.exists("startup.lua") then
                --  file = fs.open("startup.lua", "w");
                --  file.write("shell.execute('requestManager.lua')")
                --  file.close()
                -- end
                -- os.reboot()
            end
            -- extract job from the arguments
            arg = inputs[3] or ""
            job = ""
            if command == "add" or command == "rm" then
                for i=3, #inputs, 1 do
                    job = job .. inputs[i]
                    if i ~= #inputs then
                      job = job .. " "
                    end
                end
                -- check if job name if valid
                if hasValue(requesterListFull,job) ~= true then
                -- check if its already on the list.
                    jobList = ""
                    for i=1,#requesterListFull do
                        jobList = jobList .. requesterListFull[i] .. ", "
                    end
                    chat.sendMessageToPlayer(job .. " is not a valid job. Valid Jobs are: " .. jobList,player)
                    passes = false
                else
                    arg = job
                end
            elseif command == "output" then
                if #inputs < 6 then
                    chat.sendMessageToPlayer("Command Usage: rq output inventory x y z   Example: rq output minecraft:chest_1 20 65 -10",player)
                    passes = false
                else
                    arg = textutils.serialize({{x=inputs[4],y=inputs[5],z=inputs[6]},inputs[3]})
                end
            else
                arg = inputs[3]
            end
            -- pass on command to requestManager to handle.
            if passes then
                print("Sending request " .. command .. " " .. tostring(arg) .. " for " .. player)
                os.queueEvent("request",command, arg, player, subArg)
                -- start a timer and wait for a responce back
                myTimer = os.startTimer(0.5)
                while true do
                    event,k1 = os.pullEvent()
                    --resend event/timer if timed out
                    if event == "timer" and k1 == myTimer then
                        os.queueEvent("request",command, arg, player, subArg)
                        myTimer = os.startTimer(0.5)
                        --print("sending re-request")
                    end
                    --break out of confirm loop on proper confirmation
                    if event == "confirm" then
                        print("Transaction Complete")
                        break
                    end
                end
            end
        end
    end
end