Contents of /bin/updatehtmllist

#!/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: $!";
}

1	neilm	1794	#!/usr/bin/perl
2			# Must be run from the website dir
3			use Getopt::Long;
4
5			my $output;
6			if (! GetOptions(
7			"output=s", \$output)
8			\|\| ! @ARGV[0]) {
9			die "usage: $0 [--output=file] list\n";
10			}
11
12			if (defined $output) {
13			open (OUT, ">$output.tmp.$$") \|\| die "output.tmp.$$: $!"; # Set the output to a file
14			}
15			else {
16			open (OUT, ">&STDOUT"); # Set the output to stdout
17			}
18
19			open (HEAD,"header.html") \|\| die("Could not open header.html: $!");
20			while(<HEAD>) {
21			$line = $_ ;
22			print OUT "$line" ;
23			}
24			close HEAD;
25
26			print OUT "<dl>\n";
27
28			my $pack = 0;
29			my $date = "";
30			my $dtsa = "";
31			my $package = "";
32			my $desc = "";
33			open (LIST,@ARGV[0]) \|\| die("Could not open list ".@ARGV[0].": $!");
34			while(<LIST>) {
35			$line = $_ ;
36			if ($line=~/^(\[.+\]) (DTSA-[0-9]+-[0-9]+) ([^ ].+) - (.+)$/) {
37			if ($pack == 1) {
38			# print the previous acvisory, as it wasn't unreleased
39			print OUT "<dt>$date <a href='DTSA/$dtsa.html'>$dtsa $package</a></dt>\n";
40			print OUT "<dd>$desc</dd>\n";
41			}
42			$date = $1;
43			$dtsa = $2;
44			$package = $3;
45			$desc = $4;
46			$pack = 1;
47			}
48			if ($line=~/TODO: unreleased$/) {
49			$pack = 0;
50			}
51			}
52	neilm	1815	if ($pack == 1) {
53			# print the previous acvisory, as it wasn't unreleased
54			print OUT "<dt>$date <a href='DTSA/$dtsa.html'>$dtsa $package</a></dt>\n";
55			print OUT "<dd>$desc</dd>\n";
56			}
57	neilm	1794	print OUT "</dl>\n";
58
59			open (FOOT,"footer.html") \|\| die("Could not open footer.html: $!"); ;
60			while(<FOOT>) {
61			$line = $_ ;
62			print OUT "$line" ;
63			}
64			close FOOT;
65
66			close OUT;
67			if (defined $output) {
68			rename("$output.tmp.$$", $output) \|\| die "rename: $!";
69			}
70