]> git.donarmstrong.com Git - cran2deb.git/blob - trunk/exec/cran2deb
e47543dfc3922d527b287dd06513980c83ce2e94
[cran2deb.git] / trunk / exec / cran2deb
1 #!/bin/sh
2 umask 002
3 root=$(r -e 'suppressMessages(library(cran2deb));cat(system.file(package="cran2deb"),file=stdout())')
4 cmd=$1
5
6 if [ "x" = "x$cmd" ]; then
7     cmd="help"
8 fi
9
10 if [ ! -x "$root/exec/$cmd" ]; then
11     echo unknown command $cmd
12     exit 1
13 fi
14
15 shift
16
17 precmd=""
18 if [ "$(id -un)" != c2d ]; then
19         precmd="sudo -u c2d -E"
20 fi
21
22 if [ "web" = "$cmd" ]; then 
23         # web uses getopt and would be irritated by the "$root" argument
24         $precmd "$root/exec/$cmd" $*
25 else
26         $precmd "$root/exec/$cmd" "$root" $*
27 fi