Merge pull request #22 from wsgac/master

Compute md5 sums not only for pathnames
xach · Oct 18, 2016 · 884b9a5 · 884b9a5
2 parents 9337210 + 56f2ad9
commit 884b9a5
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/request.lisp b/request.lisp
@@ -165,9 +165,13 @@
 
 (defmethod slot-unbound ((class t) (request request) (slot (eql 'content-md5)))
   (setf (content-md5 request)
-        (and *use-content-md5*
-             (pathnamep (content request))
-             (file-md5/b64 (content request)))))
+        (when *use-content-md5*
+          (let ((content (content request)))
+            (cond ((pathnamep content) (file-md5/b64 content))
+                  ((stringp content)
+                   (vector-md5/b64
+                    (flexi-streams:string-to-octets content)))
+                  ((vectorp content) (vector-md5/b64 content)))))))
 
 (defmethod slot-unbound ((class t) (request request) (slot (eql 'signed-string)))
   (setf (signed-string request)