(load "expand-string.lsp")

(when (= (env "REQUEST_METHOD") "POST")
  (load "usage-extra.lsp")
  )

(define (get-remote-user) REMOTE_USER)

(constant
 'ADMIN (member REMOTE_USER '("ralph" "lin"))
 'USAGE (read-expr (read-file "usage.dat"))
 'extra-options '(0 10 30 60)
 'EXTRAFILE "control-extra.dat"
 'EXTRATM (file-info EXTRAFILE 6)
 'TM (date-value)
 'EXTRA (and (regex "([0-9]+) ([0-9]+)" (or (read-file EXTRAFILE) "") 0)
             (list (int $1 0 10) (int $2 0 10)))
 )

(define (tm2time tm)
  (if (> tm) (letn ((m (/ tm 60)) (h (/ m 60))) (list h (- m (* 60 h))))
    '(0 0))
  )

(define (time2tm t)
  (+ (* 3600 (t 0)) (* 60 (t 1))))

(setf X '(0 0))
(when (and EXTRATM EXTRA (>= TM EXTRATM))
  (setf X (tm2time (- (+ EXTRATM  (time2tm EXTRA)) TM))))

(println (expand-file "tmpl/usage-form.html" ))
(exit 0)