1 ; Load and present control.dat
3 (load "expand-string.lsp")
6 'CONTROLFILE SITE:control.dat
7 'GAP SITE:control.activity.gap
8 'CLIP control.activity.clip
13 (when (= (env "REQUEST_METHOD") "POST")
14 (load "controls-update.lsp")
18 (or (assoc n CONTROL) (cons n (copy '(timed (7 0) (3 0) (19 0))))))
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")
32 (push (format "%02d:%02d" h m) start-options -1)))
35 (push (format "%02d:%02d" h m) end-options -1)))
38 (push (format "%02d:%02d" h m) limit-options -1)))
40 (println "Status 200 OK\nContent-Type: text/html\n\n")
41 (println (expand-file "tmpl/controls-form.html" ))