api/pastebin

local devKey = "ByTl7aSZ0CDz83Qqzgqr8-LzuUPy1sUG"

function getPaste(code)
  local res = request.get("http://pastebin.com/raw.php", { i = code })
  if not res then return false, "Failed to get paste." end
  local data = res.readAll()
  res.close()
  return data
end

function get(code, path, force)
  path = path or code
  if force then fs.delete(path)
  elseif fs.exists(path) then return false, "File already exists."
  end
  local data,err = getPaste(code)
  if not data then return false, err end
  file = fs.open(path, "w")
  file.write(data)
  file.close()
  return true
end

function put(path)
  if not fs.exists(path) or fs.isDir(path) then return false, "No such file." end
  local name = fs.getName(path)
  local file = fs.open(path, "r")
  local data = file.readAll()
  file.close()
  local res = request.post("http://pastebin.com/api/api_post.php", {
    api_option = "paste",
    api_dev_key = devKey,
    api_paste_format = "lua",
    api_paste_name = name,
    api_paste_code = data
  })
  if not res then return false, "Failed." end
  local code = string.match(res.readAll(), "[^/]+$")
  res.close()
  return code
end

function run(code, ...)
  local data,err = getPaste(code)
  if not data then return false, err end
  local func,err = loadstring(data)
  if not func then return false, err end
  setfenv(func,getfenv())
  local success,err = pcall(func, ...)
  if not success then return false, err end
  return true
end

function login(username, password)
  local res = request.post("https://pastebin.com/api/api_login.php", { api_dev_key = devKey, api_user_name = username, api_user_password = password })
  if not res then return false, "Failed to login." end

  local pb = { UserKey = res.readAll() }
  res.close()

  function pb.getPaste(code)
    local res = request.post("https://pastebin.com/api/api_raw.php", { api_dev_key = devKey, api_user_key = pb.UserKey, api_paste_key = code, api_option = "show_paste" })
    if not res then return false, "Failed to get paste." end
    local data = res.readAll()
    res.close()
    return data
  end

  function pb.get(code, path, force)
    path = path or code
    if force then fs.delete(path)
    elseif fs.exists(path) then return false, "File already exists."
    end
    local data,err = pb.getPaste(code)
    if not data then return false, err end
    file = fs.open(path, "w")
    file.write(data)
    file.close()
    return true
  end

  function pb.delete(code)
    local res = request.post("https://pastebin.com/api/api_post.php", {
      api_option = "delete",
      api_dev_key = devKey,
      api_user_key = pb.UserKey,
      api_paste_key = code
    })
    if not res then return false, "Failed." end
    res.close()
    return true
  end

  function pb.put(path)
    if not fs.exists(path) or fs.isDir(path) then return false, "No such file." end
    local name = fs.getName(path)
    local file = fs.open(path, "r")
    local data = file.readAll()
    file.close()
    local res = request.post("https://pastebin.com/api/api_post.php", {
      api_option = "paste",
      api_dev_key = devKey,
      api_paste_format = "lua",
      api_paste_name = name,
      api_paste_code = data,
      api_paste_private = "0",
      api_user_key = pb.UserKey
    })
    if not res then return false, "Failed." end
    local code = string.match(res.readAll(), "[^/]+$")
    res.close()
    return code
  end

  function pb.list()
    local res = request.post("https://pastebin.com/api/api_post.php", {
      api_option = "list",
      api_dev_key = devKey,
      api_user_key = pb.UserKey,
      api_results_limit = "1000"
    })
    if not res then return false, "Failed." end
    local line = res.readLine()
    local data,paste = {},{}
    while line do
      if line == "<paste>" then paste = {}
      elseif line == "</paste>" then table.insert(data, paste)
      else
        local key, value = string.match(line, "^.+<(.+)>(.+)</.+>$")
        paste[key] = value
      end
      line = res.readLine()
    end
    res.close()
    return data
  end

  function pb.run(code, ...)
    local data,err = pb.getPaste(code)
    if not data then return false, err end
    local func,err = loadstring(data)
    if not func then return false, err end
    setfenv(func,getfenv())
    local success,err = pcall(func, ...)
    if not success then return false, err end
    return true
  end

  return pb
end