Changeset 73 in openpam

Timestamp:

Feb 22, 2002, 9:22:30 PM (18 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:

• trunk/misc/gendoc.pl (modified) (6 diffs)

trunk/misc/gendoc.pl

@@ -237 +237 @@
         $FUNCTIONS{$func}->{'nolist'} = 1;
     }
+    if ($source !~ m/^ \* XSSO \d/m) {
+        $FUNCTIONS{$func}->{'openpam'} = 1;
+    }
 }
 
@@ -340 +343 @@
         $mdoc .= ".Xr " . shift(@xref) . (@xref ? " ,\n" : "\n");
     }
-    $mdoc .= ".Sh STANDARDS
-.Rs
+    $mdoc .= ".Sh STANDARDS\n";
+    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\"
 .%D \"June 1997\"
 .Re
-.Sh AUTHORS
+";
+    }
+    $mdoc .= ".Sh AUTHORS
 The
 .Nm
@@ -357 +368 @@
     $fn = "$func->{'name'}.3";
     sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)
-        or die("$fn: open(): $!\n");
+        or die("$fn: open(): $!\n");
     print(FILE $mdoc);
     close(FILE);
@@ -375 +386 @@
     while ($func = shift(@funcs)) {
         next if (defined($FUNCTIONS{$func}->{'nolist'}));
-        print ".Nm $func". (@funcs ? " ,\n" : "\n");
+        print ".Nm $func". (@funcs ? " ,\n" : "\n");
     }
     print ".Nd Pluggable Authentication Modules Library
@@ -385 +396 @@
     foreach $func (sort(keys(%FUNCTIONS))) {
         next if (defined($FUNCTIONS{$func}->{'nolist'}));
-        print ".Ft $FUNCTIONS{$func}->{'type'}\n";
-        print ".Fn $func $FUNCTIONS{$func}->{'args'}\n";
+        print ".Ft $FUNCTIONS{$func}->{'type'}\n";
+        print ".Fn $func $FUNCTIONS{$func}->{'args'}\n";
     }
     print ".Sh DESCRIPTION
@@ -403 +414 @@
     foreach $func (sort(keys(%FUNCTIONS))) {
         next if (defined($FUNCTIONS{$func}->{'nolist'}));
-        print ".Xr $func 3 ,\n";
+        print ".Xr $func 3 ,\n";
     }
     print ".Xr pam.conf 5