[Secure-testing-commits] r2467 - bin

Wed Oct 19 23:53:50 UTC 2005

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;


