OpenPAM/OpenPAM
OpenPAM
/
OpenPAM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

merge r819, r820, r821: improvements to history2wiki 

git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/branches/nooath@822 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
Dag-Erling Smørgrav 2014-10-09 15:15:42 +00:00
parent 18ca38b81c
commit a27043ec13
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
misc/history2wiki.pl
View File

@ -33,26 +33,30 @@
use strict;
use warnings;
my $CVEURL = "http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-";
while (<>) {
if (m/^OpenPAM ([A-Z][a-z]+)\t+(\d\d\d\d-\d\d-\d\d)\s*$/) {
my ($relname, $reldate) = ($1, $2);
my $wikitext = "= OpenPAM $relname =\n" .
"\n" .
"OpenPAM $relname was released on $reldate.\n";
my $changes;
while (<>) {
last if m/^=+$/;
$wikitext .= $_;
$changes .= $_;
}
$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";
$changes =~ s/^ - ([A-Z]+): / - '''$1''' /gm;
$changes =~ s/([\w.-]+\(\d*\))/`$1`/gs;
$changes =~ s/([^'])\b([A-Z_]{2,})\b([^'])/$1`$2`$3/gs;
$changes =~ s/`CVE`-(\d{4}-\d+)/[$CVEURL$1 CVE-$1]/gs;
$changes =~ s/([.!?])\n +(\w)/$1 $2/gs;
$changes =~ s/(\S)\n +(\S)/$1 $2/gs;
open(my $fh, ">", "$relname.txt")
or die("$relname.txt: $!\n");
print($fh $wikitext);
print($fh "= OpenPAM $relname =\n",
"\n",
"OpenPAM $relname was released on $reldate.\n",
$changes,
"\n",
"[http://sourceforge.net/projects/openpam/files/openpam/$relname/ Download from Sourceforge]\n");
close($fh);
print("|| $reldate || [[Releases/$relname|$relname]] ||\n");
}