Aside from urls and nomenclature, glimpse works.
This commit is contained in:
@@ -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)))))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user