Adds Yodlee2 Option.

2020-12-22 08:45:12 -08:00
parent c66244a8fb
commit c28bd9635d
11 changed files with 842 additions and 17 deletions
--- a/src/clj/auto_ap/routes/yodlee2.clj
+++ b/src/clj/auto_ap/routes/yodlee2.clj
@@ -0,0 +1,92 @@
+(ns auto-ap.routes.yodlee2
+  (:require 
+   [auto-ap.graphql :as graphql]
+   [clj-http.client :as http]
+
+   [auto-ap.yodlee.core2 :as yodlee]
+   [auto-ap.graphql.utils :refer [->graphql assert-admin]]
+   [auto-ap.routes.utils :refer [wrap-secure]]
+   [clj-time.coerce :refer [to-date]]
+   [ring.middleware.json :refer [wrap-json-response]]
+   [compojure.core :refer [GET POST context defroutes wrap-routes]]
+   [clojure.string :as str]
+   [config.core :refer [env]]
+
+   [clojure.tools.logging :as log]))
+
+(defroutes routes
+  (wrap-routes
+   (context "/yodlee2" []
+            (GET "/fastlink" {:keys [query-params identity] :as request}
+                 (assert-admin identity)
+                 (let [token (yodlee/get-access-token)]
+                   {:status 200 
+                    :headers {"Content-Type" "application/edn"}
+                    :body (pr-str {:token token
+                                   :url (:yodlee2-fastlink env)}) }))
+            (GET "/accounts" {:keys [query-params identity] :as request}
+                 (assert-admin identity)
+                 (let [[session token] (yodlee/get-access-token)]
+                   {:status 200 
+                    :headers {"Content-Type" "application/edn"}
+                    :body (pr-str (yodlee/get-accounts)) }))
+
+            (GET "/provider-accounts" {:keys [query-params identity] :as request}
+                 (assert-admin identity)
+                 (log/info "working on provider accounts...")
+                 {:status 200 
+                  :headers {"Content-Type" "application/edn"}
+                  :body (pr-str @yodlee/in-memory-cache) })
+            (POST "/reauthenticate/:id" {:keys [query-params identity] {:keys [id]} :route-params
+                                         data  :edn-params
+                                         :as request}
+                  (assert-admin identity)
+                  (try 
+                    (let [[session token] (yodlee/get-access-token)]
+                      {:status 200 
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str (yodlee/reauthenticate (Long/parseLong id) data)) })
+                    (catch Exception e
+                      (log/error e)
+                      {:status 500
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str {:message (.getMessage e)
+                                      :error (.toString e)})})))
+            (POST "/provider-accounts/refresh/:id" {:keys [query-params identity] {:keys [id]} :route-params :as request}
+                  (assert-admin identity)
+                  (try 
+                    (let [[session token] (yodlee/get-access-token)]
+                      (yodlee/refresh-provider-account (Long/parseLong id))
+                      {:status 200 
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str @yodlee/in-memory-cache) })
+                    (catch Exception e
+                      {:status 400
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str {:message (.getMessage e)
+                                      :error (.toString e)})})))
+            (POST "/provider-accounts/delete/:id" {:keys [query-params identity] {:keys [id]} :route-params :as request}
+                  (assert-admin identity)
+                  (try 
+                    (let [[session token] (yodlee/get-access-token)]
+                      (yodlee/delete-provider-account (Long/parseLong id))
+                      {:status 200 
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str @yodlee/in-memory-cache) })
+                    (catch Exception e
+                      {:status 400
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str {:message (.getMessage e)
+                                      :error (.toString e)})})))
+            (POST "/provider-accounts/:id" {:keys [query-params identity] {:keys [id]} :route-params :as request}
+                 (assert-admin identity)
+                 (try 
+                   (let [[session token] (yodlee/get-access-token)]
+                     {:status 200 
+                      :headers {"Content-Type" "application/edn"}
+                      :body (pr-str (yodlee/update-yodlee (Long/parseLong id))) })
+                   (catch Exception e
+                     {:status 400
+                      :headers {"Content-Type" "application/edn"}
+                      :body (pr-str e)}))))
+   wrap-secure))