#!/usr/bin/newlisp
#
# 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)))

(make-dir "www")
(make-dir "www/images")
(copy-out "www/hourglass.css")
(copy-out "www/images/hourglass.png")

(! "ln -sTf ../hourglass-web www/index.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)