Secure testing commits - Jan 2005 - r309 - sarge-checks

Author: joeyh
Date: 2005-01-22 04:55:54 +0100 (Sat, 22 Jan 2005)
New Revision: 309

Modified:
   sarge-checks/checklist
Log:
add count of TODO lines


Modified: sarge-checks/checklist
==================================================================---
sarge-checks/checklist	2005-01-22 03:51:07 UTC (rev 308)
+++ sarge-checks/checklist	2005-01-22 03:55:54 UTC (rev 309)
@@ -14,7 +14,7 @@
 
 
 my %data;
-my $unprop = my $unfixed = 0;
+my $unprop = my $unfixed = my $todos = 0;
 
 sub record {
 	my ($package, $condition, $item)=@_;
@@ -67,6 +67,9 @@
 				}
 			}
 		}
+		elsif (/\s+TODO/) {
+			$todos++;
+		}
 	}
 }
 
@@ -95,6 +98,7 @@
 	print "<hr>\n";
 	print "Total holes unfixed: $unfixed<br>\n";
 	print "Total holes fixed in unstable but not testing:
$unprop<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 "Last update: ".`date`."<br>\n";
 	print "</html>\n";
 }