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,@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;
- }
-}
-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: $!";
-}
-
_______________________________________________
Secure-testing-commits mailing list
Secure-testing-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/secure-testing-commits
