revised to have dat files in local dir

diff --git a/manager/controls-update.lsp b/manager/controls-update.lsp
index cd7d2ccb58e9874f8f5002273124d88158a636ba..7eff0b9f438f1a0534cc0de8dff3437d0287c2af 100644 (file)
--- a/manager/controls-update.lsp
+++ b/manager/controls-update.lsp
@@ -27,7 +27,7 @@
                     (time-parse (lookup (string "limit" i) v))
                     (time-parse (lookup (string "end" i) v))
                     ) c -1))
-      (write-file "../control.dat"
+      (write-file "control.dat"
                   (append (format "; Updated at %s\n(" (date))
                           (join (map string c) "\n " true)
                           ")\n"))

diff --git a/manager/controls.lsp b/manager/controls.lsp
index b4779aee24a9e5684483b8c387e04702c1c4803c..60c00b5148ee19976c3d0d6286de0997b0b79496 100644 (file)
--- a/manager/controls.lsp
+++ b/manager/controls.lsp
@@ -1,4 +1,4 @@
-; Load and present ../controls.dat
+; Load and present control.dat
 
 (load "expand-string.lsp")
 
@@ -9,13 +9,14 @@
   )
 
 (constant
- 'CONTROLFILE "../control.dat"
+ 'CONTROLFILE "control.dat"
  'CONTROL (read-expr (read-file CONTROLFILE))
  'GAP (or (lookup 'gap CONTROL) 5)
  'CLIP (or (lookup 'clip CONTROL) 5)
- 'INCL (or (lookup control CONTROL) "ipset-control.lsp")
+ 'INCL (or (lookup 'control CONTROL) "ipset-control.lsp")
  'TIMES (map (fn (n) (or (assoc n CONTROL) '(1 timed (7 0) (3 0) (19 0))))
              (sequence 1 7))
+ 'NET (or (lookup 'net CONTROL) "10.0.0.0/8")
  )
 
 (setf

diff --git a/manager/history.lsp b/manager/history.lsp
index 3002839fe33de2e530c91871c99da4fec0065873..2192ac5be7f4e2db67756004c8efd9f54a3b575a 100644 (file)
--- a/manager/history.lsp
+++ b/manager/history.lsp
@@ -26,10 +26,10 @@
 (define (usage-file dat)
   (clean null?
          (map usage
-              (parse (read-file (format "../activity/%s" dat)) "\n"))))
+              (parse (read-file (format "activity/%s" dat)) "\n"))))
 
 (setf
- USAGE (sort (flat (map usage-file (directory "../activity" "^[^.]")) 1) <)
+ USAGE (sort (flat (map usage-file (directory "activity" "^[^.]")) 1) <)
  MAP '()
  )
 

diff --git a/manager/usage.lsp b/manager/usage.lsp
index 89fc09ab9df4bbd36cb6594fb3b95a98a764a527..e53a4ac467e794f6d48c55747589145f1dd089ed 100644 (file)
--- a/manager/usage.lsp
+++ b/manager/usage.lsp
@@ -4,14 +4,13 @@
   (load "usage-extra.lsp")
   )
 
-(define (get-remote-user)
-  (and (regex "^([^:]+):" (base64-dec (6 (env "HTTP_AUTHORIZATION"))) 0) $1))
+(define (get-remote-user) REMOTE_USER)
 
 (constant
- 'ADMIN (member (get-remote-user) '("ralph" "lin"))
- 'USAGE (read-expr (read-file "../usage.dat"))
+ 'ADMIN (member REMOTE_USER '("ralph" "lin"))
+ 'USAGE (read-expr (read-file "usage.dat"))
  'extra-options '(0 10 30 60)
- 'EXTRAFILE "../control-extra.dat"
+ 'EXTRAFILE "control-extra.dat"
  'EXTRATM (file-info EXTRAFILE 6)
  'TM (date-value)
  'EXTRA (and (regex "([0-9]+) ([0-9]+)" (or (read-file EXTRAFILE) "") 0)
@@ -19,8 +18,7 @@
  )
 
 (define (tm2time tm)
-  (if (> tm)
-      (letn ((m (/ tm 60)) (h (/ m 60))) (list h (- m (* 60 h))))
+  (if (> tm) (letn ((m (/ tm 60)) (h (/ m 60))) (list h (- m (* 60 h))))
     '(0 0))
   )