Aside from urls and nomenclature, glimpse works.

This commit is contained in:
Bryce
2023-08-03 20:53:09 -07:00
parent f9b9a8480d
commit 88eda03e7f
11 changed files with 430 additions and 183 deletions

View File

@@ -360,17 +360,19 @@
(reauthenticate client-code pa data)
(refresh-provider-account client-code pa))
(defn force-pull-all []
(doseq [[client-code yodlee-provider-account] (seq (dc/q '[:find ?cd ?pai
:where [?c :client/code ?cd]
[?yap :yodlee-provider-account/client ?c]
[?yap :yodlee-provider-account/id ?pai]]
(dc/db conn)))]
(defn force-pull-all
([] (force-pull-all (seq (dc/q '[:find ?cd ?pai
:where [?c :client/code ?cd]
[?yap :yodlee-provider-account/client ?c]
[?yap :yodlee-provider-account/id ?pai]]
(dc/db conn)))))
([options]
(doseq [[client-code yodlee-provider-account] options]
(println "Trying " client-code "account" yodlee-provider-account)
(clojure.pprint/pprint (reauthenticate client-code yodlee-provider-account {}))
(println "waiting")
(Thread/sleep 15000)
(println "refreshing")
(clojure.pprint/pprint (refresh-provider-account client-code yodlee-provider-account))))
(println "Trying " client-code "account" yodlee-provider-account)
(clojure.pprint/pprint (reauthenticate client-code yodlee-provider-account {}))
(println "waiting")
(Thread/sleep 15000)
(println "refreshing")
(clojure.pprint/pprint (refresh-provider-account client-code yodlee-provider-account)))))