browser v1.11

state1 = "Actions: [Download] Run  Cancel"
state2 = "Actions:  Download [Run] Cancel"
state3 = "Actions:  Download  Run [Cancel]"
local items = {}
local types = {}
local href = {}
local selection = nil
local title = nil
local url = nil
local scroll = nil

term.clear()
term.setCursorPos(1, 1)
print("Welcome!")
print("=================================================")
print("Use the arrow keys to navigate")
print("Press enter to download/run files or open folders")
print("Press \"Q\" to exit the browser")
print(" ")
print("Server address:")
write("http://")
local address = read()
start = ("http://" .. address)
if string.sub(string.len(start), string.len(start)) == "/" then
home = start
else
home = (start .. "/")
end

function debug(msg)
term.setCursorPos(1,1)
    term.clearLine()
    write(msg)
    sleep(2)
end

local function contains(string, pattern)
local a = string.find(string, pattern)
if a ~= nil then
return true
else
return false
end
end

local function downloadrun(side)
term.setCursorPos(1, 1)
term.clearLine()
if side == "state1" then
    write(state1)
    event, key = os.pullEvent("key")
    if key == 205 then
        return downloadrun("state2")
    elseif key == 28 then
        return "download"
    else
        return downloadrun("state1")
    end
elseif side == "state2" then
    write(state2)
    event, key = os.pullEvent("key")
    if key == 203 then
        return downloadrun("state1")
    elseif key == 205 then
        return downloadrun("state3")
    elseif key == 28 then
        return "run"
    else
        return downloadrun("state2")
    end
elseif side == "state3" then
    write(state3)
    event, key = os.pullEvent("key")
    if key == 203 then
        return downloadrun("state2")
    elseif key == 28 then
        return "cancel"
    else
        return downloadrun("state3")
    end
end
end

local function drawGUI(items, scroll, selection, title, types)
while true do
term.clear()
term.setCursorPos(1,1)
write(title)
term.setCursorPos(1,2)
write("=================================================")
for i = 1+scroll, #types do
term.setCursorPos(45, (i+2)-scroll)
write(types[i])
end
for d = 1+scroll, #items do
term.setCursorPos(3, (d+2)-scroll)
write(items[d])
end
local length = string.len(items[selection])
term.setCursorPos(2, (selection+2)-scroll)
term.write("[")
term.setCursorPos(3+length, (selection+2)-scroll)
term.write("]")
event, key = os.pullEvent("key")
if key == 208 then
term.setCursorPos(2, (selection+2)-scroll)
term.write(" ")
term.setCursorPos(3+length, (selection+2)-scroll)
term.write(" ")
    if selection == #items then
    elseif selection == scroll+16 then
        selection = selection+1
        scroll = scroll+1
    else
        selection = selection+1
    end
elseif key == 200 then
term.setCursorPos(2, (selection+2)-scroll)
term.write(" ")
term.setCursorPos(3+length, (selection+2)-scroll)
term.write(" ")
    if selection == 1 then
    elseif selection == scroll+1 then
        selection = selection-1
        scroll = scroll-1
    else
        selection = selection-1
    end
elseif key == 28 then
    return(items[selection])
elseif key == 16 then
    sleep(0.2)
    return("Press Q to Exit")
else
end
end
end

local function process()
local f= io.open("/.tmpdata", "r")
f:read("*l")
f:read("*l")
f:read("*l")
f:read("*l")
f:read("*l")
f:read("*l")
local data = f:read("*l")
local titlestart = nil
local derp = nil
if string.find(data, "Index of /") == nil then
term.setCursorPos(1, 1)
term.clearLine()
error("Webaddress is not an Apache Server!")
end
titlestart = (string.find(data, "<h1>")+4)
local titleend = (string.find(data, "</h1>")-1)
title = string.sub(data, titlestart, titleend)
items = {}
types = {}
href = {}
local line = f:read("*l")
apachev = 1
if contains(line, "<table><tr><th>") then
apachev = 2
line = f:read("*l")
end
while contains(line, "<li>") or contains(line, "</td><td>") do
rStart = (string.find(line, "<a href=")-4)
    lStart = string.find(line, "\"> ", rStart)
    if apachev == 2 then
    lStart = (string.find(line, "\">", rStart) + 2)
    else
    lStart = (string.find(line, "\"> ", rStart)+3)
    end
    lEnd = (string.find(line, "</a>", rStart) - 1)
    lData = string.sub(line, lStart, lEnd)
    table.insert(items, lData)
    hStart = (string.find(line, "<a href=\"", rStart) + 9)
    hEnd = (string.find(line, "\">", rStart) - 1)
    hData = string.sub(line, hStart, hEnd)
    table.insert(href, hData)
    if contains(lData, "Parent Directory") then
        lPStart = (string.find(line, "<a href=\"", rStart) + 9)
        lPEnd = (string.find(line, "\">", rStart) - 1)
        lPData = string.sub(line, lPStart, lPEnd)
        table.insert(types, "back")
    elseif contains(lData, "/") then
        table.insert(types, "dir")
    else
        table.insert(types, "file")
    end
    line = f:read("*l")
end
return title, items, types
end

local function isFile(filename, items, types)
for i = 1, #items do
if filename == items[i] and types[i] == "file" then
return true
end
end
return false
end

local function gethref(ref)
for i = 1, #items do
if items[i] == ref then
return href[i]
end
end
end


local function loadPage(url)
term.setCursorBlink(false)
term.setCursorPos(1, 1)
term.clearLine()
write("Connecting...")
local tmpF = http.get(url)
if tmpF == nil then
term.setCursorPos(1, 1)
term.clear()
error("Connection failed!")
end
local code = tmpF:readAll()
tmpF:close()
f = io.open("/.tmpdata", "w")
f:write(code)
f:close()
title, items, types = process()
newpage = drawGUI(items, 0, 1, title, types)
if isFile(newpage, items, types) then
        npage = gethref(newpage)
        dr = downloadrun("state1")
        if dr == "download" then
        term.setCursorPos(1, 1)
        term.clearLine()
        write("Download as: ")
        saveas = read()
        if contains(saveas, " ") or saveas == "" then
            return(url)
        else
            if contains(saveas, "/") then
                local reverse = string.reverse(saveas)
                local fDir = (string.len(saveas) - string.find(reverse, "/"))
                local cDir = string.sub(saveas, 1, fDir)
                if fs.exists(cDir) then
                    local tmpF = http.get(url .. npage)
                    local code = tmpF:readAll()
                    tmpF:close()
                    f = io.open(saveas , "w")
                    f:write(code)
                    f:close()
                    return(url)
                else
                    term.setCursorPos(1,1)
                    term.clearLine()
                    write("Directory does not exist! Press any key...")
                    os.pullEvent("key")
                    return(url)
                end
            end
            local tmpF = http.get(url .. npage)
            local code = tmpF:readAll()
            tmpF:close()
            f = io.open(saveas , "w")
            f:write(code)
            f:close()
            return(url)
        end
    elseif dr == "run" then
        local tmpF = http.get(url .. npage)
        local code = tmpF:readAll()
        tmpF:close()
        f = io.open("/.tmprun" , "w")
        f:write(code)
        f:close()
        term.clear()
        term.setCursorPos(1, 1)
        shell.run("/.tmprun")
        x, y = term.getCursorPos()
        if x > 6 then
            if y == 18 then
                term.setCursorPos(1, y)
                term.clearLine()
            else
                term.setCursorPos(1, y+1)
            end
        end
        print("Program ended. Press any key to continue")
        os.pullEvent("key")
        return(url)
    else
    return url
    end
else
if newpage == "Parent Directory" then
return(start .. lPData)
elseif newpage == "Press Q to Exit" then
return("exitcode")
else
npage = gethref(newpage)
return(url .. npage)
end
end
end

finish = loadPage(home)
while true do
if finish == "exitcode" then
term.clear()
term.setCursorPos(1,1)
break
end
finish = loadPage(finish)
end