manager/install.lsp

   1 #!/usr/bin/newlisp
   2 #
   3 # Install the Hourglass service to new directory www
   4
   5 (when (directory? "www")
   6   (write-line 2 "** directory www exists. aborting")
   7   (exit 1))
   8
   9 (define (copy-out F)
  10   (write-file F (read-file F)))
  11
  12 (make-dir "www")
  13 (make-dir "www/images")
  14 (copy-out "www/hourglass.css")
  15 (copy-out "www/images/hourglass.png")
  16
  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")