Pastebin test

-- Pastebin get/put test program
-- pastebin.com/25xQ8LwT

--[[
    Original get/put code borrowed from:
    [API] Pastebin
    @version 1.0, 02/05/2014, TOB
    @author TheOddByte, TOB
    Thanks! modified by Inksaver
--]]

function put(filename, key, username, password)
    local userkey = ""
    if not fs.exists(filename) then
        error( "File doesn't exist: " .. filename, 2 )
    end

    local f = fs.open(filename, "r")
    local code = f.readAll()
    f.close()
    -- post to users own account, so get 'api_user_key
    getUserkey = http.post(
        "http://pastebin.com/api/api_login.php",
        "api_dev_key="..key.."&"..
        "api_user_name="..textutils.urlEncode(username).."&"..
        "api_user_password="..textutils.urlEncode(password)
    )
    local hUserkey = getUserkey.readAll()
    getUserkey.close()
    local userkey = string.match( hUserkey, "[^/]+$" )
    print("User Key = "..userkey)

    local response = http.post(
        "http://pastebin.com/api/api_post.php",
        "api_option=paste&"..
        "api_dev_key="..key.."&"..
        "api_paste_format=lua&"..
        "api_user_key="..userkey.."&"..
        "api_paste_name="..textutils.urlEncode(filename).."&"..
        "api_paste_code="..textutils.urlEncode(code)
    )

    if response then
        local hResponse = response.readAll()
        response.close()

        local sCode = string.match( hResponse, "[^/]+$" )
        return true, name, sCode
    else
        return false
    end
end

function get( name, code )
    local response = http.get( "http://pastebin.com/raw.php?i="..textutils.urlEncode(code) )
    if response then
        local sCode = response.readAll()
        if sCode ~= nil and sCode ~= "" then
            local file = fs.open( name, "w" )
            response.close()
            file.write(sCode)
            file.close()
            return true
        end
    end
    return false
end
-- End of borrowed/modified code

term.clear()
term.setCursorPos(1,1)
print("Pastebin test program")
print()
if os.getComputerLabel() == nil then --set label to create a permanent record of this turtle
    print("Naming this turtle as Miner1")
    os.setComputerLabel("Miner1")
end
if fs.exists("pastebin.txt") then
    codeFile = fs.open("pastebin.txt", "r")
    print("Last url posted to pastebin = "..codeFile.readLine())
    codeFile.close()
end
print("Do you want to run this test again? y/n")
response = read()
if response == "y" or response == "Y" then
    print("Creating fake logfile...")
    -- create 'testLog1.txt'
    testFile = fs.open("testLog1.txt", "w")
    for i = 1,200 do
        testFile.writeLine("Writing Logfile line number ".. i)
    end
    testFile.close()
    term.clear()
    term.setCursorPos(1,1)
    if fs.exists("key.txt") then --pastebin details stored locally
        --Only use if you trust the server operator!
        keyFile = fs.open("key.txt", "r")
        key = keyFile.readLine()
        username = keyFile.readLine()
        password = keyFile.readLine()
        keyFile.close()
    else
        print("Do you have your own pastebin account? y/n?")
        response = read()
        if response == "y" or response == "Y" then -- use account holder's key
            response = ""
            while response ~= "y" do
                term.clear()
                term.setCursorPos(1,1)
                print("Enter/paste your pastebin developer key")
                key = read()
                print("You have entered the following key:")
                print(key)
                print("Is this correct? y/n")
                response = read()
            end
            response = ""
            while response ~= "y" do
                term.clear()
                term.setCursorPos(1,1)
                print("Enter your pastebin username")
                username = read()
                print("You have entered the following username:")
                print(username)
                print("Is this correct? y/n")
                response = read()
            end
            response = ""
            while response ~= "y" do
                term.clear()
                term.setCursorPos(1,1)
                print("Enter your pastebin password")
                password = read()
                print("You have entered the following password:")
                print(password)
                print("Is this correct? y/n")
                response = read()
            end
            term.clear()
            term.setCursorPos(1,1)
            print("Do you want to save your pastebin details")
            print("on this minecraft server/gamesave?")
            response = read()
            if response == "y" or response == "Y" then
                keyFile = fs.open("key.txt", "w")
                keyFile.writeLine(key)
                keyFile.writeLine(username)
                keyFile.writeLine(password)
                keyFile.close()
                print("details saved to 'key.txt'")
            end
        end
    end
    term.clear()
    term.setCursorPos(1,1)

    if key ~= "" then
        print("Posting logfile to your pastebin account")
        success, name, code = put("testLog1.txt", key, username, password)
        if success then
            print("Using stored pastebin details:")
            print("Developer key = "..key)
            print("Username = "..username)
            print("password = "..password)
            print("Post suceeded. Pastebin code is")
            print(code)
            print ("saved to pastebin.txt")
            codeFile = fs.open("pastebin.txt", "w")
            codeFile.writeLine("http://pastebin.com/"..code)
            codeFile.close()
        else
            print("Posting failed")
        end
    else --no developer key so public paste
        print("Posting logfile to public pastebin")
        shell.run("pastebin", "put", "testLog1.txt")
    end
 end