#! /usr/bin/perl
# ! Package linux-source-2.6.14-ssi (filename dists/1.9.6-lenny-preview/openssi/binary-all/linux-source-2.6.14-ssi_1.9.6-5_all.deb) is repeat;
#   ignored that one and using data from dists/1.9.6-lenny-preview/openssi/binary-all/linux-source-2.6.14-ssi_1.9.6-8_all.deb !

# ! Package linux-source-2.6.12-ssi (filename dists/1.9.6-lenny-preview/openssi/binary-all/linux-source-2.6.12-ssi_1.9.6-13_all.deb) is repeat but newer version;
#   used that one and ignored data from dists/1.9.6-lenny-preview/openssi/binary-all/linux-source-2.6.12-ssi_1.9.6-12_all.deb !
#

delete $ENV{LC_TIME};

# Don't pipe - want to make sure indexes made before zapping files

$LOG="/tmp/zz-make-indexes.$$";

if (system ("./make-indexes >/dev/null 2>$LOG") != 0) {
	unlink $LOG;
	die "make-indexes fail: $?\n";
}

open INDEXES, $LOG;

while (<INDEXES>) {
	if (/filename ([^)]+)\) is repeat;/) {
		print "unlink openssi/$1\n";
		unlink "openssi/$1";
	}
	elsif (/ignored data from ([^ ]+) !/) {
		print "unlink openssi/$1\n";
		unlink "openssi/$1";
	}
}

close INDEXES;
unlink $LOG;