[Secure-testing-commits] r26693 - bin

Thu Apr 24 21:10:55 UTC 2014

Author: geissert
Date: 2014-04-24 21:10:54 +0000 (Thu, 24 Apr 2014)
New Revision: 26693

Removed:
   bin/updatehtmllist
Log:
Drop another script


Deleted: bin/updatehtmllist
===================================================================

--- bin/updatehtmllist	2014-04-24 20:58:41 UTC (rev 26692)
+++ bin/updatehtmllist	2014-04-24 21:10:54 UTC (rev 26693)
@@ -1,70 +0,0 @@
-#!/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;
-	}
-}
-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";
-}
-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: $!";
-}
-


