X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Fcontrols-update.lsp;h=bddef9199b3e2587a91b2beb9811ff3b2862c964;hb=a6009c7c04d72e861737a3cdf1e327eada42dcb3;hp=7eff0b9f438f1a0534cc0de8dff3437d0287c2af;hpb=30dfa8ed48bceb1df62c4accf5b7a680d1b20634;p=rrq%2Fhourglass.git

diff --git a/manager/controls-update.lsp b/manager/controls-update.lsp
index 7eff0b9..bddef91 100644
--- 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 "&")))
-      (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))
-                    (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"))