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

Don't claim a function conforms to XSSO when it doesn't. 

Sponsored by:	DARPA, NAI Labs


git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@73 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
Dag-Erling Smørgrav 2002-02-22 21:22:30 +00:00
parent 4b5df4ce1a
commit a05b905e44
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
misc/gendoc.pl
View File

@ -236,6 +236,9 @@ sub parse_source($) {
if ($source =~ m/^ \* NOLIST\s*$/m) { if ($source =~ m/^ \* NOLIST\s*$/m) {
$FUNCTIONS{$func}->{'nolist'} = 1; $FUNCTIONS{$func}->{'nolist'} = 1;
} }
if ($source !~ m/^ \* XSSO \d/m) {
$FUNCTIONS{$func}->{'openpam'} = 1;
}
} }
sub expand_errors($); sub expand_errors($);
@ -339,12 +342,20 @@ on failure.
while (@xref) { while (@xref) {
$mdoc .= ".Xr " . shift(@xref) . (@xref ? " ,\n" : "\n"); $mdoc .= ".Xr " . shift(@xref) . (@xref ? " ,\n" : "\n");
} }
$mdoc .= ".Sh STANDARDS $mdoc .= ".Sh STANDARDS\n";
.Rs if ($func->{'openpam'}) {
$mdoc .= "The
.Nm
function is an OpenPAM extension.
";
} else {
$mdoc .= ".Rs
.%T \"X/Open Single Sign-On Service (XSSO) - Pluggable Authentication Modules\" .%T \"X/Open Single Sign-On Service (XSSO) - Pluggable Authentication Modules\"
.%D \"June 1997\" .%D \"June 1997\"
.Re .Re
.Sh AUTHORS ";
}
$mdoc .= ".Sh AUTHORS
The The
.Nm .Nm
function and this manual page were developed for the FreeBSD Project function and this manual page were developed for the FreeBSD Project
@ -356,7 +367,7 @@ as part of the DARPA CHATS research program.
$fn = "$func->{'name'}.3"; $fn = "$func->{'name'}.3";
sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC) sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)
or die("$fn: open(): $!\n"); or die("$fn: open(): $!\n");
print(FILE $mdoc); print(FILE $mdoc);
close(FILE); close(FILE);
} }
@ -374,7 +385,7 @@ sub gensummary() {
my @funcs = sort(keys(%FUNCTIONS)); my @funcs = sort(keys(%FUNCTIONS));
while ($func = shift(@funcs)) { while ($func = shift(@funcs)) {
next if (defined($FUNCTIONS{$func}->{'nolist'})); next if (defined($FUNCTIONS{$func}->{'nolist'}));
print ".Nm $func". (@funcs ? " ,\n" : "\n"); print ".Nm $func". (@funcs ? " ,\n" : "\n");
} }
print ".Nd Pluggable Authentication Modules Library print ".Nd Pluggable Authentication Modules Library
.Sh LIBRARY .Sh LIBRARY
@ -384,8 +395,8 @@ sub gensummary() {
"; ";
foreach $func (sort(keys(%FUNCTIONS))) { foreach $func (sort(keys(%FUNCTIONS))) {
next if (defined($FUNCTIONS{$func}->{'nolist'})); next if (defined($FUNCTIONS{$func}->{'nolist'}));
print ".Ft $FUNCTIONS{$func}->{'type'}\n"; print ".Ft $FUNCTIONS{$func}->{'type'}\n";
print ".Fn $func $FUNCTIONS{$func}->{'args'}\n"; print ".Fn $func $FUNCTIONS{$func}->{'args'}\n";
} }
print ".Sh DESCRIPTION print ".Sh DESCRIPTION
.Sh RETURN VALUES .Sh RETURN VALUES
@ -402,7 +413,7 @@ header:
"; ";
foreach $func (sort(keys(%FUNCTIONS))) { foreach $func (sort(keys(%FUNCTIONS))) {
next if (defined($FUNCTIONS{$func}->{'nolist'})); next if (defined($FUNCTIONS{$func}->{'nolist'}));
print ".Xr $func 3 ,\n"; print ".Xr $func 3 ,\n";
} }
print ".Xr pam.conf 5 print ".Xr pam.conf 5
.Sh STANDARDS .Sh STANDARDS