manager/controls.lsp

   1 ; Load and present control.dat
   2
   3 (load "expand-string.lsp")
   4
   5 (constant
   6  'CONTROLFILE SITE:control.dat
   7  'GAP SITE:control.activity.gap
   8  'CLIP control.activity.clip
   9  )
  10
  11 (setf UPDATE "")
  12
  13 (when (= (env "REQUEST_METHOD") "POST")
  14   (load "controls-update.lsp")
  15   )
  16
  17 (define (time-row n)
  18   (or (assoc n CONTROL) (cons n (copy '(timed (7 0) (3 0) (19 0))))))
  19
  20 (setf
  21  DAYS '(0 "Mon" "Tue" "Wed" "Thu" "Fri" "Sat" "Sun")
  22  CONTROL (read-expr (read-file CONTROLFILE))
  23  TIMES (map time-row (sequence 1 7))
  24  mode-options '("opened" "timed" "closed")
  25  start-options '()
  26  end-options '()
  27  limit-options '()
  28  )
  29
  30 (dotimes (h 24)
  31   (dolist (m '(0 30))
  32     (push (format "%02d:%02d" h m) start-options -1)))
  33 (dotimes (h 24)
  34   (dolist (m '(0 30))
  35     (push (format "%02d:%02d" h m) end-options -1)))
  36 (for (h 1 8)
  37   (dolist (m '(0 30))
  38     (push (format "%02d:%02d" h m) limit-options -1)))
  39
  40 (println "Status 200 OK\nContent-Type: text/html\n\n")
  41 (println (expand-file "tmpl/controls-form.html" ))
  42 (exit 0)