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

add Content-Length header when doing uploads

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