manager/usage.lsp

   1 (load "expand-string.lsp")
   2
   3 (when (= (env "REQUEST_METHOD") "POST")
   4   (load "usage-extra.lsp")
   5   )
   6
   7 (define (get-remote-user) REMOTE_USER)
   8
   9 (constant
  10  'ADMIN (member REMOTE_USER '("ralph" "lin"))
  11  'USAGE (read-expr (read-file "usage.dat"))
  12  'extra-options '(0 10 30 60)
  13  'EXTRAFILE "control-extra.dat"
  14  'EXTRATM (file-info EXTRAFILE 6)
  15  'TM (date-value)
  16  'EXTRA (and (regex "([0-9]+) ([0-9]+)" (or (read-file EXTRAFILE) "") 0)
  17              (list (int $1 0 10) (int $2 0 10)))
  18  )
  19
  20 (define (tm2time tm)
  21   (if (> tm) (letn ((m (/ tm 60)) (h (/ m 60))) (list h (- m (* 60 h))))
  22     '(0 0))
  23   )
  24
  25 (define (time2tm t)
  26   (+ (* 3600 (t 0)) (* 60 (t 1))))
  27
  28 (setf X '(0 0))
  29 (when (and EXTRATM EXTRA (>= TM EXTRATM))
  30   (setf X (tm2time (- (+ EXTRATM  (time2tm EXTRA)) TM))))
  31
  32 (println (expand-file "tmpl/usage-form.html" ))
  33 (exit 0)