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	#!/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	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	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