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`;
}