r822 claimed to merge r819, r820 and r821 but only merged the first one.

git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/branches/nooath@903 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
Dag-Erling Smørgrav 2017-01-17 15:16:40 +00:00
parent aec4e8ad16
commit 6ecf20bc57
1 changed files with 3 additions and 3 deletions

View File

@ -33,7 +33,7 @@
use strict;
use warnings;
my $CVEURL = "http://web.nvd.nist.gov/view/vuln/detail?vulnId=CVE-";
my $CVEURL = "http://web.nvd.nist.gov/view/vuln/detail?vulnId=";
while (<>) {
if (m/^OpenPAM ([A-Z][a-z]+)\t+(\d\d\d\d-\d\d-\d\d)\s*$/) {
@ -45,8 +45,8 @@ while (<>) {
}
$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/([^'`])\b([A-Z_]{4,})\b([^'`])/$1`$2`$3/gs;
$changes =~ s/(CVE-\d{4}-\d+)/[$CVEURL$1 $1]/gs;
$changes =~ s/([.!?])\n +(\w)/$1 $2/gs;
$changes =~ s/(\S)\n +(\S)/$1 $2/gs;
open(my $fh, ">", "$relname.txt")