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''");