ServerStartup.lua - A.1.2.11

function checkForCommand()
    printMessage(nil, "Waiting for Command, waiting "..commandTimer.." seconds.")
    local id, message, protocol = rednet.receive(commandTimer)
    checkForCommand_attempts = checkForCommand_attempts + 1 --Waits a bit to check for a command again, prints number of attempts and the clock
    os.sleep(sleepTimer)
    cleanTerm()
    printMessage(nil, "Command check Attempts: "..checkForCommand_attempts)
    return message, id
end

function printMessage(mode, message) --For fancy messages
    if aY == termYsize - 1 then
        term.clear()
        term.setCursorPos(1, 1)
    end
    if not mode then mode = "[Server]: "
    elseif mode == 0 then mode = "[Server]:" message = "-------------------------------------------------------------------------------------------"
    elseif mode == 1 then mode = "[Error]: "
    elseif mode == 2 then mode = "[Door]: "
    elseif mode == 3 then mode = "[Lights]: "
    elseif mode == "-" then mode = ""
    else mode = "nil:"
    end
    aX, aY = term.getCursorPos()
    term.write(tostring(mode)..tostring(message))
    term.setCursorPos(1, aY+1)
end

function cleanTerm()
    local bX, bY = term.getCursorPos()
    local runningtime = os.clock()
    term.setCursorPos(1, termYsize - 1)
    printMessage(nil, "Current computer runtime: "..runningtime.."                                                      ")
    term.setCursorPos(bX, bY)
end

function errorHandle() --Just to ennumarate the errors

    if setHost_fail then
        printMessage(1, "The function setHost() failed.")
        errorCount = errorCount + 1
    end

    if checkForModem_fail then
        printMessage(1, "The function checkForModem() failed.")
        errorCount = errorCount + 1
    end

end

--[[Action Functions]]--
    function action_ping()
        rednet.send(senderID, "pong!", "Success")
    end

    function action_time()
        local gameTime = os.time()
        local gameTime_floor = math.floor(gameTime)
        rednet.send(senderID, gameTime_floor, "Success")
    end

    function action_door(timer)
        redstone.setOutput("front", true)
        rednet.send(senderID, "Door is open", "stayOn")
        printMessage(2, "Leaving Door open for "..timer.." seconds")
        rednet.send(senderID, "Door open for "..timer.." seconds", "stayOn")
        os.sleep(tonumber(timer))
        printMessage(2, "Timer depleted, closing door...")
        rednet.send(senderID, "Closing door...", "stayOn")
        redstone.setOutput("front", false)
        printMessage(2, "Door closed.")
        rednet.send(senderID, "Door closed.", "stayOn")
        os.sleep(1)
        rednet.send(senderID, "actionEnd", "stayOn")
    end

function action_lights(lights)
    if lights == 1 then
        local isOn = redstone.getOutput("back")
        if isOn then
            redstone.setOutput("back", false)
            printMessage(3, "Light EnchantTop turned off")
        else
            redstone.setOutput("back", true)
            printMessage(3, "Light EnchantTop turned on")
        end
    end
end
--[[Action Functions end]]--

function senderID_username(mode, id, username)
    if mode == "add" then
        usernameRegistry[id] = username
    else
        return usernameRegistry[id]
    end
end

function checkPerms(id)
    if id == 1 then
        printMessage(nil, senderID.."'s privileges has been checked and command was accepted.")
        return true
    else
        printMessage(nil, senderID.."'s privileges has been checked and command was denied.")
        return false
    end
end

function startup()
    -- protocol hierarchy list MUST BE TOP ROW IN EVERY startup() FUNCTION
        protocolLv1 = "alpha"
        protocolLv2 = "beta"
        protocolLv3 = "gamma"
        protocolLv4 = "delta"
    -- end

    -- local host settings
        server1_protocol = protocolLv1
        server1_host = "houseServer"
    -- end

    -- static hosts settings
        --nil
    -- end

    -- global variables
        errorCount = 0
        checkForCommand_attempts = 0
        sleepTimer = 1
        commandTimer = 20
        modemPos = "top"
        termXsize = 71
        termYsize = 40
        aX, aY = term.getCursorPos()
        SERVER_VERSION = "A.1.2.11"
        usernameRegistry = {}
    -- end

    --peripherals
        monitor = peripheral.wrap("left")
        term.redirect(monitor)
        term.clear()
        term.setCursorPos(1,1)
        rednet.open(modemPos)
    -- end

    errorHandle()
        if errorCount == 1 then
        printMessage(nil, "Succesfully started with "..errorCount.." error.")
    elseif errorCount == 0 then
        printMessage(nil, "Succesfully started with no errors")
    elseif errorCount >= 2 then
        printMessage(nil, "Succesfully started with "..errorCount.." errors.")
        end

    modemState = rednet.isOpen(modemPos)
    if not modemState then
        setHost_fail = true
        printMessage("-", tostring(setHost_fail))
    else
        rednet.host(server1_protocol, server1_host)
        setHost_fail = false
        printMessage(nil, "Succesfully hosted "..server1_protocol..":"..server1_host..".")
    end
    printMessage(nil, "Running Server version '"..SERVER_VERSION.."' with '".._VERSION.."' by --DiegoG")
    serverStarted = true
end

if not startup_fail then
    startup()
end

while true do --Main loop
    received_command, senderID = checkForCommand()

        if received_command == "ping" then
            printMessage(nil, "Received command: 'ping'")
            printMessage(nil, "Executing function: 'action_ping()' for "..senderID_username(nil, senderID, nil))
            action_ping()
            printMessage(0, nil)

        elseif received_command == "request_commands" then
            printMessage(nil, "Received command: 'request_commands'")
            printMessage(nil, "Sending command list to: "..senderID_username(nil, senderID))
            rednet.send(senderID, "ping, time, door \n shutdown, reboot", "CommandList") --Up to three commands per line
            printMessage(0, nil)

        elseif received_command == "time" then
            printMessage(nil, "Received command: 'time'")
            printMessage(nil, "Executing function: 'action_time()' for "..senderID_username(nil, senderID, nil))
            action_time()
            printMessage(0, nil)

        elseif received_command == "identity" then
            printMessage(nil, "Received command: 'identity'")
            rednet.send(senderID, true, "Success")
            printMessage(nil, "Waiting 5 seconds for identity from: "..senderID)
            local user_id, user_message, user_protocol = rednet.receive(5)
            if user_id then
                printMessage(nil, "Storing identity data for: "..senderID)
                senderID_username("add", senderID, user_message)
            else
                printMessage(1, "Half Command")
            end

        elseif received_command == "door" then
            printMessage(nil, "Received command: 'door'")
            rednet.send(senderID, "stayOn", "stayOn")
            printMessage(nil, "stayOn request issued. Waiting 10 seconds for response")
            idDOOR, messageDOOR, protocolDOOR = rednet.receive(10)
            if idDOOR then
                rednet.send(senderID, "Please input a timer", "stayOn")
                os.sleep(1)
                rednet.send(senderID, "actionREAD", "stayOn")
                printMessage(nil, "Waiting for input")
                local idDOOR1, messageDOOR1, protocolDOOR1 = rednet.receive(10)
                if idDOOR1 then
                    printMessage(nil, "Executing function: 'action_door()' for "..senderID_username(nil, senderID, nil).." with "..messageDOOR1.." seconds timer")
                    action_door(messageDOOR1)
                    printMessage(0, nil)
                end
            else
                printMessage(1, "Half Command")
            end

        elseif received_command == "shutdown" then
            printMessage(nil, "Received command: 'shutdown'")
            local canDo = checkPerms(senderID)
            if canDo then
                printMessage(nil, "Shutting down server...")
                rednet.send(senderID, 1, "Success")
                os.sleep(2)
                term.clear()
                os.shutdown()
            else
                printMessage(1, "Could not verify "..senderID_username(nil, senderID, nil))
                rednet.send(senderID, 0, "Failure")
            end

        elseif received_command == "reboot" then
            printMessage(nil, "Received command: 'reboot'")
            local canDo = checkPerms(senderID)
            if canDo then
                printMessage(nil, "Rebooting server...")
                rednet.send(senderID, "Rebooting server...", "Success")
                os.sleep(2)
                term.clear()
                os.reboot()
            else
                printMessage(1, "Could not verify "..senderID_username(nil, senderID, nil))
                rednet.send(senderID, "Could not verify perms", "Failure")
            end

        elseif received_command == "lights" then
            printMessage(nil, "Received command: 'lights'")
            rednet.send(senderID, "stayOn", "stayOn")
            printMessage(nil, "stayOn request issued. Waiting 10 seconds for response")
            local idLights1, messageLights1, protocolLights1 = rednet.receive(10)
            if idLights1 then
                rednet.send(senderID, "Please input which light", "stayOn")
                os.sleep(1)
                rednet.send(senderID, "EnchantTop")
                os.sleep(1)
                rednet.send(senderID, "actionREAD", "stayOn")
                printMessage(nil, "Waiting for input")
                local idLights2, messageLights2, protocolLights2 = rednet.receive(10)
                if idLights2 then
                    printMessage(nil, "Executing function: 'action_lights()' for "..senderID_username(nil, senderID, nil).." to "..messageLights2.." light ")
                    local lights_success = action_lights(messageLights2)
                    if lights_success then
                        printMessage(nil, "Function 'action_lights()' returned successful")
                        rednet.send(senderID, "Success", "Success")
                    else
                        printMessage(nil, "Function 'action_lights()' returned failure")
                        rednet.send(senderID, "Fail", "Failure")
                    printMessage(0, nil)
                    end
                else
                    printMessage(1, "Half Command")
                end
            else
                printMessage(1, "Half Command")
            end

        elseif received_command or senderID then
            printMessage(1, "A command received, but it was invalid. Command: "..tostring(received_command))
            rednet.send(senderID, "Unknown Command", "Failure")
        else
            printMessage(nil, "No command was received, resting for "..sleepTimer.." seconds")
            printMessage(0, nil)
        end
end

--DiegoG
--Last edit 24/10/2016
--Created on 11/10/2016