steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add delete-object to S3 vocab

db4
Chris Double 2009-10-15 13:11:59 +13:00
parent 96b84bd1ab
commit 2311cd16c5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/s3/s3.factor
View File

@ -137,6 +137,10 @@ TUPLE: key name last-modified size ;
sign-http-request sign-http-request
http-request 2drop ; http-request 2drop ;
: delete-object ( bucket key -- )
"/" prepend H{ } clone "DELETE" <s3-request>
dup s3-url <delete-request> sign-http-request http-request 2drop ;
! "testbucket" create-bucket ! "testbucket" create-bucket
! "testbucket" delete-bucket ! "testbucket" delete-bucket
! buckets ! buckets