add copy from the lukeshu/xbs repo

1 files changed, 49 insertions, 0 deletions

diff --git a/extra/lukeshu-xbs/db-remove b/extra/lukeshu-xbs/db-remove
new file mode 100755
index 0000000..dcbe4b4
--- /dev/null
+++ b/extra/lukeshu-xbs/db-remove
@@ -0,0 +1,49 @@
+#!/bin/bash
+
+. "$(dirname "$(readlink -e "$0")")/config"
+. "$(dirname "$(readlink -e "$0")")/db-functions"
+
+if [ $# -lt 3 ]; then
+	msg "usage: %s <repo> <arch> <pkgname|pkgbase> ..." "${0##*/}"
+	exit 1
+fi
+
+repo="$1"
+arch="$2"
+pkgbases=("${@:3}")
+
+if ! check_repo_permission "$repo"; then
+	die "You don't have permission to remove packages from %s" "${repo}"
+fi
+
+if [ "$arch" == "any" ]; then
+	tarches=("${ARCHES[@]}")
+else
+	tarches=("$arch")
+fi
+
+for tarch in "${tarches[@]}"; do
+	repo_lock "$repo" "$tarch" || exit 1
+done
+
+remove_pkgs=()
+for pkgbase in "${pkgbases[@]}"; do
+	msg "Removing %s from [%s]..." "$pkgbase" "$repo"
+
+	path="$(xbs releasepath "$pkgbase" "$repo" "$arch")"
+	if [ -d "$path" ]; then
+		remove_pkgs+=($(. "$path/PKGBUILD"; echo "${pkgname[@]}"))
+		xbs unrelease "$pkgbase" "$repo" "$arch"
+	else
+		warning "%s not found in %s for %s" \
+			"$pkgbase" "$(xbs name)" "$repo-$arch"
+		warning "Removing only %s from the repo" "$pkgbase"
+		warning "If it was a split package you have to remove the others yourself!"
+		remove_pkgs+=("$pkgbase")
+	fi
+done
+
+for tarch in "${tarches[@]}"; do
+	arch_repo_remove "${repo}" "${tarch}" "${remove_pkgs[@]}"
+	repo_unlock "$repo" "$tarch"
+done