etch should be ignored, also warn about removed/itp entries when the package *does* exist

git-svn-id: svn+ssh://svn.debian.org/svn/secure-testing@15047 e39458fd-73e7-0310-bf30-c45bca0a0e42

1 files changed, 7 insertions, 0 deletions

diff --git a/bin/embedded-cleanup b/bin/embedded-cleanup
index 1c601e75a8..347b9edf8a 100755
--- a/bin/embedded-cleanup
+++ b/bin/embedded-cleanup
@@ -65,6 +65,7 @@ $translate{'linux kernels'} = 'linux-2.6';
 my @oldstables = qw(
 	woody
 	sarge
+	etch
 );
 
 my %pkgs;
@@ -145,6 +146,12 @@ while(<DATA>) {
 	    $reported = 1;
 	}
 
+	if (exists($pkgs{$embedding_package}{'sid'}) && !$reported
+		&& ($status eq 'removed' || $status eq 'itp')) {
+	    push @errors, "Package '$embedding_package' does exist, line:$.";
+	    $reported = 1;
+	}
+
 	if ($release) {
 	    unless ($reported || exists ($pkgs{$embedding_package}{$release})
 		    || grep {$_ eq $release} @oldstables) {