Permalink
Browse files

Add & export OBJECT-RESTORATION-STATUS.

  • Loading branch information...
xach committed Dec 19, 2012
1 parent bb304d4 commit 9542d52f53235c67c8fc3cf06bd2c52217066a01
Showing with 9 additions and 3 deletions.
  1. +5 −0 lifecycle.lisp
  2. +4 −3 package.lisp
View
@@ -246,6 +246,11 @@ configuration is deleted with DELETE-BUCKET-LIFECYCLE."
:key key
:content content))))
+(defun object-restoration-status (bucket key &key
+ ((:credentials *credentials*) *credentials*))
+ (let ((headers (head :bucket bucket :key key)))
+ (cdr (assoc :x-amz-restore headers))))
+
(define-specific-error (restore-already-in-progress
"RestoreAlreadyInProgress")
() ())
View
@@ -45,8 +45,7 @@
#:delete-bucket
#:bucket-location
#:bucket-lifecycle
- #:lifecycle-rule
- #:restore-object)
+ #:lifecycle-rule)
;; Bucket queries
(:export #:query-bucket
#:continue-bucket-query
@@ -77,7 +76,9 @@
#:delete-objects
#:delete-all-objects
#:object-metadata
- #:set-storage-class)
+ #:set-storage-class
+ #:restore-object
+ #:object-restoration-status)
;; Access Control
(:export #:get-acl
#:put-acl

0 comments on commit 9542d52

Please sign in to comment.