projects
/
rrq
/
hourglass.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
intermediate capture
[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))
(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)))
(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")
(! "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)