X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Fusage.lsp;h=c5de943e49f03624ac421bd0bc46e6992b94c25d;hb=10d5ff6dcc2a35e5d690216edc16950e4fb022a9;hp=e53a4ac467e794f6d48c55747589145f1dd089ed;hpb=30dfa8ed48bceb1df62c4accf5b7a680d1b20634;p=rrq%2Fhourglass.git

diff --git a/manager/usage.lsp b/manager/usage.lsp
index e53a4ac..c5de943 100644
--- a/manager/usage.lsp
+++ b/manager/usage.lsp
@@ -29,5 +29,6 @@
 (when (and EXTRATM EXTRA (>= TM EXTRATM))
   (setf X (tm2time (- (+ EXTRATM  (time2tm EXTRA)) TM))))
 
+(println "Status 200 OK\nContent-Type: text/html\n\n")
 (println (expand-file "tmpl/usage-form.html" ))
 (exit 0)