support not building packages

[cran2deb.git] / trunk / exec / cran2deb

diff --git a/trunk/exec/cran2deb b/trunk/exec/cran2deb
index 3b2794acf3ba570e3622072d037c1257e5a6cff1..73a18bcc57e55cd2540ffc795fc33a56245668eb 100755 (executable)
--- a/trunk/exec/cran2deb
+++ b/trunk/exec/cran2deb
@@ -2,15 +2,40 @@
 umask 002
 root=$(r -e 'suppressMessages(library(cran2deb));cat(system.file(package="cran2deb"),file=stdout())')
 cmd=$1
-shift
+
+CRAN2DEB_CACHE=/var/cache/cran2deb
+CRAN2DEB_CONFDIR=/etc/cran2deb
+CRAN2DEB_BUILD="yes"
+if [ -r /etc/cran2deb/config ]; then
+    . /etc/cran2deb/config;
+fi;
+if [ -r ~/.cran2deb/config ]; then
+    CRAN2DEB_CONFDIR=~/.cran2deb
+    . ~/.cran2deb/config;
+fi;
+export CRAN2DEB_CACHE CRAN2DEB_CONFDIR CRAN2DEB_BUILD
+
+
+if [ "x" = "x$cmd" ]; then
+    cmd="help"
+fi
+
 if [ ! -x "$root/exec/$cmd" ]; then
     echo unknown command $cmd
     exit 1
 fi
 
-precmd=""
-if [ "$(id -un)" != c2d ]; then
-       precmd="sudo -u c2d -E"
-fi
+shift
 
-$precmd "$root/exec/$cmd" "$root" $*
+# there's no reason not to run cran2deb as a local user
+# precmd=""
+# if [ "$(id -un)" != c2d ]; then
+#      precmd="sudo -u c2d -E"
+# fi
+
+if [ "web" = "$cmd" ]; then 
+       # web uses getopt and would be irritated by the "$root" argument
+       $precmd "$root/exec/$cmd" $*
+else
+       $precmd "$root/exec/$cmd" "$root" $*
+fi