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 (string-trim (read-string f)) #\newline)))
 6	  )
 7       (n 0)
 8       )
 9
10    (unless (= n (length c))
11      (unless (string-null? (list-ref c n))
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")
21(define DULL_PATH (or (getenv "DULL_PATH") "/ports-dull"))
22(define (pkg-db pkg) (format #f "~a/~a" DULL_DB pkg))