X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Fhistory.lsp;h=fdf12198c59c74622889e89f8977fe3070db3a25;hb=refs%2Fheads%2Fmaster;hp=3002839fe33de2e530c91871c99da4fec0065873;hpb=05a9c528d8aee0373f52fa1bc72250e7f3625e76;p=rrq%2Fhourglass.git

diff --git a/manager/history.lsp b/manager/history.lsp
index 3002839..fdf1219 100644
--- a/manager/history.lsp
+++ b/manager/history.lsp
@@ -26,10 +26,10 @@
 (define (usage-file dat)
   (clean null?
          (map usage
-              (parse (read-file (format "../activity/%s" dat)) "\n"))))
+              (parse (read-file (format "activity/%s" dat)) "\n"))))
 
 (setf
- USAGE (sort (flat (map usage-file (directory "../activity" "^[^.]")) 1) <)
+ USAGE (sort (flat (map usage-file (directory "activity" "^[^.]")) 1) <)
  MAP '()
  )
 
@@ -44,6 +44,7 @@
 
 (setf MAP (map (fn (x) (list (x 0) (mkmap (1 x)))) MAP))
 
+(println "Status 200 OK\nContent-Type: text/html\n\n")
 (println (expand-file "tmpl/history-page.html"))
 (exit 0)
 (load