intermediate capture

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

diff --git a/manager/install.lsp b/manager/install.lsp
index 6e234d2a5d30105038ef2fc8336a3e99b48dcad3..6cf0c8790fe8e7be743bf49946e4f821d19a97d9 100644 (file)
--- a/manager/install.lsp
+++ b/manager/install.lsp
@@ -1,11 +1,17 @@
 #!/usr/bin/newlisp
 #
-# Install the Hourglass service to new directory www
+# Install the Hourglass web tree to a new "www" subdirectory
 
 (when (directory? "www")
   (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)