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

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