Changeset 73 in openpam
- Timestamp:
- Feb 22, 2002, 9:22:30 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/misc/gendoc.pl
r62 r73 237 237 $FUNCTIONS{$func}->{'nolist'} = 1; 238 238 } 239 if ($source !~ m/^ \* XSSO \d/m) { 240 $FUNCTIONS{$func}->{'openpam'} = 1; 241 } 239 242 } 240 243 … … 340 343 $mdoc .= ".Xr " . shift(@xref) . (@xref ? " ,\n" : "\n"); 341 344 } 342 $mdoc .= ".Sh STANDARDS 343 .Rs 345 $mdoc .= ".Sh STANDARDS\n"; 346 if ($func->{'openpam'}) { 347 $mdoc .= "The 348 .Nm 349 function is an OpenPAM extension. 350 "; 351 } else { 352 $mdoc .= ".Rs 344 353 .%T \"X/Open Single Sign-On Service (XSSO) - Pluggable Authentication Modules\" 345 354 .%D \"June 1997\" 346 355 .Re 347 .Sh AUTHORS 356 "; 357 } 358 $mdoc .= ".Sh AUTHORS 348 359 The 349 360 .Nm … … 357 368 $fn = "$func->{'name'}.3"; 358 369 sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC) 359 370 or die("$fn: open(): $!\n"); 360 371 print(FILE $mdoc); 361 372 close(FILE); … … 375 386 while ($func = shift(@funcs)) { 376 387 next if (defined($FUNCTIONS{$func}->{'nolist'})); 377 388 print ".Nm $func". (@funcs ? " ,\n" : "\n"); 378 389 } 379 390 print ".Nd Pluggable Authentication Modules Library … … 385 396 foreach $func (sort(keys(%FUNCTIONS))) { 386 397 next if (defined($FUNCTIONS{$func}->{'nolist'})); 387 388 398 print ".Ft $FUNCTIONS{$func}->{'type'}\n"; 399 print ".Fn $func $FUNCTIONS{$func}->{'args'}\n"; 389 400 } 390 401 print ".Sh DESCRIPTION … … 403 414 foreach $func (sort(keys(%FUNCTIONS))) { 404 415 next if (defined($FUNCTIONS{$func}->{'nolist'})); 405 416 print ".Xr $func 3 ,\n"; 406 417 } 407 418 print ".Xr pam.conf 5
Note: See TracChangeset
for help on using the changeset viewer.