Generate prettier wikitext.

git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@589 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
Dag-Erling Smørgrav 2012-04-08 12:56:55 +00:00
parent 4c8082f73d
commit 1f79315d9e
1 changed files with 5 additions and 0 deletions

View File

@ -44,6 +44,11 @@ while (<>) {
last if m/^=+$/;
$wikitext .= $_;
}
$wikitext =~ s/^ - ([A-Z]+): / - '''$1''' /gm;
$wikitext =~ s/(\w+\(\d*\))/`$1`/gs;
$wikitext =~ s/([^'])\b([A-Z_]{2,})\b([^'])/$1`$2`$3/gs;
$wikitext =~ s/([.!?])\n +(\w)/$1 $2/gs;
$wikitext =~ s/(\S)\n +(\S)/$1 $2/gs;
$wikitext .= "\n" .
"[http://sourceforge.net/projects/openpam/files/openpam/$relname/ Download from Sourceforge]\n";
open(my $fh, ">", "$relname.txt")