projects
/
rrq
/
hourglass.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixes; first version
[rrq/hourglass.git]
/
manager
/
controls-update.lsp
diff --git
a/manager/controls-update.lsp
b/manager/controls-update.lsp
index 7eff0b9f438f1a0534cc0de8dff3437d0287c2af..bddef9199b3e2587a91b2beb9811ff3b2862c964 100644
(file)
--- a/
manager/controls-update.lsp
+++ b/
manager/controls-update.lsp
@@
-17,17
+17,14
@@
(let ((data "")(b "") (c '()) (v nil))
(while (read 0 b 1000) (extend data b))
(setf v (map (fn (x) (parse x "=")) (parse data "&")))
(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)
(push (list i
(mode-parse (lookup (string "mode" i) v))
(time-parse (lookup (string "start" i) v))
(time-parse (lookup (string "limit" i) v))
(for (i 1 7)
(push (list i
(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"))
(append (format "; Updated at %s\n(" (date))
(join (map string c) "\n " true)
")\n"))