blob: 86f962917b02b99347a52333ad0b33620a568911 (
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
|
#!/bin/bash
# Solves issue165... on the old flyspray install. I have no idea what issue that was.
. "$(dirname "$(readlink -e "$0")")/../config"
. "$(dirname "$(readlink -e "$0")")/../db-functions"
# Traverse all repos
for _repo in "${PKGREPOS[@]}"; do
msg "Cleaning up [%s]" "${_repo}"
# Find all pkgnames on this repo's abs
on_abs=($(
find "${SVNREPO}/${_repo}" -name PKGBUILD | \
while read pkgbuild; do
source "${pkgbuild}" >/dev/null 2>&1
# cleanup to save memory
unset build package source md5sums pkgdesc pkgver pkgrel epoch \
url license arch depends makedepends optdepends options \
>/dev/null 2>&1
# also cleanup package functions
for _pkg in "${pkgname[@]}"; do
unset "package_${pkg}" >/dev/null 2>&1
done
# this fills the on_abs array
echo "${pkgname[@]}"
done
))
# quit if abs is empty
if [ ${#on_abs[*]} -eq 0 ]; then
warning "[%s]'s ABS tree is empty, skipping" "${_repo}"
break
fi
# Find all pkgnames on repos
on_repo=($(
find "${FTP_BASE}/${_repo}" -name "*.pkg.tar.?z" \
-printf "%f\n" | sed "s/^\(.\+\)-[^-]\+-[^-]\+-[^-]\+$/\1/"
))
# Compares them, whatever is on repos but not on abs should be removed
remove=($(comm -13 \
<(printf '%s\n' "${on_abs[@]}" | sort -u) \
<(printf '%s\n' "${on_repo[@]}" | sort -u) ))
# Remove them from databases, ftpdir-cleanup will take care of the rest
find "${FTP_BASE}/${_repo}" -name "*.db.tar.?z" \
-exec repo-remove {} "${remove[@]}" >/dev/null 2>&1 \;
msg2 "Removed the following packages:"
plain '%s' "${remove[@]}"
done
|
