Allows downloading of csv files automatically.
This commit is contained in:
@@ -107,7 +107,10 @@
|
||||
|
||||
(defn results-csv-query [{:keys [query-params params]}]
|
||||
(statsd/time! [(str "export.query.time") {:tags #{(str "query:" (:query-id params))}}]
|
||||
{:body (execute-query query-params params)}))
|
||||
{:body (execute-query query-params params)
|
||||
:headers (cond-> {"Content-Type" "text/plain"}
|
||||
(or (get query-params "dl") (get query-params :dl)) (assoc "Content-Disposition" "attachment; filename=\"results.csv\""
|
||||
"Content-Type" "text/csv"))}))
|
||||
|
||||
(def routes2 {"api/" {#"queries/?" {[:query-id "/raw"] {:get :raw-query}
|
||||
[:query-id "/results/csv"] {:get :results-csv-query}
|
||||
|
||||
Reference in New Issue
Block a user