pd.if.org Git - zpackage/blob - zpm-ipkgfile

   1 #!/bin/sh
   2
   3 # install a file from a package
   4 # -f pkgfile
   5 # -R root of pkg
   6 # -P prefix to file
   7 # -S strip prefix
   8 # -p pkgname
   9
  10 pkgroot=/
  11
  12 while getopts :f:v:r:d:a:u:g:l:p:b:P:R: opt; do
  13         case $opt in
  14                 R) pkgroot="$OPTARG" ;;
  15                 f) pkgfile="$OPTARG" ;;
  16                 v) pkgver="$OPTARG" ;;
  17                 r) pkgrel="$OPTARG" ;;
  18                 P) prefix="$OPTARG" ;;
  19                 u) owner="$OPTARG" ;;
  20                 g) group="$OPTARG" ;;
  21         esac
  22 done
  23 shift $((OPTIND - 1))
  24
  25 die() {
  26         echo $* 1>&2
  27         exit 1
  28 }
  29
  30 pkgfileinfo() {
  31         zpm shell $pkgfile<<EOS
  32 select $1 from packagefiles
  33         where path='$2'
  34         and package||'-'||version||'-'||release = '$pkg'
  35         ;
  36 EOS
  37 }
  38
  39 # if not from a package file, from local db
  40 if [ -z "$pkgfile" ]; then
  41         die "installing from non-pkgfile not supported"
  42 fi
  43
  44 pkg="$1"
  45 shift
  46
  47 ZPMPKGFILE=$pkgfile
  48 export ZPMPKGFILE
  49
  50 set -e
  51 for path in $*; do
  52
  53         name=$(basename -- $path)
  54         dir=$(dirname -- $path)
  55         dir=${dir#/}
  56
  57         if [ "$pkgroot" != '/' ]; then
  58                 dir=$pkgroot/$dir
  59                 dir=${dir%/.}
  60 #               if [ "$dir" = "//" ]; then dir=/ ; fi
  61         else
  62                 dir="/$dir"
  63         fi
  64
  65         # TODO generate some unique hash
  66         tmppath=$dir/.installing.$name
  67
  68         printf '%s installing %s\n' $pkg $dir/$name
  69
  70         fhash=$(pkgfileinfo hash $path)
  71         mode=$(pkgfileinfo mode $path)
  72         ftype=$(pkgfileinfo filetype $path)
  73         : ${owner:=$(pkgfileinfo username $path)}
  74         : ${group:=$(pkgfileinfo groupname $path)}
  75
  76         # can't use install because it's not posix.
  77         # probably worth writing a zpm-install, but with
  78         # a different name since that wants to be a package install
  79         # probably makes the most sense for extract to know how
  80         # to do the extract to temp and such, then
  81         # you can just add the -S option (secure)
  82         #cat <<-EOC
  83         mkdir -p $dir
  84         umask 0700
  85         case $ftype in
  86                 r*) zpm extract $pkgfile $fhash $tmppath
  87                         chown $owner:$group $tmppath
  88                         chmod $mode $tmppath
  89                         # TODO mv -n non-posix, going to need to have extract
  90                         # do all of this
  91                         mv $tmppath $dir/$name
  92                         ;;
  93                 d*)
  94                         mkdir -m 000 $dir/$name
  95                         chown $owner:$group $dir/$name
  96                         chmod $mode $dir/name
  97                         ;;
  98
  99                 *) echo unknown filetype ; exit 1 ;;
 100         esac
 101
 102         #EOC
 103 done