ZeusWPI/cat
9
0
Fork 0
Code Issues 5 Pull requests Projects Releases Packages Wiki Activity

enable insecure ssl

Browse source
This commit is contained in:
flynn 2019-02-14 03:39:08 +01:00
parent b2ba72d6c4
commit aa0f723704
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/clj/cat/moauth.clj
View file

@ -60,6 +60,7 @@
:redirect_uri (:redirect-uri oauth2-params)} :redirect_uri (:redirect-uri oauth2-params)}
;:basic-auth [(:client-id oauth2-params) (:client-secret oauth2-params)] ;:basic-auth [(:client-id oauth2-params) (:client-secret oauth2-params)]
:as :json :as :json
:insecure? true
})] })]
(println "Access token response:" access-token) (println "Access token response:" access-token)
(:body access-token))) (:body access-token)))
@ -71,7 +72,8 @@
[access-token] [access-token]
(let [url (str (env :user-api-uri))] (let [url (str (env :user-api-uri))]
(-> (httpclient/get url {:oauth-token access-token (-> (httpclient/get url {:oauth-token access-token
:as :json}) :as :json
:insecure? true})
:body) :body)
)) ))
@ -86,7 +88,8 @@
{:form-params {:grant_type "refresh_token" {:form-params {:grant_type "refresh_token"
:refresh_token refresh-token} :refresh_token refresh-token}
:basic-auth [(:client-id oauth2-params) (:client-secret oauth2-params)] :basic-auth [(:client-id oauth2-params) (:client-secret oauth2-params)]
:as :json})] :as :json
:insecure? true})]
[access-token refresh-token]) [access-token refresh-token])
(catch [:status 401] _ nil))) (catch [:status 401] _ nil)))