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

[Joey Hess]

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