get

hostname="http://www.example.com"
page="/path/to/paste.php"

local function printUsage()
    print( "Usages:" )
    print( "get [file,proj] <filename>" )
end

local tArgs = { ... }
if #tArgs < 2 then
    printUsage()
    return
end


if not http then
    print( "get requires http API" )
    print( "Set enableAPI_http to 1 in mod_ComputerCraft.cfg" )
    return
end

-- Download a file from www.example.com
print()

if tArgs[1] == "file" then
    -- Determine file to download
    local sFile = tArgs[2]

    -- GET the contents
    print( "-Get from "..hostname.."-" )
    write("Connecting.. ")
    local response = http.get( hostname..page.."?f="..sFile )

    if response then
        local sResponse = response.readAll()

        print("Success.")
        write("Getting \""..sFile.."\".. ")
        if sResponse and (sResponse ~= "") then
            print( "Success." )

            response.close()

            write( "Saving as \""..sFile.."\".. " )

            local sPath = shell.resolve( sFile )
            if fs.exists( sPath ) then
                fs.delete( sPath )
            end

            local file = fs.open( sPath, "w" )
            file.write( sResponse )
            file.close()

            print("Success.")


        else
            error("No file exists.")
        end
    else
        error( "Connection failure." )
        exit(1)
    end

elseif tArgs[1] == "proj" then


    if not fs.exists("/split") then
        print("---Getting get dependencies---")
        ret, err = pcall( shell.run, "/get", "file", "/split")

        if not ret then
            error("Unable to get dependency \"split\":\n"..err)
        else
            print()
        end
    end

    dofile("/split")

    -- Determine proj to download
    local sFile = tArgs[2]
    print( "---Get proj from "..hostname.."---" )
    write("Connecting.. ")
    local response = http.get( hostname..page.."?p="..sFile )

    if response then
        local sResponse = response.readAll()
        print("Success.")
        write("Extracting project info.. ")

        if sResponse and sResponse ~= "" then
            projArr = split(sResponse, '\n')
            print( "Success." )
            print("\n---Project Contents---")

            local projNum = table.getn(projArr)

            for i=1,projNum do
                print("> "..projArr[i])
            end

            local dir = shell.dir()
            if not dir or dir == "" then
                dir = "/"
            end

            filePath = fs.combine(dir, sFile)
            write("\nInstall project to \""..filePath.."\"? [Y/n] ")
            input = read()

            if not input
                or (input == "n")
                or (input == "N")
                or (input == "no")
                or (input == "No")
                or (input == "NO")
                then

                print("Installation cancelled by user.")
                return
            end

            print("\n---Downloading files to "..filePath.."---")

            if fs.exists(filePath) then
                fs.delete(filePath)
            end
            fs.makeDir(filePath)

            shell.setDir(filePath)
            for i=1,projNum do
                write("\n["..i.."/"..projNum.."]")
                ret, err = pcall( shell.run, "/get", "file", projArr[i])

                if not ret then
                    print("Error: One or more files failed to download:")
                    print(err)
                    break
                end
            end
            shell.setDir(dir)
            if not ret then
                fs.delete(filePath)
            end

        end
    end
else
    printUsage()
end