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

Diff of /bin/updatelist

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

revision 590 by joeyh, Thu Mar 17 15:54:49 2005 UTC revision 591 by joeyh, Mon Mar 21 10:24:02 2005 UTC
# Line 31  my %listedcans; Line 31  my %listedcans;
31  open (FULL_CAN, "<$full_can_html") || die "$full_can_html: $!\n";  open (FULL_CAN, "<$full_can_html") || die "$full_can_html: $!\n";
32  my $can;  my $can;
33  while (<FULL_CAN>) {  while (<FULL_CAN>) {
34          if (m!<b>(CAN-(?:\d+|[A-Z]+)-(?:\d+|[A-Z]+)</b>!) {          if (m!<b>(CAN-\d+-\d+)</b>!) {
35                  $can=$1;                  $can=$1;
36                  $cans{$can}{can}=$can;                  $cans{$can}{can}=$can;
37                  $listedcans{$can}=1;                  $listedcans{$can}=1;
# Line 89  open (IN, "<$our_list") || die "$our_lis Line 89  open (IN, "<$our_list") || die "$our_lis
89  my $can;  my $can;
90  while (<IN>) {  while (<IN>) {
91          chomp;          chomp;
92          if (/^((?:CAN|CVE)-[-0-9]*)\s*(.*)/) {          if (/^((?:CAN|CVE)-(?:[0-9]+|[A-Z]+)-(?:[0-9]+|[A-Z]+))\s*(.*)/) {
93                  my $desc=$2;                  my $desc=$2;
94                  docan($can) if $can;                  docan($can) if $can;
95                  $can=$1;                  $can=$1;
Legend:
Removed from v.590  
changed lines
  Added in v.591
  ViewVC Help
Powered by ViewVC 1.1.5