[lua]betterpastebin

-- source: http://www.computercraft.info/forums2/index.php?/topic/1451-better-pastebin-program/
local function printUsage()
print( "Usages:" )
print( "pastebin put <filename>" )
print( "pastebin get <code> <filename>" )
end
local tArgs = { ... }
if #tArgs < 2 then
printUsage()
   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
write("Enter paste name: ")
sName = read()

-- Read in the file
if sName == "" then local sName = fs.getName( sPath ) end
local file = fs.open( sPath, "r" )
local sText = file.readAll()
file.close()
-- Log in
print("Log in? y/n")
while true do
  login = read()
  if login == "y" or login == "n" then break end
end
if login == "y" then
  write("Username: ")
  username = textutils.urlEncode(read())
  write("Password: ")
  password = textutils.urlEncode(read("*"))
end
write( "Connecting to pastebin.com... " )
local key = "0ec2eb25b6166c0c27a394ae118ad829"
if login == "y" then
  local userraw = http.post(
   "http://pastebin.com/api/api_login.php",
   "api_dev_key="..key.."&"..
   "api_user_name="..username.."&"..
   "api_user_password="..password
  )
  -- get user code in annoying roundabout way
  -- error/bug/?: userraw[1]() doesn't work
  for i,v in pairs(userraw) do
   user = v()
   break
  end
  -- check for errors with pastebin
  if string.sub(user, 1, 3) == "Bad" then print("\n"..user) error("") end
  local response = http.post(
   "http://pastebin.com/api/api_post.php",
   "api_option=paste&"..
   "api_dev_key="..key.."&"..
   "api_user_key="..user.."&"..
   "api_paste_format=lua&"..
   "api_paste_name="..textutils.urlEncode(sName).."&"..
   "api_paste_code="..textutils.urlEncode(sText)
   )

   print("Done")
   print("Check your pastes for find your file")
else
  local 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)
   )
if response then
  print( "Success." )

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

  local sCode = string.match( sResponse, "[^/]+$" )
  print( "Uploaded as "..sResponse )
  print( "Run \"pastebin get "..sCode.."\" to download anywhere" )
else
  print( "Failed." )
end
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