1 Oct
2007
1 Oct
'07
11:13 a.m.
Nicolas Neuss neuss@math.uni-karlsruhe.de writes:
(define-easy-handler (csv-export-page :uri "/csv-export") ((csv :parameter-type 'boolean) ...) (when csv (setf (content-type) "text/comma-separated-values" (header-out "Last-Modified") (rfc-1123-date (get-universal-time)) (content-length) nil) (let ((out (send-headers))) (csv-output :stream out ...))) (with-output-to-string (out) (fill-and-print-template "csv-export.html" values :stream out)))
As much as I can see, this works.
In the code, ... denote some further parameters which can be configured via the csv-export page.
Nicolas