head 1.2; access; symbols; locks; strict; comment @# @; 1.2 date 2003.01.23.11.32.43; author rse; state dead; branches; next 1.1; 1.1 date 2002.01.31.14.52.05; author rse; state Exp; branches; next ; desc @@ 1.2 log @apply the usual amount of RSE cosmetics to give our SAs a more prominent look and feel @ text @#!/usr/bin/perl ## ## Update Security Advisory HTML Versions ## my @@SA = glob("OpenPKG-SA-*.txt"); foreach my $sa (@@SA) { $sa =~ s|\.txt$||s; print "$sa\n"; open(FP, "<$sa.txt") || die; my $c = ''; $c .= $_ while (); close(FP); my $L = {}; my $x = $c; $x =~ s%^\s*\[(\d+)\]\s+((?:http|ftp)://\S+)%$L->{$1} = $2, ''%mge; $c =~ s/&/&/sg; $c =~ s//>/sg; $c =~ s/((?:http|ftp):\/\/[^\s]+[^\s\.\)\&])/$1<\/a>/sg; $c =~ s/([a-zA-Z0-9_.-]+\@@[^\s\)\&]+)/$1<\/a>/sg; $c =~ s/(OpenPKG Security Advisory)/$1<\/b>/sg; $c =~ s/^((\s*[A-Z][a-zA-Z]+)+:)/$1<\/b>/mg; $c =~ s/(\[(\d+)\])(?!\s+(?:http|ftp):\/\/)/"{$2}."\">".$1."<\/a>"/sge; $c = "\n" . "\n" . "OpenPKG Security Advisory [$sa]\n" . "\n" . "\n" . "
\n" . "
\n" .
         $c .
         "
\n" . "
\n" . "\n" . "\n"; open(FP, ">$sa.html") || die; print FP $c; close(FP); } @ 1.1 log @provide HTML versions @ text @@