/[secure-testing]/bin/checklist
ViewVC logotype

Diff of /bin/checklist

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1279 by joeyh, Mon Jun 27 20:15:40 2005 UTC revision 1280 by joeyh, Mon Jun 27 20:20:46 2005 UTC
# Line 8  use URI::Escape; Line 8  use URI::Escape;
8  use Getopt::Long;  use Getopt::Long;
9    
10  my $html=0;  my $html=0;
11  my $suite="testing";  my $debug=0;
12    y $suite="testing";
13  my $output;  my $output;
14  if (! GetOptions(  if (! GetOptions(
15                  "html" => \$html,                  "html" => \$html,
16                    "debug" => \$debug,
17                  "suite=s" => \$suite,                  "suite=s" => \$suite,
18                  "output=s", \$output)                  "output=s", \$output)
19      || ! @ARGV) {      || ! @ARGV) {
20          die "usage: $0 [--suite suite] [--html] [--output=file] list ...\n";          die "usage: $0 [--suite suite] [--html] [--output=file] [--debug] list ...\n";
21  }  }
22    
23  if (defined $output) {  if (defined $output) {
# Line 77  foreach my $list (@ARGV) { Line 79  foreach my $list (@ARGV) {
79    
80          open (IN, $list) || die "open $list: $!";          open (IN, $list) || die "open $list: $!";
81          while (<IN>) {          while (<IN>) {
82                    print STDERR "line: $_" if $debug;
83                  chomp;                  chomp;
84                  if (/^\[/) {                  if (/^\[/) {
85                          ($id)=m/((?:DSA|CAN|CVE)-[^\s]+) /;                          ($id)=m/((?:DSA|CAN|CVE)-[^\s]+) /;
Legend:
Removed from v.1279  
changed lines
  Added in v.1280
  ViewVC Help
Powered by ViewVC 1.1.5