[Secure-testing-commits] r241 - sarge-checks

[Joey Hess]

Author: joeyh
Date: 2005-01-05 11:55:48 +0100 (Wed, 05 Jan 2005)
New Revision: 241

Modified:
   sarge-checks/checklist
Log:
filter out packages that are not in testing


Modified: sarge-checks/checklist
===================================================================
--- sarge-checks/checklist	2005-01-05 10:38:58 UTC (rev 240)
+++ sarge-checks/checklist	2005-01-05 10:55:48 UTC (rev 241)
@@ -44,14 +44,16 @@
 		elsif (/^\s+[!-]\s+(.*?)\s+(.*)$/) {
 			my $package=$1;
 			my $version=$2;
+			
+			my $maddy=`madison -s testing '$package'`;
+			next unless length $maddy; # skip if not in testing
+			
 			if ($version=~/unfixed/) {
 				print "<li>" if $html;
 				print formatout("$package $version for $id\n");
 				$unprop++;
-				next;
 			}
-			my $maddy=`madison -s testing '$package'`;
-			if (length $maddy) {
+			else {
 				my @fields = split(/\s*\|\s*/, $maddy);
 				my $havver=$fields[1];
 				my $cmp=system("dpkg --compare-versions '$havver' '>=' '$version'");