Minor fixes.

2022-01-11 17:07:40 -08:00
parent 6c9a3d7ece
commit 4d6b3b1e2e
4 changed files with 76 additions and 11 deletions
--- a/src/clj/auto_ap/routes/yodlee2.clj
+++ b/src/clj/auto_ap/routes/yodlee2.clj
@@ -0,0 +1,58 @@
+(ns auto-ap.routes.yodlee2
+  (:require 
+   [auto-ap.yodlee.core2 :as yodlee]
+   [auto-ap.graphql.utils :refer [assert-admin]]
+   [auto-ap.routes.utils :refer [wrap-secure]]
+   [compojure.core :refer [GET POST context defroutes wrap-routes]]
+   [config.core :refer [env]]
+   [clojure.tools.logging :as log]
+   [auto-ap.datomic.clients :as d-clients]))
+
+(defroutes routes
+  (wrap-routes
+   (context "/yodlee2" []
+            (GET "/fastlink" {:keys [query-params identity] :as request}
+                 (assert-admin identity)
+                 (let [token (yodlee/get-access-token (get query-params "client"))]
+                   {:status 200 
+                    :headers {"Content-Type" "application/edn"}
+                    :body (pr-str {:token token
+                                   :url (:yodlee2-fastlink env)}) }))
+            (POST "/provider-accounts/refresh/" {:keys [query-params identity edn-params]
+                                                    {:keys [id]} :route-params
+                                                    :as request}
+                  (assert-admin identity)
+                  (log/info "refreshing " edn-params)
+                  (try 
+                    (yodlee/refresh-provider-account (-> (:client-id edn-params)
+                                                         Long/parseLong
+                                                         d-clients/get-by-id
+                                                         :client/code)
+                                                     (:provider-account-id edn-params))
+                    {:status 200 
+                     :headers {"Content-Type" "application/edn"}
+                     :body "{}" }
+                    (catch Exception e
+                      (log/error e)
+                      {:status 400
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str {:message (.getMessage e)
+                                      :error (.toString e)})})))
+            (POST "/provider-accounts/delete/" {:keys [edn-params identity] {:keys [id]} :route-params :as request}
+                  (assert-admin identity)
+                  (try 
+                    (yodlee/delete-provider-account (-> (:client-id edn-params)
+                                                         Long/parseLong
+                                                         d-clients/get-by-id
+                                                         :client/code)
+                                                     (:provider-account-id edn-params))
+                    {:status 200 
+                     :headers {"Content-Type" "application/edn"}
+                     :body (pr-str {}) }
+                    (catch Exception e
+                      (log/error e)
+                      {:status 400
+                       :headers {"Content-Type" "application/edn"}
+                       :body (pr-str {:message (.getMessage e)
+                                      :error (.toString e)})}))))
+   wrap-secure))