manager/install.lsp

   1 #!/usr/bin/newlisp
   2 #
   3 # Install the Hourglass web tree to a new "www" subdirectory
   4
   5 (when (directory? "www")
   6   (write-line 2 "** directory www exists. aborting")
   7   (exit 1))
   8
   9 (unless (directory? SITE:listener.activity.dir)
  10   (write-line 2 (format "** directory %s doesn't exists. aborting"
  11                         SITE:listener.activity.dir
  12                         ))
  13   (exit 1))
  14
  15 (define (copy-out F)
  16   (write-file F (read-file F)))
  17
  18 (make-dir "www")
  19 (make-dir "www/images")
  20 (copy-out "www/hourglass.css")
  21 (copy-out "www/images/hourglass.png")
  22
  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")
  27
  28 (define (maybe-touch F (D "")) (unless (file? F) (write-file F D)))
  29
  30 (maybe-touch SITE:control.dat)
  31 (maybe-touch SITE:control.usage.dat "(0 0)")
  32 (maybe-touch SITE:wui.passwd)