head 1.2; access; symbols; locks; strict; comment @# @; 1.2 date 2003.01.23.12.29.39; author rse; state dead; branches; next 1.1; 1.1 date 2003.01.21.19.57.50; author rse; state Exp; branches; next ; desc @@ 1.2 log @apply RSE cosmetics also to the press release area @ text @#!/usr/bin/perl ## ## Update Security Advisory HTML Versions ## my @@PR = glob("PR-*.txt"); foreach my $pr (@@PR) { $pr =~ s|\.txt$||s; print "$pr\n"; open(FP, "<$pr.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/^(\s*)([A-Z']{3,}\s+[A-Z]{2,}.+)$/$1$2<\/b>/mg; $c = "\n" . "\n" . "OpenPKG Press Release [$pr]\n" . "\n" . "\n" . "
\n" . "
\n" .
         $c .
         "
\n" . "
\n" . "\n" . "\n"; open(FP, ">$pr.html") || die; print FP $c; close(FP); } @ 1.1 log @add quick txt to html conversion @ text @@