[Secure-testing-commits] r1280 - data

[Joey Hess]

Author: joeyh
Date: 2005-06-27 20:20:46 +0000 (Mon, 27 Jun 2005)
New Revision: 1280

Modified:
   data/checklist
Log:
add --debug switch


Modified: data/checklist
===================================================================
--- data/checklist	2005-06-27 20:15:40 UTC (rev 1279)
+++ data/checklist	2005-06-27 20:20:46 UTC (rev 1280)
@@ -8,14 +8,16 @@
 use Getopt::Long;
 
 my $html=0;
-my $suite="testing";
+my $debug=0;
+y $suite="testing";
 my $output;
 if (! GetOptions(
 		"html" => \$html,
+		"debug" => \$debug,
 		"suite=s" => \$suite,
 		"output=s", \$output)
     || ! @ARGV) {
-	die "usage: $0 [--suite suite] [--html] [--output=file] list ...\n";
+	die "usage: $0 [--suite suite] [--html] [--output=file] [--debug] list ...\n";
 }
 
 if (defined $output) {
@@ -77,6 +79,7 @@
 	
 	open (IN, $list) || die "open $list: $!";
 	while (<IN>) {
+		print STDERR "line: $_" if $debug;
 		chomp;
 		if (/^\[/) {
 			($id)=m/((?:DSA|CAN|CVE)-[^\s]+) /;