manager/usage.lsp

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