local component = require("component")
local shell = require("shell")
local fs = require("filesystem")
local su = require("superUtiles")
local unicode = require("unicode")
local internet = component.internet

----------------------------------------------------

local args, options = shell.parse(...)
local url = args[1]
local installpath = args[2]

----------------------------------------------------

local function getInternetFile(url)
    local handle, data, result, reason = internet.request(url), ""
    if handle then
        while true do
            result, reason = handle.read(math.huge)	
            if result then
                data = data .. result
            else
                handle.close()
                
                if reason then
                    return nil, reason
                else
                    return data
                end
            end
        end
    else
        return nil, "unvalid address"
    end
end

local function split(str, sep)
    local parts, count = {}, 1
    for i = 1, unicode.len(str) do
        local char = unicode.sub(str, i, i)
        if not parts[count] then parts[count] = "" end
        if char == sep then
            count = count + 1
        else
            parts[count] = parts[count] .. char
        end
    end
    return parts
end

----------------------------------------------------

local filelist, err = getInternetFile(url.."/filelist.txt")
if not filelist then error(err) end
filelist = split(filelist, "\n")

----------------------------------------------------

_G.installFiles = #filelist
for i = 1, #filelist do
    _G.installedFiles = i
    local file = filelist[i]
    local fileurl = url..file
    local filedata, err = getInternetFile(fileurl)
    local fullPath = fs.concat(installpath, file)
    if not options.q then print(fullPath) end
    if filedata then
        su.saveFile(fullPath, filedata)
    else
        if not options.q then print("error: "..(err or "unlown")) end
    end
    os.sleep()
end