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

updates.

Browse Source
This commit is contained in:
Bryce Covert
2018-10-11 20:24:32 -07:00
parent ff4be6d20e
commit 3e8c359458
1 changed files with 31 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -92,18 +92,33 @@
(defn get-provider-accounts [] (defn get-provider-accounts []
(let [cob-session (login-cobrand) (let [cob-session (login-cobrand)
user-session (login-user cob-session) user-session (login-user cob-session)
batch-size 100 batch-size 100]
get-transaction-batch (fn []
(-> (str (:yodlee-base-url env) "/providerAccounts")
(client/get {:headers (doto (-> (str (:yodlee-base-url env) "/providerAccounts")
(merge base-headers {"Authorization" (auth-header cob-session user-session)})
println)
:as :json})
:body
))]
(get-transaction-batch))) (client/get {:headers (doto
(merge base-headers {"Authorization" (auth-header cob-session user-session)})
println)
:as :json})
:body
:providerAccount
)))
(defn get-provider-account [id]
(let [cob-session (login-cobrand)
user-session (login-user cob-session)
batch-size 100]
(-> (str (:yodlee-base-url env) "/providerAccounts/" id)
(client/get {:headers (doto
(merge base-headers {"Authorization" (auth-header cob-session user-session)})
println)
:as :json})
:body
:providerAccount)))
(defn update-provider-account [pa] (defn update-provider-account [pa]
(let [cob-session (login-cobrand) (let [cob-session (login-cobrand)
@@ -118,12 +133,16 @@
:body "{\"dataSetName\": [\"BASIC_AGG_DATA\"]}" :body "{\"dataSetName\": [\"BASIC_AGG_DATA\"]}"
:as :json})))) :as :json}))))
(defn get-specific-transactions [] (defn update-yodlee [id]
(update-provider-account (:providerAccountId (first (filter #(= (:id %) id) (get-accounts)))))
(get-provider-account (:providerAccountId (first (filter #(= (:id %) id) (get-accounts))))))
(defn get-specific-transactions [account]
(let [cob-session (login-cobrand) (let [cob-session (login-cobrand)
user-session (login-user cob-session) user-session (login-user cob-session)
batch-size 100 batch-size 100
get-transaction-batch (fn [skip] get-transaction-batch (fn [skip]
(-> (str (:yodlee-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=16422358") (-> (str (:yodlee-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=" account)
(doto println) (doto println)
(client/get {:headers (doto (client/get {:headers (doto