summaryrefslogtreecommitdiff
path: root/extra/coadde/db-cleanup
blob: ffa260162550ae886784fc789a35a4bbb24845fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
#!/bin/bash
# Syncs pools against themselves using database contents as filter to cleanup
# them up
# License: GPLv3

# Principles
# * Get repos dbs contents
# * Make them a include list
# * Rsync pools against themselves removing excluded files
# * Instant cleanup!

trap_exit() {
	echo
	error "$@"
	exit 1
}

source "$(dirname "$(readlink -e "$0")")/config"
source "$(dirname "$(readlink -e "$0")")/db-libremessages"

# From makepkg
set -E

trap 'trap_exit "$(gettext "TERM signal caught. Exiting...")"' TERM HUP QUIT
trap 'trap_exit "$(gettext "Aborted by user! Exiting...")"' INT
trap 'trap_exit "$(gettext "An unknown error has occurred. Exiting...")"' ERR

EXTRAFLAGS=()
"${CLEANUP_DRYRUN}" && EXTRAFLAGS+=(--dry-run)

filter=$(mktemp -t "${0##*/}.XXXXXXXXXX")
trap "rm -f -- $(printf %q "$filter")" EXIT

for _repo in "${PKGREPOS[@]}"; do
	for _arch in "${ARCHES[@]}"; do
		msg "Getting %s-%s database" "${_repo}" "${_arch}"

		dbfile="${FTP_BASE}/${_repo}/os/${_arch}/${_repo}${DBEXT}"

		if [ ! -r "${dbfile}" ]; then
			warning "Not found"
			continue
		fi

		# Echo the contents into a filter file
		bsdtar tf "${dbfile}" | \
			cut -d'/' -f1 | \
			sort -u | \
			sed "s|$|*|" >> "$filter"

	done
done

msg "Removing old files:"

for POOL in "${PKGPOOLS[@]}" "${SRCPOOLS[@]}"; do
	msg2 '%s' "${POOL}"

	rsync "${EXTRAFLAGS[@]}" -va --delete-excluded \
		--include-from="$filter" \
		--exclude="*" \
		"${FTP_BASE}/${POOL}/" \
		"${FTP_BASE}/${POOL}/"
done

msg "Removing dead symlinks:"
actions=(-print)
"${CLEANUP_DRYRUN}" || actions+=(-delete)
find -L "${FTP_BASE}/" -type l "${actions[@]}"