]> git.decadent.org.uk Git - dak.git/blob - contrib/fix.7
security.debian.org
[dak.git] / contrib / fix.7
1 #!/bin/sh
2
3 # "I tried to understand you.. I tried to love you right"
4
5 dists=/org/ftp.debian.org/ftp/dists/
6 dir=$dists/woody/
7
8 for i in main contrib non-free; do # main contrib non-free
9   for j in arm; do # hurd-i386 hppa mips mipsel sh
10     echo "Processing $j ($i)..."
11     for k in $(find $dir/$i/binary-$j/ -type l); do
12       dest=$(readlink $k)
13       echo $dest | grep -q /binary-all/
14       if [ $? -eq 0 ]; then
15         file=$(basename $k)
16         woody=$(find $dists/woody/$i/binary-all/ -name $file)
17         if [ -z "$woody" ]; then 
18           echo "Killing link to $file"; 
19           rm $k
20         fi
21       fi
22     done
23   done
24 done