Author: joeyh
Date: 2005-10-19 23:53:49 +0000 (Wed, 19 Oct 2005)
New Revision: 2467
Modified:
bin/updatelist
Log:
update for slight html changes (really should use the xml..)
Modified: bin/updatelist
==================================================================---
bin/updatelist 2005-10-19 23:52:56 UTC (rev 2466)
+++ bin/updatelist 2005-10-19 23:53:49 UTC (rev 2467)
@@ -34,7 +34,7 @@
open (HTML, "<$html") || die "$html: $!\n";
my $cve;
while (<HTML>) {
- if (m!<b>(CVE-\d+-\d+)</b>!) {
+ if (m!<b>Name:\s+(CVE-\d+-\d+)</b>!) {
$cve=$1;
$cves{$cve}{cve}=$cve;
$listedcves{$cve}=1;
@@ -48,7 +48,13 @@
}
if (m!Description:\s*</b><br>\s*(.*)! &&
! m!\*\*\s+RESERVED\s+\*\*! && ! m!\*\*\s+REJECT\s+\*\*!) {
- $cves{$cve}{description}="($1 ...)";
+ my $desc;
+ $desc=$1;
+ if (! length $desc) {
+ $desc=<HTML>;
+ chomp $desc;
+ }
+ $cves{$cve}{description}="($desc ...)";
}
}
close HTML;