(let ((data "")(b "") (c '()) (v nil))
(while (read 0 b 1000) (extend data b))
(setf v (map (fn (x) (parse x "=")) (parse data "&")))
- (push (list 'control "ipset-control.lsp") c -1)
(push (list 'gap (int-parse (lookup "gap" v))) c -1)
(push (list 'clip (int-parse (lookup "clip" v))) c -1)
(for (i 1 7)
(mode-parse (lookup (string "mode" i) v))
(time-parse (lookup (string "start" i) v))
(time-parse (lookup (string "limit" i) v))
- (time-parse (lookup (string "end" i) v))
- ) c -1))
- (write-file "control.dat"
+ (time-parse (lookup (string "end" i) v)) )
+ c -1))
+ (write-file CONTROLFILE
(append (format "; Updated at %s\n(" (date))
(join (map string c) "\n " true)
")\n"))