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

supporting iguana's

Browse Source
This commit is contained in:
Bryce Covert
2018-07-21 05:00:29 -07:00
parent 91cb8c7678
commit ecc5dc7d77
5 changed files with 29 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/clj/auto_ap/yodlee/core.clj
View File

@@ -8,11 +8,11 @@
([cob-session user-session] (str "{cobSession=" cob-session ",userSession=" user-session "}")))
(def base-headers {"Api-Version" "1.1"
"Cobrand-Name" "restserver"
"Cobrand-Name" (:yodlee-cobrand-name env)
"Content-Type" "application/json"})
(defn login-cobrand []
(-> "https://developer.api.yodlee.com/ysl/cobrand/login"
(-> (str (:yodlee-base-url env) "/cobrand/login")
(client/post {:headers base-headers
:body
(json/write-str {:cobrand {:cobrandLogin (:yodlee-cobrand-login env)
@@ -26,11 +26,11 @@
(defn login-user [cob-session]
(-> "https://developer.api.yodlee.com/ysl/user/login"
(-> (str (:yodlee-base-url env) "/user/login")
(client/post {:headers (merge base-headers {"Authorization" (auth-header cob-session)})
:body
(json/write-str {:user {:loginName "sbMemda48aa19712a83c3ca4e935dd5e5d46b1a1"
:password "sbMemda48aa19712a83c3ca4e935dd5e5d46b1a1#123"
(json/write-str {:user {:loginName (:yodlee-user-login env)
:password (:yodlee-user-password env)
:locale "en_US"}})
:as :json})
:body
@@ -41,14 +41,14 @@
(defn get-accounts []
(let [cob-session (login-cobrand)
user-session (login-user cob-session)]
(-> "https://developer.api.yodlee.com/ysl/accounts"
(-> (str (:yodlee-base-url env) "/accounts")
(client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
:as :json}))))
(defn get-provider-accounts []
(let [cob-session (login-cobrand)
user-session (login-user cob-session)]
(-> "https://developer.api.yodlee.com/ysl/providerAccounts/11049210"
(-> (str (:yodlee-base-url env) "/providerAccounts")
(client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
:as :json}))))
@@ -57,7 +57,7 @@
user-session (login-user cob-session)
batch-size 100
get-transaction-batch (fn [skip]
(-> (str "https://developer.api.yodlee.com/ysl/transactions?top=" batch-size "&skip=" skip)
(-> (str (:yodlee-base-url env) "/transactions?top=" batch-size "&skip=" skip)
(client/get {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
:as :json})
:body
@@ -73,7 +73,7 @@
(defn create-user []
(let [cob-session (login-cobrand)]
(-> "https://developer.api.yodlee.com/ysl/user/register"
(-> (str (:yodlee-base-url env) "/user/register")
(client/post {:headers (merge base-headers {"Authorization" (auth-header cob-session)})
:body (json/write-str {:user {:loginName "brycesPersoonal2"
:password "kV@mdv3TU11"