Changeset 40 in openpam for trunk/misc


Ignore:
Timestamp:
Feb 7, 2002, 12:30:25 PM (18 years ago)
Author:
Dag-Erling Smørgrav
Message:

Reuse the copyright from the last source file for the summary page.

Sponsored by: DARPA, NAI Labs

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/misc/gendoc.pl

    r31 r40  
    3939use Fcntl;
    4040use POSIX qw(strftime);
    41 use vars qw($TODAY %FUNCTIONS);
     41use vars qw($COPYRIGHT $TODAY %FUNCTIONS);
    4242
    4343sub gendoc($) {
    … …  
    6767        $mdoc =~ s,^.\*,.\\\",gm;
    6868        $mdoc .= "\n.\\\"\n";
     69        $COPYRIGHT = $mdoc;
    6970    } else {
    7071        $mdoc = ".\\\" \$" . "Id" . "\$\n";
    … …  
    136137sub gensummary() {
    137138
     139    print "$COPYRIGHT";
    138140    print ".Dd $TODAY
    139141.Dt PAM 3
Note: See TracChangeset for help on using the changeset viewer.