added conf to dist

[rrq/hourglass.git] / manager / history.lsp

diff --git a/manager/history.lsp b/manager/history.lsp
index 3002839fe33de2e530c91871c99da4fec0065873..fdf12198c59c74622889e89f8977fe3070db3a25 100644 (file)
--- 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