Email sent to the authors of flowQ requesting

[cran2deb.git] / trunk / exec / cran2deb

diff --git a/trunk/exec/cran2deb b/trunk/exec/cran2deb
index 7efedc751a484296ff30eb77cc3ed568cebc6635..e47543dfc3922d527b287dd06513980c83ce2e94 100755 (executable)
--- a/trunk/exec/cran2deb
+++ b/trunk/exec/cran2deb
@@ -2,9 +2,26 @@
 umask 002
 root=$(r -e 'suppressMessages(library(cran2deb));cat(system.file(package="cran2deb"),file=stdout())')
 cmd=$1
-shift
+
+if [ "x" = "x$cmd" ]; then
+    cmd="help"
+fi
+
 if [ ! -x "$root/exec/$cmd" ]; then
     echo unknown command $cmd
     exit 1
 fi
-"$root/exec/$cmd" "$root" $*
+
+shift
+
+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