notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

content lengths specified.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-12 06:34:52 -07:00
parent bb6592bd71
commit ab51d77384
7 changed files with 25 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/clj/auto_ap/graphql/checks.clj
View File

@@ -181,17 +181,19 @@
(defn make-pdfs [checks]
(loop [[check & checks] checks]
(when check
(s3/put-object :bucket-name (:data-bucket env)
:key (:payment/s3-key check)
:input-stream (-> check
:payment/pdf-data
(edn/read-string)
(let [check-bytes (-> check
:payment/pdf-data
(edn/read-string)
make-check-pdf
(io/make-input-stream {}))
:metadata {:content-type "application/pdf"})
make-check-pdf
)]
(s3/put-object :bucket-name (:data-bucket env)
:key (:payment/s3-key check)
:input-stream (io/make-input-stream check-bytes {})
:metadata {:content-type "application/pdf"
:content-length (count check-bytes)}))
(recur checks))))
(defn merge-pdfs [keys]

3
src/clj/auto_ap/graphql/clients.clj
View File

@@ -40,7 +40,8 @@
(s3/put-object :bucket-name "integreat-signature-images" #_(:data-bucket env)
:key (str signature-id ".jpg")
:input-stream (io/make-input-stream raw-bytes {})
:metadata {:content-type "image/jpeg"}
:metadata {:content-type "image/jpeg"
:content-length (count raw-bytes)}
:canned-acl "public-read")
(str "https://integreat-signature-images.s3.amazonaws.com/" signature-id ".jpg")))))

1
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -230,7 +230,6 @@
(try
(f entry)
(catch Exception e
(log/warn (.getMessage e))
(assoc entry :error (.getMessage e)
:status (or (:status (ex-data e))
:error))))))