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

Grr, gremlins slipped into gendoc.pl between testing and committing. 

git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@712 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
Dag-Erling Smørgrav 2013-08-19 15:09:27 +00:00
parent 6b2927cfc5
commit 1f9f093691
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
misc/gendoc.pl
View File

@ -55,11 +55,9 @@ DARPA/SPAWAR contract N66001-01-C-8035
as part of the DARPA CHATS research program.
.Pp
The OpenPAM library is maintained by
.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .
",
.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .",
UIO => "developed for the University of Oslo by
.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .
",
.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .",
DES => "developed by
.An Dag-Erling Sm\\(/orgrav Aq des\@des.no .",
);
@ -437,9 +435,10 @@ sub gendoc($) {
return if defined($$func{nodoc});
$$func{source} =~ m/([^\/]+)$/;
$mdoc = ".\\\" Generated from $1 by gendoc.pl\n";
if ($func->{'version'}) {
$mdoc .= ".\\\" $func->{'version'}\n";
if ($$func{version}) {
$mdoc .= ".\\\" $$func{version}\n";
}
$mdoc .= ".Dd $TODAY
.Dd $TODAY
@ -582,7 +581,7 @@ sub gensummary($) {
$page =~ m/(\w+)$/;
$upage = uc($1);
print FILE "$COPYRIGHT
print FILE ".\\\" Generated by gendoc.pl
.Dd $TODAY
.Dt $upage 3
.Os