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

Sponsored by:	DARPA, NAI Labs


git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@40 185d5e19-27fe-0310-9dcf-9bff6b9f3609
This commit is contained in:
Dag-Erling Smørgrav 2002-02-07 12:30:25 +00:00
parent a139b62d54
commit b93fb425c5
1 changed files with 3 additions and 1 deletions

View File

@ -38,7 +38,7 @@
use strict;
use Fcntl;
use POSIX qw(strftime);
use vars qw($TODAY %FUNCTIONS);
use vars qw($COPYRIGHT $TODAY %FUNCTIONS);
sub gendoc($) {
my $fn = shift;
@ -66,6 +66,7 @@ sub gendoc($) {
$mdoc = $1;
$mdoc =~ s,^.\*,.\\\",gm;
$mdoc .= "\n.\\\"\n";
$COPYRIGHT = $mdoc;
} else {
$mdoc = ".\\\" \$" . "Id" . "\$\n";
}
@ -135,6 +136,7 @@ as part of the DARPA CHATS research program.
sub gensummary() {
print "$COPYRIGHT";
print ".Dd $TODAY
.Dt PAM 3
.Os