X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Findex.lsp;h=16003fb1506b69d6408de4d23ee208b655448005;hb=3feeffd680a6d4abfb63b15a40e5246e4969ddf4;hp=1dcc89e39a6ec54f13688a934b91d10c6f9c89bc;hpb=05a9c528d8aee0373f52fa1bc72250e7f3625e76;p=rrq%2Fhourglass.git

diff --git a/manager/index.lsp b/manager/index.lsp
index 1dcc89e..16003fb 100644
--- a/manager/index.lsp
+++ b/manager/index.lsp
@@ -1,3 +1,6 @@
 (load "expand-string.lsp")
+(write-line 2 (string "index.lsp"))
+(write-line 2 (string (expand-file "tmpl/index-page.html")))
+(println "Status 200 OK\nContent-Type: text/html\n\n")
 (println (expand-file "tmpl/index-page.html"))
 (exit 0)