#!/usr/bin/perl ## ## article.txt2html.pl -- Convert original article into HTML preview ## # read original article text print STDOUT "++ reading article.txt\n"; open(FP, "); close(FP); # start by escaping my $html = $txt; $html =~ s|&|&|sg; $html =~ s|<|<|sg; $html =~ s|>|>|sg; # split into text and attachment parts $html =~ m|^(.+)\n_____+\n(.+)$|s; my ($html1, $html2) = ($1, $2); # translate the text part $html1 =~ s|C<(.+?)>|$1|sg; $html1 =~ s|I<(.+?)>|$1|sg; $html1 =~ s|U<(.+?)>|$1|sg; $html1 =~ s|\n([^\n]+)\n==+\s*\n|\n

$1

\n|sg; $html1 =~ s|\n([^\n]+)\n~~+\s*\n|\n

$1

\n|sg; $html1 =~ s|\n([^\n]+)\n--+\s*\n|\n

$1

\n|sg; $html1 =~ s|\n\n+|\n

\n|sg; $html1 =~ s/((Ralf|Thomas|Michael|Christoph).+?\S+\@[^\n]+)/$1<\/font><\/i>/sg; $html1 =~ s/((Listing|Table|Figure)_(\d+))/$2 $3<\/a>/sg; # translate the attachment parts $html2 =~ s;\n((?:Table|Listing)[^\n]+)\n-{78}\s*\n(.+?\n)-{78}; \n

$1
$2

;sg; $html2 =~ s;\n(Figure[^\n]+)\n-{78}\s*\n\s*(.+?)\s*\n-{78}; \n

$1

;sg; $html2 =~ s||&doimg($1)|sge; $html2 =~ s/((Listing|Table|Figure)_(\d+))/$2 $3<\/a>/sg; sub doimg { my ($src) = @_; $src =~ s|^\s+||s; $src =~ s|\s+$||s; my ($base, $ext) = ($src =~ m|^(.+?)\.([^.]+)$|); if ($ext eq 'fig') { if (not -f "$base.png") { print STDOUT "++ creating $base.png\n"; system("fig2dev -L png -m 1.0 $base.fig $base.png"); } $src = "\"\""; } return $src; } # join together again and surround with HTML environment my ($html1a, $html1b) = ($html1 =~ m|^(.+?)(Regarding configuration.+)$|s); $html = # "\n" . # "\n" . # "\n" . # "\n" . # "OpenPKG: SysAdmin magazine article\n" . # "\n" . # "\n" . "" . "" . "" . "" . "
\n" . # "\"\"

\n" . $html1a . "

" . "  " . "\n" . $html1b . "
\n" . "

\n" . "
\n" . $html2 . "
\n" . ""; # "\n" . # "\n"; # write to HTML preview file print STDOUT "++ creating article.html\n"; open(FP, ">article.html") || die; print FP $html; close(FP);