cx4 - ComputerCraft Cloud Chest

function Chest(chest)
    chestID = chest
end

function Target(chest)
    if (not chestID) then
        error("A Cloud Chest has not been specified yet.  First call Chest(id) where the id is your cx4 Chest key.")
    end
    return chestID
end

function Set(location, data)
    if (not chestID) then
        error("A Cloud Chest has not been specified yet.  First call Chest(id) where the id is your cx4 Chest key.")
    end
    url = "http://boomtree.com/guid/" .. chestID .. ".cc?location=" .. location
    local ret = http.post(url, data)
    print(ret.readAll())
end

function Get(location)
    url = "http://boomtree.com/guid/" .. chestID .. ".cc?location="..location
    loop = true
    http.request(url)

    event, returnurl, response = os.pullEvent()
    while loop == true do
        if event == "http_success" then
            return response.readAll()
        else
            print("The request failed.")
            return
        end
    end
end