Author: joeyh
Date: 2005-04-03 21:56:10 +0000 (Sun, 03 Apr 2005)
New Revision: 735
Modified:
sarge-checks/checklist
Log:
improved stats for packages not propigated on all arches
Modified: sarge-checks/checklist
==================================================================---
sarge-checks/checklist 2005-04-03 21:27:04 UTC (rev 734)
+++ sarge-checks/checklist 2005-04-03 21:56:10 UTC (rev 735)
@@ -24,7 +24,7 @@
my $sources=$ENV{SOURCES_FILE};
my $need_rebuild=0;
-my $unprop = my $unfixed = my $todos = 0;
+my $unprop = my $unprop_all = my $unfixed = my $todos = 0;
sub record {
my ($package, $condition, $item)=@_;
@@ -102,6 +102,7 @@
}
record($package, "$version needed, have $havver".(@maddy > 1
? " [$arches]" : ""), $id);
$unprop++;
+ $unprop_all++ unless @maddy > 1;
}
}
}
@@ -187,8 +188,12 @@
print "</ul>\n";
print "<hr>\n";
print "Total holes unfixed: $unfixed<br>\n";
- print "Total holes fixed in unstable but not testing:
$unprop<br>\n";
- print "Total number of kernel image source packages not up to date:
$need_rebuild<br>\n";
+ print "Total holes fixed in unstable but not testing: $unprop_all";
+ if ($unprop_all != $unprop) {
+ print " (".$unprop - $unprop_all)." on some arches)";
+ }
+ print "<br>\n";
+ print "Total number of kernel image packages not up to date:
$need_rebuild<br>\n";
print "Number of TODO lines in <a
href=\"http://svn.debian.org/wsvn/secure-testing/sarge-checks/?rev=0&sc=0\">records</a>:
$todos<br>\n";
print "Maintained by the <a
href=\"http://secure-testing.alioth.debian.org/\">testing security
team</a><br>\n";
print "Last update: ".`date`."<br>\n";