a3x
/
whatsxmpp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add Content-Length header when doing uploads

This commit is contained in:
eta 2020-06-19 12:15:39 +01:00
parent 38e79749a8
commit 26620cf36b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stuff.lisp
View File

@ -774,6 +774,7 @@ MEDIA-TYPE is one of (:image :video :audio :document)."
(multiple-value-bind (body status-code)
(drakma:http-request put-url
:additional-headers headers
:content-length (file-length file-data)
:content-type mime-type
:method :put
:content decrypted-file)
@ -805,6 +806,7 @@ MEDIA-TYPE is one of (:image :video :audio :document)."
(drakma:http-request put-url
:additional-headers headers
:content-type "image/png"
:content-length (file-length stream)
:method :put
:content path)
(unless (and (>= status-code 200) (< status-code 300))