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

Datadog stats

Browse Source
This commit is contained in:
Bryce Covert
2022-01-04 11:53:47 -08:00
parent e6229ef5d0
commit 6ca4f0fb60
9 changed files with 160 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
src/clj/auto_ap/routes/queries.clj
View File

@@ -1,34 +1,22 @@
(ns auto-ap.routes.queries
(:require [auto-ap.datomic :refer [conn]]
[auto-ap.datomic.clients :as d-clients]
[auto-ap.datomic.ledger :as d-ledger]
[auto-ap.datomic.transactions :as d-transactions]
[auto-ap.datomic.vendors :as d-vendors]
[clojure.string :as str]
[unilog.context :as lc]
[buddy.sign.jwt :as jwt]
[auto-ap.graphql :as graphql]
[auto-ap.graphql.utils :refer [->graphql <-graphql assert-admin assert-can-see-client]]
[auto-ap.routes.utils :refer [wrap-secure]]
[clojure.tools.logging :as log]
[auto-ap.logging :refer [error-event info-event warn-event]]
[clj-time.coerce :as coerce :refer [to-date]]
[amazonica.aws.s3 :as s3]
[clj-time.core :as time]
[clojure.java.io :as io]
(:require [amazonica.aws.s3 :as s3]
[auto-ap.datomic :refer [conn]]
[auto-ap.graphql.utils :refer [assert-admin]]
[clojure.data.csv :as csv]
[clojure.java.io :as io]
[clojure.string :as str]
[clojure.tools.logging :as log]
[com.unbounce.dogstatsd.core :as statsd]
[compojure.core
:refer
[context defroutes GET POST PUT routes wrap-routes]]
[config.core :refer [env]]
[compojure.core :refer [context defroutes GET POST PUT wrap-routes routes]]
[datomic.api :as d]
[ring.middleware.json :refer [wrap-json-response]]
[venia.core :as venia]
[yang.time :refer [time-it]]
[ring.util.request :refer [body-string]]
)
[unilog.context :as lc])
(:import java.util.UUID))
(defn wrap-csv-response [handler]
(fn [request]
(let [response (handler request)]
@@ -101,8 +89,9 @@
:key (str/replace (:key o) #"^queries\/" "")})))}))
(GET "/:query-id/results/json" {:keys [query-params identity params]}
{:body (execute-query query-params params)})
))
(statsd/increment (str "export.query.count") {:tags #{(:query-id params)}})
(statsd/time! [(str "export.query.time") {:tags #{(:query-id params)}}]
{:body (execute-query query-params params)}))))
(def raw-routes
@@ -119,7 +108,9 @@
(def csv-routes
(context "/queries" []
(GET "/:query-id/results/csv" {:keys [query-params identity params]}
{:body (execute-query query-params params)})))
(statsd/increment (str "export.query.count") {:tags #{(:query-id params)}})
(statsd/time! [(str "export.query.time") {:tags #{(:query-id params)}}]
{:body (execute-query query-params params)}))))
(defroutes query2-routes
(routes
raw-routes