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