X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Finstall.lsp;h=6cf0c8790fe8e7be743bf49946e4f821d19a97d9;hb=f7059701344926ed920ff39a3447d865364f9add;hp=c4193bea8cb792abe0388212c20eb253e9e76bd7;hpb=4466d2ec250322c1b603d041703259586e213b22;p=rrq%2Fhourglass.git

diff --git a/manager/install.lsp b/manager/install.lsp
index c4193be..6cf0c87 100644
--- 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)