summaryrefslogtreecommitdiff
path: root/cron-jobs/repo-sanity-check
blob: 1ba90a690e8b3a7c9279825c4877df797a1f8f1f (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
#!/bin/bash
# Solves issue165

. "$(dirname $0)/../db-functions"
. "$(dirname $0)/../config"

# Traverse all repos
for _repo in ${PKGREPOS[@]}; do
    msg "Cleaning up [${_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 "[${_repo}]'s ABS tree is empty, skipping"
        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 <(echo ${on_abs[@]} | tr ' ' "\n" | sort -u) \
             <(echo ${on_repo[@]} | tr ' ' "\n" | 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 "$(echo ${remove[@]} | tr ' ' "\n")"

done

exit $?