commit a89192d

root requirement

 1@@ -25,8 +25,8 @@
 2   (format #t "\x1b[m\x1b[31mERROR: \x1b[m~a~%" a)(quit n))
 3 
 4 (define (usage)
 5-  (format #t "usage: dull <cmd> <pkgs>~%")
 6-  (format #t "       dull h~%")
 7-  (format #t "       dull u|b|i|c|d <pkgs>~%")
 8-  (format #t "       dull m|f|s <pkgs>~%")
 9+  (format #t "usage: ~a <cmd> <pkgs>~%" DULL)
10+  (format #t "       ~a h~%" DULL)
11+  (format #t "       ~a u|b|i|c|d <pkgs>~%" DULL)
12+  (format #t "       ~a m|f|s <pkgs>~%" DULL)
13   )

 1@@ -13,6 +13,10 @@
 2   (mkdir-p DULL_DIR)
 3   )
 4 
 5+(unless
 6+    (zero? (getuid))
 7+  (die (format #f "you need to run ~a as root." (basename (car (command-line)))) 1))
 8+
 9 (define c
10   (if (> (length (command-line)) 1)
11       (cadr (command-line))

1@@ -1,3 +1,4 @@
2+(define DULL (basename (cadr (command-line))))
3 (define DULL_DIR "/var/tmp/dtr")
4 (define DULL_DB "/var/lib/dull")
5 (define DULL_PATH (or (getenv "DULL_PATH") "/ports-dull"))