Send patches - preferably formatted by git format-patch - to patches at archlinux32 dot org.
summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/find-double-packages79
1 files changed, 79 insertions, 0 deletions
diff --git a/bin/find-double-packages b/bin/find-double-packages
new file mode 100755
index 0000000..1732b5b
--- /dev/null
+++ b/bin/find-double-packages
@@ -0,0 +1,79 @@
+#!/bin/sh
+
+# shellcheck disable=SC2119,SC2120
+
+# shellcheck source=../lib/load-configuration
+. "${0%/*}/../lib/load-configuration"
+
+usage() {
+ >&2 echo ''
+ >&2 echo 'find-double-packages: find packages which are double on the mirror.'
+ >&2 echo ''
+ >&2 echo 'possible options:'
+ >&2 echo ' -h|--help:'
+ >&2 echo ' Show this help and exit.'
+ >&2 echo ' -m|--mirror-dir location of the mirror files'
+ [ -z "$1" ] && exit 1 || exit "$1"
+}
+
+eval set -- "$(
+ getopt -o hm: \
+ --long help \
+ --long mirror: \
+ -n "$(basename "$0")" -- "$@" || \
+ echo usage
+)"
+
+mirror=''
+no_action=false
+wait_for_lock='-n'
+
+while true
+do
+ case "$1" in
+ -h|--help)
+ usage 0
+ ;;
+ -m|--mirror)
+ if [ -n "${mirror}" ]; then
+ >&2 echo 'Already have one -m flag.'
+ usage
+ fi
+ shift
+ mirror="$1"
+ ;;
+ --)
+ shift
+ break
+ ;;
+ *)
+ >&2 echo 'Whoops, forgot to implement option "'"$1"'" internally.'
+ exit 42
+ ;;
+ esac
+ shift
+done
+
+if [ $# -ne 0 ]; then
+ >&2 echo 'Too many arguments.'
+ usage
+fi
+
+if [ -z "${mirror}" ]; then
+ >&2 echo 'Flag -m missing'
+ usage
+fi
+
+pooldir="${mirror}/pool"
+poolfiles="/tmp/files_in_pool"
+find "${pooldir}" -type f -name '*pkg.tar.xz' | \
+ rev | cut -f 1 -d / | rev | sort >"${poolfiles}"
+
+for arch in i486 i686 pentium4; do
+ for repo in core extra community; do
+ packagedir=${mirror}/${arch}/${repo}/
+ find "$packagedir" -type l -name '*pkg.tar.xz' >"/tmp/files_in_repo_${arch}_${repo}"
+ done
+done
+
+