[Secure-testing-commits] r1794 - / bin website

Sat Sep 3 13:30:07 UTC 2005

Author: neilm
Date: 2005-09-03 13:30:06 +0000 (Sat, 03 Sep 2005)
New Revision: 1794

Added:
   bin/updatehtmllist
   website/DTSA/
   website/footer.html
   website/header.html
Modified:
   TODO
Log:
Web listings of DTSAs now available


Modified: TODO
===================================================================

--- TODO	2005-09-03 12:43:05 UTC (rev 1793)
+++ TODO	2005-09-03 13:30:06 UTC (rev 1794)
@@ -1,11 +1,5 @@
 * Set up for DTSAs
 
-  - Web display of DTSAs.
-
-  - Better integrate DTSAs into checklist script, so it stops listing holes
-    that have had a DTSA issued, or better, lists them in a separate
-    section so we know which fixes still need to get into testing proper.
-  
   - Auto moderation of developer signed mails to -announce.
 
   - sndadvisory should remove TODO lines from the list file since the

Added: bin/updatehtmllist
===================================================================
--- bin/updatehtmllist	2005-09-03 12:43:05 UTC (rev 1793)
+++ bin/updatehtmllist	2005-09-03 13:30:06 UTC (rev 1794)
@@ -0,0 +1,65 @@
+#!/usr/bin/perl
+# Must be run from the website dir
+use Getopt::Long;
+
+my $output;
+if (! GetOptions(
+		"output=s", \$output)
+    || ! @ARGV[0]) {
+	die "usage: $0 [--output=file] list\n";
+}
+
+if (defined $output) {
+	open (OUT, ">$output.tmp.$$") || die "output.tmp.$$: $!"; # Set the output to a file
+}
+else {
+	open (OUT, ">&STDOUT"); # Set the output to stdout
+}
+
+open (HEAD,"header.html") || die("Could not open header.html: $!");
+while(<HEAD>) {
+	$line = $_ ;
+	print OUT "$line" ;
+}
+close HEAD;	
+
+print OUT "<dl>\n";
+
+my $pack = 0;
+my $date = "";
+my $dtsa = "";
+my $package = "";
+my $desc = "";
+open (LIST, at ARGV[0]) || die("Could not open list ". at ARGV[0].": $!");
+while(<LIST>) {
+	$line = $_ ;
+	if ($line=~/^(\[.+\]) (DTSA-[0-9]+-[0-9]+) ([^ ].+) - (.+)$/) {
+		if ($pack == 1) {
+			# print the previous acvisory, as it wasn't unreleased
+			print OUT "<dt>$date <a href='DTSA/$dtsa.html'>$dtsa $package</a></dt>\n";
+			print OUT "<dd>$desc</dd>\n";
+		}
+		$date = $1;
+		$dtsa = $2;
+		$package = $3;
+		$desc = $4;
+		$pack = 1;
+	}
+	if ($line=~/TODO: unreleased$/) {
+		$pack = 0;
+	}
+}
+print OUT "</dl>\n";
+
+open (FOOT,"footer.html") || die("Could not open footer.html: $!"); ;
+while(<FOOT>) {
+	$line = $_ ;
+	print OUT "$line" ;
+}
+close FOOT;
+
+close OUT;
+if (defined $output) {
+	rename("$output.tmp.$$", $output) || die "rename: $!";
+}
+


Property changes on: bin/updatehtmllist
___________________________________________________________________
Name: svn:executable
   + *

Added: website/footer.html
===================================================================

Added: website/header.html
===================================================================
--- website/header.html	2005-09-03 12:43:05 UTC (rev 1793)
+++ website/header.html	2005-09-03 13:30:06 UTC (rev 1794)
@@ -0,0 +1 @@
+<!-- header -->


