Skip to content
Commits on Source (2)
Hide whitespace changes
Inline Side-by-side
bin/updatelist
View file @ 610e648e
......@@ -48,7 +48,7 @@ while (<HTML>) {
if (m!\*\*\s+REJECT\s+\*\*!) {
$cves{$cve}{rejected}=1;
}
if (m!Description:\s*</b><br>\s*(.*)! &&
if (m!Description:\s*</b><p>\s*(.*)</p>! &&
! m!\*\*\s+RESERVED\s+\*\*! && ! m!\*\*\s+REJECT\s+\*\*!) {
my $desc;
$desc=$1;
......@@ -56,6 +56,8 @@ while (<HTML>) {
$desc=<HTML>;
chomp $desc;
}
# truncate length of description text added to lists
$desc = substr( $desc, 0, 70 );
$cves{$cve}{description}="($desc ...)";
}
}
......