Changeset 40 in openpam for trunk/misc
- Timestamp:
- Feb 7, 2002, 12:30:25 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/misc/gendoc.pl
r31 r40 39 39 use Fcntl; 40 40 use POSIX qw(strftime); 41 use vars qw($ TODAY %FUNCTIONS);41 use vars qw($COPYRIGHT $TODAY %FUNCTIONS); 42 42 43 43 sub gendoc($) { … … 67 67 $mdoc =~ s,^.\*,.\\\",gm; 68 68 $mdoc .= "\n.\\\"\n"; 69 $COPYRIGHT = $mdoc; 69 70 } else { 70 71 $mdoc = ".\\\" \$" . "Id" . "\$\n"; … … 136 137 sub gensummary() { 137 138 139 print "$COPYRIGHT"; 138 140 print ".Dd $TODAY 139 141 .Dt PAM 3
Note: See TracChangeset
for help on using the changeset viewer.