3 # Install the Hourglass web tree to a new "www" subdirectory
5 (when (directory? "www")
6 (write-line 2 "** directory www exists. aborting")
9 (unless (directory? SITE:listener.activity.dir)
10 (write-line 2 (format "** directory %s doesn't exists. aborting"
11 SITE:listener.activity.dir
16 (write-file F (read-file F)))
19 (make-dir "www/images")
20 (copy-out "www/hourglass.css")
21 (copy-out "www/images/hourglass.png")
23 (! "ln -sTf ../hourglass-web www/index.cgi")
24 (! "ln -sTf ../hourglass-web www/history.cgi")
25 (! "ln -sTf ../hourglass-web www/usage.cgi")
26 (! "ln -sTf ../hourglass-web www/controls.cgi")
28 (define (maybe-touch F (D "")) (unless (file? F) (write-file F D)))
30 (maybe-touch SITE:control.dat "()\n")
31 (maybe-touch SITE:control.usage.dat "(0 0)\n")
32 (maybe-touch SITE:wui.passwd "aG91cmdsYXNz\n")