projects
/
rrq
/
hourglass.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
updated settings
[rrq/hourglass.git]
/
manager
/
index.lsp
diff --git
a/manager/index.lsp
b/manager/index.lsp
index 1dcc89e39a6ec54f13688a934b91d10c6f9c89bc..16003fb1506b69d6408de4d23ee208b655448005 100644
(file)
--- a/
manager/index.lsp
+++ b/
manager/index.lsp
@@
-1,3
+1,6
@@
(load "expand-string.lsp")
(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)
(println (expand-file "tmpl/index-page.html"))
(exit 0)