-; Load and present ../controls.dat
+; Load and present control.dat
(load "expand-string.lsp")
)
(constant
- 'CONTROLFILE "../control.dat"
+ 'CONTROLFILE "control.dat"
'CONTROL (read-expr (read-file CONTROLFILE))
'GAP (or (lookup 'gap CONTROL) 5)
'CLIP (or (lookup 'clip CONTROL) 5)
- 'INCL (or (lookup control CONTROL) "ipset-control.lsp")
+ 'INCL (or (lookup 'control CONTROL) "ipset-control.lsp")
'TIMES (map (fn (n) (or (assoc n CONTROL) '(1 timed (7 0) (3 0) (19 0))))
(sequence 1 7))
+ 'NET (or (lookup 'net CONTROL) "10.0.0.0/8")
)
(setf
end-options '()
limit-options '()
)
-(dotimes (h 23) (dolist (m '(0 30))
+(dotimes (h 24) (dolist (m '(0 30))
(push (format "%02d:%02d" h m) start-options -1)))
-(dotimes (h 23) (dolist (m '(0 30))
+(dotimes (h 24) (dolist (m '(0 30))
(push (format "%02d:%02d" h m) end-options -1)))
(for (h 1 8) (dolist (m '(0 30))
(push (format "%02d:%02d" h m) limit-options -1)))
+(println "Status 200 OK\nContent-Type: text/html\n\n")
(println (expand-file "tmpl/controls-form.html" ))
(exit 0)