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

fix params

This commit is contained in:
flynn 2019-02-14 03:26:33 +01:00
parent 8e63cf8911
commit 59fccd2cdb
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/clj/cat/moauth.clj
View File

@ -11,9 +11,8 @@
{:client-id (env :oauth-consumer-key) {:client-id (env :oauth-consumer-key)
:client-secret (env :oauth-consumer-secret) :client-secret (env :oauth-consumer-secret)
:authorize-uri (env :authorize-uri) :authorize-uri (env :authorize-uri)
:redirect_uri (str (env :app-host) "/oauth/oauth-callback") :redirect-uri (str (env :app-host) "/oauth/oauth-callback")
:access-token-uri (env :access-token-uri) :access-token-uri (env :access-token-uri)
;:scope "activity profile"
}) })
; To authorize, redirect the user to the sign in / grant page ; To authorize, redirect the user to the sign in / grant page
@ -42,6 +41,7 @@
"let the user authorize access by redirecting to the signin / grant page "let the user authorize access by redirecting to the signin / grant page
of the used oauth api" of the used oauth api"
[] []
(log/info "Oauth params: " (oauth2-params))
(authorize-uri (oauth2-params))) (authorize-uri (oauth2-params)))
(defn get-authentication-response (defn get-authentication-response

6
src/clj/cat/routes/oauth.clj
View File

@ -29,8 +29,10 @@
(defn oauth-init (defn oauth-init
"Initiates the Twitter OAuth" "Initiates the Twitter OAuth"
[request] [request]
(-> (mo/authorize-api-uri) (let [reee (mo/authorize-api-uri)]
found)) (log/info "authorize uri: " reee)
(-> reee
found)))
(defn oauth-callback (defn oauth-callback
"Handles the callback from adams with the access_token "Handles the callback from adams with the access_token