put-object ( data mime-type bucket key headers -- )
Amazon S3

Prev:	get-object ( bucket key -- response data )
Next:	delete-object ( bucket key -- )

Vocabulary
s3

Inputs

data	an object
mime-type	a string
bucket	a string
key	a string
headers	an assoc

Outputs
None

Word description
Stores the object under the key in the given bucket. The object has the given mimetype. 'headers' should contain key/values for any headers to be associated with the object. 'data' is any Factor object that can be used as the 'data' slot in <post-data>. If it's a <pathname> it stores the contents of the file. If it's a stream, it's the contents of the stream, etc.

Examples

USING: s3 ; "hello" binary encode "text/plain" "testbucket" "hello.txt" H{ { "x-amz-acl" "public-read" } } put-object

USING: s3 ; "hello.txt" <pathname> "text/plain" "testbucket" "hello.txt" H{ { "x-amz-acl" "public-read" } } put-object

Definition

USING: accessors assocs http http.client kernel s3.private
sequences ;

IN: s3

: put-object ( data mime-type bucket key headers -- )
    [ "/" prepend ] dip "PUT" <s3-request> over >>mime-type
    [ <post-data> swap >>data ] dip
    dup s3-url swapd <put-request>
    dup header>> pick headers>> assoc-union >>header
    sign-http-request http-request 2drop ;