Updated download link, added filename header.

Author: chr15m

bin/test-fetch-csvs.sh

@@ -1,3 +1,3 @@
 #!/bin/sh
 
-curl http://localhost:8000/server/?all
+curl "http://localhost:8000/server/?events-csv"

server/index.mal

@@ -96,8 +96,10 @@
          (cond
            ; a get request always returns a list of available CSVs
            (= (get vars "REQUEST_METHOD") "GET")
-           (if (not (nil? (get ($ "_GET") "all")))
-             (response "text/csv" (concatenate-all-csvs event-names))
+           (if (not (nil? (get ($ "_GET") "events-csv")))
+             (do
+               (! header "Content-disposition: attachment; filename=events.csv")
+               (response "text/csv" (concatenate-all-csvs event-names)))
              (response "application/json" (! json_encode event-names)))
 
            ; a PUT request writes a new line to the end of a CSV