Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

blobstore/download-blob should .writeTo instead of c.c.io/copy.

This commit is contained in:
Phil Hagelberg 2010-06-10 11:27:02 -07:00
parent 50b1aa3cae
commit d2c6a6f17e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
blobstore/src/main/clojure/org/jclouds/blobstore.clj
View File

@ -45,6 +45,7 @@ See http://code.google.com/p/jclouds for details."
options.ListContainerOptions]
[org.jclouds.encryption.internal JCEEncryptionService]
[java.util Arrays]
[java.security DigestOutputStream MessageDigest]
[com.google.common.collect ImmutableSet]))
(try
@ -293,10 +294,10 @@ container, name, string -> etag"
(defmethod download-blob OutputStream [container-name name target blobstore
& [retries]]
(let [blob (get-blob container-name name blobstore)
digest-stream (.md5OutputStream ;; TODO: not all clouds use MD5
*encryption-service* target)]
(io/copy (.getContent blob) digest-stream)
(let [digest (.getMD5 digest-stream)
digest-stream (DigestOutputStream.
target (MessageDigest/getInstance "MD5"))]
(.writeTo (.getPayload blob) digest-stream)
(let [digest (.digest (.getMessageDigest digest-stream))
metadata-digest (.getContentMD5 (.getMetadata blob))]
(when-not (Arrays/equals digest metadata-digest)
(if (<= (or retries 0) *max-retries*)