summaryrefslogtreecommitdiff
path: root/genpkglist
blob: 31b7c785d9936fbaa9d6f2938191d0f6b6408a62 (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
70
71
72
73
74
#!/bin/bash
#
# genpkglist
#
# Generates a text package database for use with the setup script
# (also used to check for missing packages in the download directory)
#

# Get the package name from the filename
# hackish, but should work for now
getpkgname() {
  local tmp

  tmp=${1##*/}
  tmp=${tmp%.pkg.tar.gz}
  tmp=${tmp%-i686}
  tmp=${tmp%-x86_64}
  echo ${tmp%-*-*}
}

pkgfile="$(pwd)/packages.txt"
ftppath=$1
repotag=$2

rm -f $pkgfile
for package in *; do
    if [ -d "$package/$repotag/" ]; then
        cd "$package/$repotag/"
		if [ -f PKGBUILD ]; then
			. PKGBUILD
			if [ -f $ftppath/$pkgname-$pkgver-$pkgrel.pkg.tar.gz ]; then
				echo "$pkgname-$pkgver-$pkgrel.pkg.tar.gz" >>$pkgfile
			elif [ -f $ftppath/$pkgname-$pkgver-$pkgrel-$dbarch.pkg.tar.gz ]; then
				echo "$pkgname-$pkgver-$pkgrel-$dbarch.pkg.tar.gz" >>$pkgfile
			else
				echo "notice: Missing $pkgname-$pkgver-$pkgrel-$dbarch.pkg.tar.gz in ftp site" >&2
			fi
        fi
		cd ..
    fi
done

cd $ftppath
unset DUPES DUPEFILES last
for pkg in *.pkg.tar.gz; do
       pkgname=$(getpkgname $pkg)
       if [ "$last" = "$pkgname" ]; then
               DUPES="$DUPES $pkgname"
               DUPEFILES="$DUPEFILES $pkg"
       fi
       last=$pkgname
done

showdupes() {
       done=
       for i in *.pkg.tar.gz; do
               pkgname=$(getpkgname $i)
               if [ "$pkgname" = "$1" ]; then
                       ls -l $i | awk '{print $6" "$7" "$8" "$9}'
                       done=1
               else
                       [ "$done" = "1" ] && return
               fi
       done
}

if [ "$DUPES" ]; then
    DUPES=$((for d in $DUPES; do echo $d; done) | sort -u)
    echo "Possible Dupes for $ftppath (remove old versions)"
    echo "Date             Filename"
    for dupe in $DUPES; do
        showdupes $dupe
    done
fi