';
foreach my $sa (reverse sort @@SA) {
my ($base, $name, $year) = ($sa =~ m|^(OpenPKG-SA-((\d+)\..+))\.txt$|);
next if ($name =~ m|^0000|);
if ($this_year ne $year) {
$sidebar .= "
\n";
$this_year = $year;
}
$sidebar .= "$name
";
}
foreach my $sa (reverse sort @@SA) {
$sa =~ s|\.txt$||s;
print "$sa";
my $io = new IO::File "<$sa.txt" or die;
my $txt = '';
$txt .= $_ while (<$io>);
$io->close;
my $L = {};
my $x = $txt;
$x =~ s%^\s*\[(\d+)\]\s+((?:https?|ftp|hkp)://\S+)%$L->{$1} = $2, ''%mge;
$txt =~ s/&/&/sg;
$txt =~ s//>/sg;
$txt =~ s/((?:https?|ftp|hkp):\/\/[^\s]+[^\s\.\)\&])/$1<\/a>/sg;
$txt =~ s/([\s;]+)([a-zA-Z0-9_.-]+\@@[^\s\)\&]+?)([\s&]+)/$1$2<\/a>$3/sg;
$txt =~ s/(OpenPKG Security Advisory)/$1<\/b>/sg;
$txt =~ s/^((\s*[A-Z][a-zA-Z]+)+:)/$1<\/b>/mg;
$txt =~ s/(\[(\d+)\])(?!\s+(?:https?|ftp|hkp):\/\/)/"{$2} || print STDERR "WARNING: reference [$2] not defined\n")."\">".$1."<\/a>"/sge;
my $head = '';
$io = new IO::File "
Please review. History of this document can be found in CVS\n";
$hint .= "
Please review! History of this document can be found in CVS\n";
$hint .= "\n" . $txt . "
\n" .
$foot;
$io = new IO::File ">$sa.html" || die;
$io->print($out);
$io->close;
}
@
1.41
log
@flush pending changes
@
text
@d34 1
a34 1
$x =~ s%^\s*\[(\d+)\]\s+((?:http|ftp|hkp)://\S+)%$L->{$1} = $2, ''%mge;
d38 1
a38 1
$txt =~ s/((?:http|ftp|hkp):\/\/[^\s]+[^\s\.\)\&])/$1<\/a>/sg;
d42 1
a42 1
$txt =~ s/(\[(\d+)\])(?!\s+(?:http|ftp|hkp):\/\/)/"{$2} || print STDERR "WARNING: reference [$2] not defined\n")."\">".$1."<\/a>"/sge;
@
1.40
log
@warn if a reference is not defined (as it is still the case for the forthcoming MySQL SA
@
text
@d23 1
a23 1
foreach my $sa (@@SA) {
@
1.39
log
@for properly signed SAs, add link to their history, too
@
text
@d42 1
a42 1
$txt =~ s/(\[(\d+)\])(?!\s+(?:http|ftp|hkp):\/\/)/"{$2}."\">".$1."<\/a>"/sge;
@
1.38
log
@remove Perl warnings
@
text
@d75 1
@
1.37
log
@avoid files being incorrectly identified as signed; put note on invalid signatures
@
text
@d7 1
a7 1
use IO;
@
1.36
log
@always render all available SAs, but tag unreleased/unsigned ones with DRAFT header
@
text
@d26 1
a26 1
print "$sa\n";
d58 18
a75 2
if ($txt !~ m|^-----BEGIN PGP SIGNED MESSAGE-----|) {
$hint = "