pastebin

local function printUsage()
    print( "Usages:" )
    print( "pastebin put <filename>" )
    print( "pastebin put <filename> <username>")
    print( "pastebin get <code> <filename>" )
end

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

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

local sCommand = tArgs[1]
if sCommand == "put" then
    -- Upload a file to pastebin.com
    -- Determine file to upload
    local sFile = tArgs[2]
    local sPath = shell.resolve( sFile )
    if not fs.exists( sPath ) or fs.isDir( sPath ) then
        print( "No such file" )
        return
    end

    -- Read in the file
    local sName = fs.getName( sPath )
    local file = fs.open( sPath, "r" )
    local sText = file.readAll()
    file.close()

    -- POST the contents to pastebin
    write( "Connecting to pastebin.com... " )
    local key = "0ec2eb25b6166c0c27a394ae118ad829"
    local userKey = "none"
    if #tArgs > 2 then
        print("login specified..")
        local username = tArgs[3]
        write("Please input password:")
        local pass = read("*")
        userKey = http.post("http://pastebin.com/api/api_login.php", "api_dev_key="..key.."&"..
            "api_user_name="..username.."&"..
            "api_user_password="..pass)
        userKey = userKey.readAll()
        if string.find(userKey, "Bad API request") ~= nil then
            print("Failed to paste...")
            print(userKey)
            return
        end

    end

    local response = nil

    local d = "api_option=paste&"..
        "api_dev_key="..key.."&"..
        "api_paste_format=lua&"..
        "api_paste_name="..textutils.urlEncode(sName).."&"..
        "api_paste_code="..textutils.urlEncode(sText)

    if (userKey ~= "none") and (userKey ~= nil) then
        response = http.post("http://pastebin.com/api/api_post.php",
            "api_option=paste&"..
            "api_dev_key="..key.."&"..
            "api_user_key="..userKey.."&"..
            "api_paste_format=lua&"..
            "api_paste_name="..textutils.urlEncode(sName).."&"..
            "api_paste_code="..textutils.urlEncode(sText))
    else
        response = http.post(
            "http://pastebin.com/api/api_post.php",
            "api_option=paste&"..
            "api_dev_key="..key.."&"..
            "api_paste_format=lua&"..
            "api_paste_name="..textutils.urlEncode(sName).."&"..
            "api_paste_code="..textutils.urlEncode(sText)
        )
    end

    if response then


        local sResponse = response.readAll()
        response.close()
        if string.find(sResponse, "Bad API request") ~= nil then
            print("Failed to paste..")
            print(sResponse)
            print("")
            print(d)
            return
        end

        local sCode = string.match( sResponse, "[^/]+$" )
        print( "Uploaded as "..sResponse )
        print( "Run \"pastebin get "..sCode.."\" to download anywhere" )

    else
        print( "Failed." )
    end

elseif sCommand == "get" then
    -- Download a file from pastebin.com
    if #tArgs < 3 then
        printUsage()
        return
    end

    -- Determine file to download
    local sCode = tArgs[2]
    local sFile = tArgs[3]
    local sPath = shell.resolve( sFile )
    if fs.exists( sPath ) then
        print( "File already exists" )
        return
    end

    -- GET the contents from pastebin
    write( "Connecting to pastebin.com... " )
    local response = http.get(
        "http://pastebin.com/raw.php?i="..textutils.urlEncode( sCode )
        )

    if response then
        print( "Success." )

        local sResponse = response.readAll()
        response.close()

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

        print( "Downloaded as "..sFile )

    else
        print( "Failed." )
    end

else
    printUsage()
    return
end