mktpl.pl revision 597bd30ba830d1e11c8efdb9a1b9de28e0599f5e
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License (the "License").
# You may not use this file except in compliance with the License.
#
# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
# See the License for the specific language governing permissions
# and limitations under the License.
#
# When distributing Covered Code, include this CDDL HEADER in each
# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
# If applicable, add the following below this CDDL HEADER, with the
# fields enclosed by brackets "[]" replaced with your own identifying
# information: Portions Copyright [yyyy] [name of copyright owner]
#
# CDDL HEADER END
#
#
# Copyright 2010 Sun Microsystems, Inc. All rights reserved.
# Use is subject to license terms.
#
#
# Create THIRDPARTYLICENSE files using the index file in $CODEMGR_WS.
#
use Cwd;
use Env;
use strict;
use vars qw($opt_c);
# -c: only generate crypto license file
my $usage = "mktpl [-c] license-list-file";
if (! $top) {
die "CODEMGR_WS must be set.\n";
}
if (! getopts('c')) {
die "usage: $usage\n";
}
if (@ARGV != 1) {
die "usage: $usage\n";
}
my $exitstatus = 0;
#
# Create a THIRDPARTYLICENSE file from the given license list and suffix.
#
sub maketpl {
my $licnum = 1;
my $tplname = "$top/THIRDPARTYLICENSE.$suffix";
print TPL "DO NOT TRANSLATE OR LOCALIZE.\n\n";
if (! $descrip) {
warn "Missing description for $licfile\n";
$exitstatus = 1;
$descrip = "(MISSING DESCRIPTION for $licfile)\n";
}
print TPL "$licnum) The following software may be included ",
"in this product:\n\n";
print TPL "\t$descrip\n";
print TPL " Use of this software is governed by the ",
"terms of the following license:\n";
print TPL "\n";
if (open(LIC, "<$licfile")) {
while (<LIC>) {
print TPL " " . $_;
}
close LIC;
} else {
warn "Can't open $licfile: $!\n";
$exitstatus = 1;
print TPL " (MISSING LICENSE: $licfile)\n";
}
print TPL "\n";
$licnum++;
}
close TPL or die "I/O error on $tplname: $!\n";
}
#
# Return non-zero if we expect the crypto for the given
# third-party license file to be signed. Else, return zero.
#
sub signedcrypto {
my ($licpath) = @_;
return 1;
}
#
# Make file list for each TPL file.
#
chdir($top) or die "Can't chdir to $top: $!\n";
my @closedlist;
my @toolslist;
my @bfulist;
my @cryptolist;
while (<IX>) {
chomp;
my $lic = $_;
push @closedlist, $lic;
}
push @cryptolist, $lic;
}
if (! $opt_c) {
} else {
}
}
}
close IX;
#
# Generate each TPL file.
#
exit $exitstatus;