File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 5959 [babashka/fs " 0.2.12" ]
6060 [pandect " 1.0.2" ]
6161 [org.clojure/data.zip " 1.0.0" ]
62- [org.clojure/data.codec " 0.2.1" ] ; ; for base64 encoding in mdr2.pipeline2.core
6362 [com.novemberain/pantomime " 2.11.0" :exclusions [com.google.guava/guava]]
6463 [clj-http " 3.12.3" ]
6564 [org.clojure/data.csv " 1.0.1" ]
Original file line number Diff line number Diff line change 33 API](https://daisy.github.io/pipeline/WebServiceAPI)"
44 (:require [clj-http.client :as client]
55 [clj-http.util :refer [url-encode]]
6- [clojure.data.codec.base64 :as b64]
76 [clojure.data.xml :as xml]
87 [clojure.data.zip :as zf]
98 [clojure.data.zip.xml :refer [attr xml-> xml1->]]
1413 [mdr2.config :refer [env]]
1514 [pandect.algo.sha1 :as pandect]
1615 [clojure.tools.logging :as log])
17- (:import [java.util.zip ZipEntry ZipOutputStream]))
16+ (:import [java.util.zip ZipEntry ZipOutputStream]
17+ [java.util Base64]))
1818
1919(def ws-url " http://localhost:8181/ws" )
2020
2121(def ^:private timeout 1000 )
2222(def ^:private poll-interval 3000 )
2323
2424(defn- create-hash [message signing-key]
25- (-> (pandect/sha1-hmac-bytes message signing-key)
26- b64/encode
27- String.))
25+ (->> (pandect/sha1-hmac-bytes message signing-key)
26+ (.encodeToString (Base64/getUrlEncoder ))))
2827
2928(defn auth-query-params [uri]
3029 (let [timestamp (time/format :iso-local-date-time (time/local-date-time ))
You can’t perform that action at this time.
0 commit comments