commit 3daffb4

read variables from a config file

 1@@ -24,6 +24,11 @@
 2 (define (die a n)
 3   (format #t "\x1b[m\x1b[31mERROR: \x1b[m~a~%" a)(quit n))
 4 
 5+(define (desc)
 6+;;  (seteuid (passwd:uid (getpwnam (getenv "DOAS_USER"))))
 7+   (seteuid 0)
 8+  )
 9+
10 (define (usage)
11   (format #t "usage: ~a <cmd> <pkgs>~%" DULL)
12   (format #t "       ~a h~%" DULL)

 1@@ -35,6 +35,8 @@
 2     (exit 1))
 3   )
 4 
 5+(desc)
 6+
 7 (let pargs
 8     (
 9      (n 0)
10@@ -65,7 +67,8 @@
11        (build-pkg pkg)
12        )
13       ((#\i)
14-       (inst-pkg pkg)
15+       (seteuid 0)
16+       (inst-pkg pkg)(desc)
17        )
18       ((#\c)
19        ;; shell out for this until i find a better method
20@@ -75,7 +78,8 @@
21 		)
22        )
23       ((#\d)
24-       (del-pkg pkg)
25+       (seteuid 0)
26+       (del-pkg pkg)(desc)
27        )
28       ((#\f)
29        (format #t "~a~%" (find-pkg pkg))

 1@@ -1,3 +1,19 @@
 2+(when (file-exists? "/etc/dull.conf.sh")
 3+(let rc
 4+    (
 5+     (c (call-with-input-file "/etc/dull.conf.sh" (lambda (f)
 6+						  (string-split (read-string f) #\newline)))
 7+	)
 8+     (n 0)
 9+     )
10+
11+  (unless (= n (length c))
12+    (let ((cl (string-split (list-ref c n) #\=)))
13+      (setenv (car cl) (cadr cl)))
14+    (rc c (+ n 1))
15+      ))
16+)
17+
18 (define DULL (basename (car (command-line))))
19 (define DULL_DIR "/var/tmp/dtr")
20 (define DULL_DB "/var/lib/dull")