X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=zpm-repo;h=19c20e09f4e1a8bd63ce619ebfe3ca48d3ee115a;hb=1db07c1b6aeb15056a27be26651b31b4a7f8d45f;hp=050e5ae0d9ee6a4a4b9dfde04721464932746fef;hpb=4b853577a65802c130837d9a9669ca3e4413dee8;p=zpackage

diff --git a/zpm-repo b/zpm-repo
index 050e5ae..19c20e0 100755
--- a/zpm-repo
+++ b/zpm-repo
@@ -108,11 +108,13 @@ update_info() {
 			curl -f '-#' -z "$rf" -o "$rf.tmp" "$url"
 			rv=$?
 		else
-			curl -f '-#' -o "$rf" "$url" && refresh "$repo"
+			curl -f '-#' -o "$rf.tmp" "$url" && refresh "$repo"
 			rv=$?
 		fi
 		if [ $rv -eq 0 ]; then
-		       	test -f "$rf.tmp" && mv "$rf.tmp" "$rf"
+		       	test -f "$rf.tmp" &&
+			zpm test -f "$rf.tmp" &&
+		       	mv "$rf.tmp" "$rf"
 			refresh "$repo"
 		fi
 	done
@@ -157,6 +159,27 @@ download() {
 	done
 }
 
+purge() {
+	repo=$1
+	shift
+	url=$(select "$repo" url)
+	base=${url%/*}
+	for package in "$@"; do
+		pkgid=$(zpm findpkg -f $repodir/$repo.repo $package)
+		if [ -z "$pkgid" ]; then
+			warn "no package found for $package"
+		else
+			mkdir -p "$repodir/$repo"
+			dest="$repodir/$repo/$pkgid.zpm"
+
+			if [ -f "$dest" ]; then
+				rm $dest
+			fi
+			zpm rmpackage -f $repodir/$repo.repo $pkgid
+		fi
+	done
+}
+
 check_for_repo() {
 	rn=$(select "$1" name)
 	if [ -z "$rn" ]; then
@@ -178,7 +201,7 @@ case $action in
 		name=$(zpm quote "$1")
 		zpm shell $ZPMDB "delete from repository where name = '$name'"
 		rm -f $repodir/$1.repo
-		# TODO delete caches
+		test -d "$repodir/$repo" && rm -r "$repodir/$repo"
 		;;
 	url)
 		if [ -n "$2" ]; then
@@ -210,6 +233,10 @@ case $action in
 		shift
 		zpm contents -f $repodir/$repo.repo "$@"
 		;;
+	purge)
+		purge "$@"
+		;;
+
 	*)
 		echo unknown action
 		exit 1