manager/usage-extra.lsp

   1 (define (set-usage-extra m)
   2   (let ((h (/ m 60)))
   3     (setf m (- m (* h 60)))
   4     (write-file "../control-extra.dat" (format "%d %d\n" h m))))
   5
   6 (catch
   7     (let ((data "")(b "") (c '()) (v nil))
   8       (while (read 0 b 1000) (extend data b))
   9       (setf v (map (fn (x) (parse x "=")) (parse data "&")))
  10       (set-usage-extra (int (or (lookup "minutes" v) "0") 0 10))))
  11
  12 "usage-extra.lsp"