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

[Joey Hess]

Author: joeyh
Date: 2005-01-05 11:34:41 +0100 (Wed, 05 Jan 2005)
New Revision: 239

Modified:
   sarge-checks/checklist
Log:
add some stats


Modified: sarge-checks/checklist
===================================================================
--- sarge-checks/checklist	2005-01-05 10:31:34 UTC (rev 238)
+++ sarge-checks/checklist	2005-01-05 10:34:41 UTC (rev 239)
@@ -25,6 +25,8 @@
 	return $out;
 }
 
+my $unprop = my $unfixed = 0;
+
 foreach my $list (@ARGV) {
 	if (-d $list) {
 		$list="$list/list";
@@ -45,6 +47,7 @@
 			if ($version=~/unfixed/) {
 				print "<li>" if $html;
 				print formatout("$package $version for $id\n");
+				$unprop++;
 				next;
 			}
 			my $maddy=`madison -s testing '$package'`;
@@ -58,6 +61,7 @@
 						$havver='<a href="http://bjorn.haxx.se/debian/testing.pl?package='.$package.'">'.$havver.'</a>';
 					}
 					print formatout("$package $version needed, have $havver for $id\n");
+					$unfixed++;
 				}
 			}
 		}
@@ -67,5 +71,7 @@
 if ($html) {
 	print "</ul>\n";
 	print "<hr>\n";
+	print "Total unfixed: $unfixed\n";
+	print "Total fixed in unstable but not testing: $unprop\n";
 	print "Last update: ".`date`;
 }