3 # Install the Hourglass service to new directory www
5 (when (directory? "www")
6 (write-line 2 "** directory www exists. aborting")
10 (write-file F (read-file F)))
13 (make-dir "www/images")
14 (copy-out "www/hourglass.css")
15 (copy-out "www/images/hourglass.png")
17 (! "ln -sTf ../hourglass-web www/index.cgi")
18 (! "ln -sTf ../hourglass-web www/history.cgi")
19 (! "ln -sTf ../hourglass-web www/usage.cgi")
20 (! "ln -sTf ../hourglass-web www/controls.cgi")