From bd902323ce9b499d77db5e2977a86d43c0aa6eba Mon Sep 17 00:00:00 2001
From: Joachim Breitner <nomeata@debian.org>
Date: Wed, 29 Jul 2009 19:06:38 +0200
Subject: [PATCH] Throw out unwanted entries in keep-latest

---
 bin/keep-latest | 15 ++++++++++++---
 trigger.often   |  4 ++--
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/bin/keep-latest b/bin/keep-latest
index c66c41b..f1383e1 100755
--- a/bin/keep-latest
+++ b/bin/keep-latest
@@ -6,20 +6,26 @@ use warnings;
 use WannaBuild; # for version compare
 
 if (!@ARGV) {
-	print STDERR "Usage: $0 Packages1 Packages2 ..\n";
+	print STDERR "Usage: $0 arch Packages1 Packages2 ..\n";
 	print STDERR "\n";
 	print STDERR "This perl scripts reads the Packages files given on the command line and\n";
-	print STDERR "outputs a Packages file which contians each package/architecture pair at most\n";
+	print STDERR "outputs a Packages file which contians each package at most\n";
 	print STDERR "once, using the one with the highest version number.\n";
 	print STDERR "";
 	print STDERR "Since it only looks at Package:, Version: and Architecture:, it works with\n";
 	print STDERR "Sources files as well\n";
+	print STDERR "\n";
+	print STDERR "It throws out any package not arch \"all\" or the given architecture.\n";
+	print STDERR "Pass \"source\" to keep all entries.\n";
+
 	exit 1;
 }
 
 my %version;
 my %data;
 
+my $arch = shift @ARGV;
+
 local($/) = ""; # read in paragraph mode
 while (<>) {
 	my( $version, $name, $architecture );
@@ -31,7 +37,10 @@ while (<>) {
 		warn "Stanza without Package or Version\n";
 		next;
 	}
-	my $key = $name."_".$architecture;
+	if ($arch ne "source" && defined $architecture && $architecture ne "all" && $architecture ne $arch) {
+		next;
+	}
+	my $key = $name;
 
 	if ((!exists $version{$key}) or version_less($version{$key},$version)) {
 		$version{$key} = $version;
diff --git a/trigger.often b/trigger.often
index 2cbf584..1175bb8 100755
--- a/trigger.often
+++ b/trigger.often
@@ -51,10 +51,10 @@ if wget $WGETOPT http://incoming.debian.org/buildd/Packages.gz; then
 	rm -f Packages-unstable.accepted
 	gunzip Packages-unstable.accepted.gz
 fi
-keep-latest Sources.unstable.base Sources-unstable.accepted > Sources.unstable
+keep-latest source Sources.unstable.base Sources-unstable.accepted > Sources.unstable
 for a in $ARCHS_unstable; do
 	rm -f Packages.unstable.$a
-	keep-latest Packages.unstable.$a.base Packages-unstable.accepted > Packages.unstable.$a
+	keep-latest $a Packages.unstable.$a.base Packages-unstable.accepted > Packages.unstable.$a
 done
 	
 umask 007
-- 
2.39.5