Changeset 73 in openpam


Ignore:
Timestamp:
Feb 22, 2002, 9:22:30 PM (16 years ago)
Author:
Dag-Erling Smørgrav
Message:

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

Sponsored by: DARPA, NAI Labs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/misc/gendoc.pl

    r62 r73  
    237237        $FUNCTIONS{$func}->{'nolist'} = 1;
    238238    }
     239    if ($source !~ m/^ \* XSSO \d/m) {
     240        $FUNCTIONS{$func}->{'openpam'} = 1;
     241    }
    239242}
    240243
     
    340343        $mdoc .= ".Xr " . shift(@xref) . (@xref ? " ,\n" : "\n");
    341344    }
    342     $mdoc .= ".Sh STANDARDS
    343 .Rs
     345    $mdoc .= ".Sh STANDARDS\n";
     346    if ($func->{'openpam'}) {
     347        $mdoc .= "The
     348.Nm
     349function is an OpenPAM extension.
     350";
     351    } else {
     352        $mdoc .= ".Rs
    344353.%T \"X/Open Single Sign-On Service (XSSO) - Pluggable Authentication Modules\"
    345354.%D \"June 1997\"
    346355.Re
    347 .Sh AUTHORS
     356";
     357    }
     358    $mdoc .= ".Sh AUTHORS
    348359The
    349360.Nm
     
    357368    $fn = "$func->{'name'}.3";
    358369    sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)
    359         or die("$fn: open(): $!\n");
     370        or die("$fn: open(): $!\n");
    360371    print(FILE $mdoc);
    361372    close(FILE);
     
    375386    while ($func = shift(@funcs)) {
    376387        next if (defined($FUNCTIONS{$func}->{'nolist'}));
    377         print ".Nm $func". (@funcs ? " ,\n" : "\n");
     388        print ".Nm $func". (@funcs ? " ,\n" : "\n");
    378389    }
    379390    print ".Nd Pluggable Authentication Modules Library
     
    385396    foreach $func (sort(keys(%FUNCTIONS))) {
    386397        next if (defined($FUNCTIONS{$func}->{'nolist'}));
    387         print ".Ft $FUNCTIONS{$func}->{'type'}\n";
    388         print ".Fn $func $FUNCTIONS{$func}->{'args'}\n";
     398        print ".Ft $FUNCTIONS{$func}->{'type'}\n";
     399        print ".Fn $func $FUNCTIONS{$func}->{'args'}\n";
    389400    }
    390401    print ".Sh DESCRIPTION
     
    403414    foreach $func (sort(keys(%FUNCTIONS))) {
    404415        next if (defined($FUNCTIONS{$func}->{'nolist'}));
    405         print ".Xr $func 3 ,\n";
     416        print ".Xr $func 3 ,\n";
    406417    }
    407418    print ".Xr pam.conf 5
Note: See TracChangeset for help on using the changeset viewer.