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,@ARGV[0]) || die("Could not open list ".@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 -->