(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)))
(! "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)