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