X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=zpm-install;h=589cb84adc3e9acd90fc7fba90293e5f2bbfe93a;hb=20b8242c2a4071165d5b4d613e37986c75fe6403;hp=8d259c0be2ad9d4d40a9a2759e209b261d238545;hpb=d3b90e6aa8ab580c77ead76ff5c6c6dca7991cc6;p=zpackage

diff --git a/zpm-install b/zpm-install
index 8d259c0..589cb84 100755
--- a/zpm-install
+++ b/zpm-install
@@ -1,6 +1,14 @@
 #!/bin/sh
 
-#package=${1:-$ZPMPACKAGE}
+# what we need to install a package:
+
+# recording repo: where we record what we've done
+# source: where we get the package and files from
+# install root: really just a prefix, but thought about differently,
+#    and we might need to do a chroot
+
+# zpm install [options] <package ...>
+
 pkgver=${ZPMPACKAGEVER:-1.0}
 pkgrel=${ZPMPACKAGEREL:-1}
 
@@ -31,25 +39,45 @@ pkgroot=/
 # TODO what's the difference between prefix and pkgroot
 # need an option to not chown the files
 # option to install but not merge/track
-while getopts :f:v:r:d:a:u:l:p:b:P:R: opt; do
+
+# options
+# -R install root, if installing as root, will chroot?
+# -C no chroot, even if root
+# -N no pre-scripts
+# -X no post-scripts
+# -f source repository file
+# -d local (recording) repository database
+# -D don't locally record
+# -t only files matching tags
+# -T exclude files matching tags
+
+chroot=1
+
+for cf in /etc/zpmrc ~/.zpmrc ./.zpmrc; do
+	test -r $cf && . $cf
+done
+
+while getopts :R:CNXf:d:Dt:T:u:g: opt; do
 	case $opt in
 		R) pkgroot="$OPTARG" ;;
+		C) chroot=0 ;;
 		f) pkgfile="$OPTARG" ;;
-		v) pkgver="$OPTARG" ;;
-		r) pkgrel="$OPTARG" ;;
-		d) description="$OPTARG" ;;
-		a) arch="$OPTARG" ;;
-		u) url="$OPTARG" ;;
-		l) licenses="$OPTARG" ;;
-		p) packager="$OPTARG" ;;
-		b) builddate="$OPTARG" ;;
-		P) prefix="$OPTARG" ;;
+		u) user="$OPTARG" ;;
+		g) group="$OPTARG" ;;
+		d) ZPMDB="$OPTARG" ;;
 	esac
 done
+
 shift $((OPTIND - 1))
 
+: ${ZPMDB:=/var/lib/zpm/db.zpm}
+
+export ZPMDB
+
 die() {
-	echo $* 1>&2
+	printf 'zpm-install:' 1>&2
+	printf ' %s' $* 1>&2
+	printf '\n' 1>&2
 	exit 1
 }
 
@@ -73,13 +101,24 @@ else
 fi
 
 pathlist() {
-	sqlite3 $pkgfile<<EOS
+	zpm shell $pkgfile<<EOS
 select path from packagefiles
 	where package||'-'||version||'-'||release = '$pkg'
 	;
 EOS
 }
 
+# find a repo file for a given package
+findrepofor() {
+	false
+}
+
+installpkg() (
+	package="$1"
+)
+
+zpm merge $pkgfile
+
 for pkg in $pkglist; do
 	# TODO find scripts marked as pre-install
 	# TODO if this is an upgrade, run pre-upgrade
@@ -87,13 +126,16 @@ for pkg in $pkglist; do
 	# TODO get total size of install so we can do a progress bar
 
 	# add package info to local package db
-	# zpm merge -L -f $pkgfile $pkg
 	# check for conflicts
 	# mark package in localdb as installing
 	# zpm setmark installing $pkg
 	# install all the files for a package
 	# TODO install directories first in order of path length
-	pathlist | xargs zpm ipkgfile -R "$pkgroot" -f $pkgfile -- $pkg 
+	echo installing $pkglist
+	filecount=$(pathlist | wc -l)
+	echo $filecount files
+	#pathlist
+	pathlist | xargs zpm ipkgfile ${user+-u $user} ${group+-g $group} -R "$pkgroot" -f $pkgfile -- $pkg
 
 	# TODO find scripts marked as post-install
 	# TODO if this is an upgrade, run post-upgrade