polished build procedure

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

diff --git a/manager/install.lsp b/manager/install.lsp
index c4193bea8cb792abe0388212c20eb253e9e76bd7..6cf0c8790fe8e7be743bf49946e4f821d19a97d9 100644 (file)
--- a/manager/install.lsp
+++ b/manager/install.lsp
@@ -6,6 +6,12 @@
   (write-line 2 "** directory www exists. aborting")
   (exit 1))
 
+(unless (directory? SITE:listener.activity.dir)
+  (write-line 2 (format "** directory %s doesn't exists. aborting"
+                        SITE:listener.activity.dir
+                        ))
+  (exit 1))
+
 (define (copy-out F)
   (write-file F (read-file F)))
 
@@ -18,3 +24,9 @@
 (! "ln -sTf ../hourglass-web www/history.cgi")
 (! "ln -sTf ../hourglass-web www/usage.cgi")
 (! "ln -sTf ../hourglass-web www/controls.cgi")
+
+(define (maybe-touch F (D "")) (unless (file? F) (write-file F D)))
+
+(maybe-touch SITE:control.dat)
+(maybe-touch SITE:control.usage.dat "(0 0)")
+(maybe-touch SITE:wui.passwd)