--Market by: TurtleScripts.com

--This is a modified version of the PasteBin script to work directly with TurtleScript project files.

local tArgs = { ... }

local function printUsage()

  term.clear()

  term.setCursorPos(1,1)

    print( "TurtleMarket v1.0 BETA [#gjdgyl]" )

	print( "-------------------------------------------------" )

	print( "by: TurtleScripts.com (update file_key: #gjdgz7)" )

	print( " " )

	print( "Usages:" )

	print( " ==UPLOAD==" )

	print( "  market put (file_key) (filename) (write_pin)" )

	print( "  [pin req'd]" )

	print( " ==DOWNLOAD==" )

	print( "  market get (file_key) (filename) (read_pin) [y]" )

	print( "  [pin req'd for private/drafts]" )

	print( " " )

end

local function putFile(sCode, sFile, sPin, sOverride)

    local sPath = shell.resolve( sFile )

	if not fs.exists( sPath ) or fs.isDir( sPath ) then

            print( "No such file" )

            return

	end

	local sName = fs.getName( sPath )

	local file = fs.open( sPath, "r" )

	local sText = file.readAll()

	file.close()

	write( "Connecting to TurtleScripts.com... " )

	local response = http.post("http://api.turtlescripts.com/putFileRaw/"..textutils.urlEncode( sCode ),"pin="..sPin.."&".."data="..textutils.urlEncode(sText))

	if response then

		print( "Success." )

		local sResponse = response.readAll()

		response.close()

		print( " " )

		print( "Local: "..sFile )

		print( "Remote: #"..sCode )

		print( "[==========================================] 100%" )

		print(string.len(sText).." bytes")

		print( " " )

		print( "Upload Complete." )

	else

		print( "Failed." )

		print( " " )

		print( "ERROR: The file key is bad or project pin is wrong." )

	end

end

local function getFile(sCode, sFile, sPin, sOverride)

    local sPath = shell.resolve( sFile )

    if sCode == "" then

		print( "You must specify a File Key from TurtleScripts.com!" )

		return

	end

	if sFile == "" then

		print( "You must specify a Filename to write to!" )

		return

	end

	if fs.exists( sPath ) then

		print( "File already exists" )

        if sOverride == "" and (sPin ~= "y" or sOverride ~= "") then

		    return

        end

	end

	write( "Connecting to TurtleScripts.com... " )

	local response = http.post("http://api.turtlescripts.com/getFileRaw/"..textutils.urlEncode( sCode ),"pin="..sPin)

	if response then

		print( "Success." )

		local sResponse = response.readAll()

		response.close()

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

		file.write( sResponse )

		file.close()

		print( " " )

		print( "Remote: #"..sCode )

		print( "Local: "..sFile )

		print( "[==========================================] 100%" )

		print(string.len(sResponse).." bytes")

		print( " " )

		print( "Downloaded Complete." )

	else

		print( "Failed." )

		print( " " )

		print( "ERROR: The file key is bad or project is private (in which case, did you specify your project pin??)." )

	end

end

    local gui_mode = false

    if #tArgs < 3 then

		printUsage()

		return

	end

    local sCommand = tArgs[1]

    local sCode = tArgs[2] or ""

	local sFile = tArgs[3] or ""

    local sPin  = tArgs[4] or ""

    if sCommand == "put" then

    	putFile(sCode, sFile, sPin)

    elseif sCommand == "get" then

        local sOverride  = tArgs[5] or ""	

        getFile(sCode, sFile, sPin, sOverride)

    else

    	printUsage()

    	return

    end