Add delete-object to S3 vocab

2009-10-15 13:11:59 +13:00 · 2009-10-15 13:11:59 +13:00 · 2311cd16c5
parent 96b84bd1ab
commit 2311cd16c5
1 changed files with 4 additions and 0 deletions
--- a/extra/s3/s3.factor
+++ b/extra/s3/s3.factor
@ -137,6 +137,10 @@ TUPLE: key name last-modified size ;
    sign-http-request 
    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" delete-bucket
 ! buckets