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

trying to fix logging in on yodlee 2.

Browse Source
This commit is contained in:
Bryce Covert
2022-03-21 11:18:26 -07:00
parent 7ba2d68b28
commit be6be38c34
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
src/clj/auto_ap/yodlee/core2.clj
View File

@@ -70,7 +70,7 @@
:accessToken)) :accessToken))
(defn get-accounts [client-code ] (defn get-accounts [client-code ]
(let [cob-session (login-user client-code)] (let [cob-session (login-user (client-code->login client-code))]
(-> (str (:yodlee2-base-url env) "/accounts") (-> (str (:yodlee2-base-url env) "/accounts")
(client/get (merge {:headers (merge base-headers {"Authorization" (str "Bearer " cob-session)}) (client/get (merge {:headers (merge base-headers {"Authorization" (str "Bearer " cob-session)})
:as :json} :as :json}
@@ -80,7 +80,7 @@
(defn get-accounts-for-provider-account [client-code provider-account-id] (defn get-accounts-for-provider-account [client-code provider-account-id]
(try (try
(let [cob-session (login-user client-code)] (let [cob-session (login-user (client-code->login client-code))]
(-> (str (:yodlee2-base-url env) "/accounts?providerAccountId=" provider-account-id) (-> (str (:yodlee2-base-url env) "/accounts?providerAccountId=" provider-account-id)
(client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session)}) (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session)})
:as :json} :as :json}
@@ -94,7 +94,7 @@
(defn get-provider-accounts [client-code ] (defn get-provider-accounts [client-code ]
(log/info "logging in user " client-code) (log/info "logging in user " client-code)
(let [cob-session (login-user client-code)] (let [cob-session (login-user (client-code->login client-code))]
(-> (str (:yodlee2-base-url env) "/providerAccounts") (-> (str (:yodlee2-base-url env) "/providerAccounts")
(-> (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session )}) (-> (client/get (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session )})
:as :json} :as :json}
@@ -105,7 +105,7 @@
(defn get-transactions [client-code] (defn get-transactions [client-code]
(let [cob-session (login-user client-code) (let [cob-session (login-user (client-code->login client-code))
batch-size 100 batch-size 100
get-transaction-batch (fn [skip] get-transaction-batch (fn [skip]
(-> (str (:yodlee2-base-url env) "/transactions?top=" batch-size "&skip=" skip) (-> (str (:yodlee2-base-url env) "/transactions?top=" batch-size "&skip=" skip)
@@ -128,7 +128,7 @@
(defn get-provider-account [client-code id] (defn get-provider-account [client-code id]
(let [cob-session (login-user client-code) (let [cob-session (login-user (client-code->login client-code))
batch-size 100] batch-size 100]
(-> (str (:yodlee2-base-url env) "/providerAccounts/" id) (-> (str (:yodlee2-base-url env) "/providerAccounts/" id)
@@ -141,7 +141,7 @@
first))) first)))
(defn get-provider-account-detail [client-code id] (defn get-provider-account-detail [client-code id]
(let [cob-session (login-user client-code)] (let [cob-session (login-user (client-code->login client-code))]
(-> (str (:yodlee2-base-url env) "/providerAccounts/" id ) (-> (str (:yodlee2-base-url env) "/providerAccounts/" id )
@@ -154,7 +154,7 @@
first))) first)))
(defn update-provider-account [client-code pa] (defn update-provider-account [client-code pa]
(let [cob-session (login-user client-code)] (let [cob-session (login-user (client-code->login client-code))]
(-> (str (:yodlee2-base-url env) "/providerAccounts?providerAccountIds=" pa) (-> (str (:yodlee2-base-url env) "/providerAccounts?providerAccountIds=" pa)
@@ -169,7 +169,7 @@
(defn get-specific-transactions [client-code account] (defn get-specific-transactions [client-code account]
(let [cob-session (login-user client-code) (let [cob-session (login-user (client-code->login client-code))
batch-size 100 batch-size 100
get-transaction-batch (fn [skip] get-transaction-batch (fn [skip]
(-> (str (:yodlee2-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=" account) (-> (str (:yodlee2-base-url env) "/transactions?top=" batch-size "&skip=" skip "&accountId=" account)
@@ -191,7 +191,7 @@
(defn get-access-token [client-code] (defn get-access-token [client-code]
(try (try
(let [cob-session (login-user client-code)] (let [cob-session (login-user (client-code->login client-code))]
cob-session) cob-session)
(catch Exception e (catch Exception e
(log/error e) (log/error e)
@@ -278,9 +278,9 @@
(defn upsert-accounts-tx (defn upsert-accounts-tx
([client-code] ([client-code]
(upsert-accounts-tx client-code (get-provider-accounts (client-code->login client-code)))) (upsert-accounts-tx client-code (get-provider-accounts client-code)))
([client-code provider-accounts] ([client-code provider-accounts]
(let [accounts (get-accounts-for-providers (client-code->login client-code) (map :id provider-accounts))] (let [accounts (get-accounts-for-providers client-code (map :id provider-accounts))]
(map (fn [pa] (map (fn [pa]
(cond-> (cond->
{:yodlee-provider-account/id (:id pa) {:yodlee-provider-account/id (:id pa)
@@ -304,7 +304,7 @@
(defn refresh-provider-account [client-code id] (defn refresh-provider-account [client-code id]
(log/info "refreshing yodlee provider account id" id) (log/info "refreshing yodlee provider account id" id)
@(d/transact conn (upsert-accounts-tx client-code @(d/transact conn (upsert-accounts-tx client-code
[(get-provider-account (client-code->login client-code) id)]))) [(get-provider-account client-code id)])))
(defn upsert-accounts [] (defn upsert-accounts []
(let [concurrent 20 (let [concurrent 20