Rednet Explorer 3.1 Beta

-----------------------------------
--Welcome to Rednet Explorer 3.1!--
-----------------------------------
--Made by ComputerCraftFan11 (IGN: xXm0dzXx)
--Please don't steal this without giving credits.
--To change the database of the sites you are connecting to, edit this:
local WebsiteDatabase = "http://nexusindustries.x10.mx/Websites/folder/" --Folder with all the sites
local ApiPath = "http://nexusindustries.x10.mx/Websites/mcmain.php" --Path API is stored
--All sites will be downloaded from there.
--Default: "http://nexusindustries.x10.mx/Websites/folder/"
--Change to "http://" to just browse the internet
--API path is used for downloading and uploading files. Change it to the path of your API

local autoUpdater = true;
local updaterPath = "http://pastebin.com/1EAc6tFd"; --COMING SOON

--If you are making a custom version of this browser, edit this variable for browser compatibility
browserAgent = "rednetexplorer3.0"

local x,y = term.getSize()
local language = 1 --1 = LUA
local EditingValue = "";

function rednetV()
    return "3.1"
end

title = "Rednet Explorer " ..rednetV() --Add title = "name" to change the webpage's title!
local website = "home";
if fs.exists(".cache") then fs.delete(".cache") end
if fs.exists(".websiteedited") then fs.delete(".websiteedited") end
fs.makeDir(".cache")

function displayError()
    print("Unable to connect.")
    print("\n1) The requested site may be down or doesn't exist.")
    print("2) You mistyped the website URL.")
    print("3) A database admin may have deleted the requested site.")
    print("4) A server admin may have blocked this website (Only if you are on multiplayer)")
    print("5) The database might be down.")
    print("6) The requested site may have faked this message and secretly gave you a virus.")
end

local cPrint = function(text)
    local x2,y2 = term.getCursorPos()
    term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), y2)

    print(text)
end

function reDirect(url)
    website = url
    loadWebpage()
end

function createSite()
    term.clear()
    term.setCursorPos(1,1)
    cPrint("Rednet Explorer Online Servers")
    write("Domain (ex: YourDomain.com): rdnt://")
    domain = read()
    write("Path to file: ")
    path = read()
    if fs.exists(path) then
        file = fs.open(path, "r")
        if file then
            data = file.readAll()
            file.close()
            if not data then
                print("Failed to read " ..path)
                return
            end
            local response = http.post(
            ApiPath,
            "type=upload&"..
            "user=guest&"..
            "pass=guest&"..
            "name=".. textutils.urlEncode(domain) .. "&"..
            "data=" ..textutils.urlEncode(data)
            )

            if response then
                local sResponse = response.readAll()
                response.close()
                print("Done!")
                print("Log: ")
                sleep(0.5)
                if string.find(sResponse, "success") then
                    print("Uploading " ..shell.resolve(path).. " complete!")
                    print("Errors: 0")
                    print("\nGo to " ..domain.. " to check the site!")
                else
                    print("Failed : " ..sResponse)
                    print()
                    if sResponse == "Write_lock" then
                        print("The write_lock error means you have been locked out from uploading because are a hacker, a troll, or a spammer that is trying to upload a file to mess up my database and you are gonna be hunted down and killed (not IRL) by my team :)\n\nFYI, your IP has been traced.")
                    end
                end
            else
                print("Failed to connect to database.")
            end
        else
            print("Failed to open " ..path)
        end
    else
        print(path.. " doesn't exist.")
    end
end

local Address = function()
    if WebsiteDatabase == "http://" then
        text = "http://"
    else
        text = "rdnt://"
    end
    term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), 2)
    term.clearLine()

    write(text)
    website = read()
    loadWebpage()
end

function done()
    term.setCursorPos(1, y)
    name = "F5 = Refresh"
    write("Press CTRL to travel the web! :D")
    term.setCursorPos(x - name:len(), y)
    write(name)

    while true do
        sleep(0) -- stop crashing
        e, k = os.pullEvent("key")
        if k == 63 then
            loadWebpage()
            break
        elseif k == 29 then
            Address()
            break
        end
    end
end


loadWebpage = function()
    term.clear()
    term.setCursorPos(1,1)
    cPrint(title)
    if WebsiteDatabase == "http://" then
        cPrint("http://" ..website.. "\n")
    else
        cPrint("rdnt://" ..website.. "\n")
    end

    if website == "home" then
        print("Welcome to RedNet explorer (3.0)! This requires you to HTTP enabled.")
        print("Host a website at:                ")
        print("rdnt://newsite!            ")
        print("Edit settings at:")
        print("rdnt://settings")
        print("   -ComputerCraftFan11    ")
    elseif website == "newsite" then
        createSite()
    elseif website == "settings" then --COMING SOON
        selection = 1
        function lzy(aa, bb)
            term.setCursorPos(1,bb + 1)
            if aa == selection then
                cPrint("[ " ..bb.. " ]")
            else
                cPrint(bb)
            end
        end

        while true do
            term.clear()
            term.setCursorPos(1,1)
            cPrint("RedNet Explorer Settings")
            local event, key = os.pullEvent("key")
            if key == 208 then
                selection = selection +1
                if selection == 5 then selection = 4 end
            elseif key == 200 then
                selection = selection -1
                if selection == -1 then selection = 1 end
            elseif key == 28 then
                print("Coming Soon!")
                break
            end

            lzy(1, "Edit Homepage")
            lzy(2, "Edit Execution Settings")
            lzy(3, "Edit Database Settings")
            lzy(4, "Exit")

            --Options:
            --Homepage: rdnt://home
            --Execution Settings:
            --  Lua (Default) (.lua)
            --  Batch (BETA) (.bat)
            --  HTML (BETA) (.html)
            --  Text Document (.txt)
            --Database Settings:
            --  Edit Whitelist
            --  Edit Blacklist
            --  Edit Database folder:
            --  Edit Database path:
        end
    else
        title = "Rednet Explorer " ..rednetV()
        rednet.broadcast(website)
        print("Connecting...")
        website1 = "Rednet_Explorer_RequestedSite"

        if WebsiteDatabase == "http://" then
            while true do
                http.request(WebsiteDatabase..website)
                timer = os.startTimer(5)
                local event, body, url = os.pullEvent()
                if event == "http_success" then
                    if language == 1 then
                        if fs.exists(".cache/" ..website1) then fs.delete(".cache/" ..website1) end
                        webpage = fs.open(".cache/" ..website1, "w")
                        webpage.write(body.readAll())
                        webpage.close()
                        term.clear()
                        term.setCursorPos(1,1)
                        cPrint(title)
                        if WebsiteDatabase == "http://" then
                            cPrint("http://" ..website.. "\n")
                        else
                            cPrint("rdnt://" ..website.. "\n")
                        end
                        shell.run(".cache/" ..website1)
                        break
                    end
                elseif event == "http_failed" then
                    displayError()
                elseif event == "timer" and body == timer then
                    print("Failed to connect:")
                    print("* Read timed out.")
                end
            end
        else
            local response = http.post(
            ApiPath,
            "user=guest&"..
            "pass=guest&"..
            "type=download&"..
            "data=blank&"..
            "name=".. textutils.urlEncode(website)
            )

            if response then
                local body = response.readAll()
                response.close()
                if body == nil or body == "" or string.find(body, "auth_error") or string.find(body, "file_not_found") then
                    displayError()
                else
                    if language == 1 then
                        if fs.exists(".cache/" ..website1) then fs.delete(".cache/" ..website1) end
                        webpage = fs.open(".cache/" ..website1, "w")
                        webpage.write(body)
                        webpage.close()
                        term.clear()
                        term.setCursorPos(1,1)
                        cPrint(title)
                        if WebsiteDatabase == "http://" then
                            cPrint("http://" ..website.. "\n")
                        else
                            cPrint("rdnt://" ..website.. "\n")
                        end
                        if string.sub(body, 1, string.len("--%warn%")) == "--%warn%" then
                            print("Warning, you are about to enter a malicous site.")
                            print("Would you like to continue? (Y/N) ")
                            while true do
                                input = read()
                                if input == "Y" then
                                    shell.run(".cache/" ..website1)
                                elseif input == "N" then
                                    print("Aborted.")
                                    break
                                else
                                    print("Unknown input... exiting.")
                                    break
                                end
                            end
                        else
                            shell.run(".cache/" ..website1)
                        end
                    end
                end
            else
                displayError()
            end
        end
    end

    done()
end

loadWebpage()