summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorLuke Dashjr <luke-jr+git@utopios.org>2017-10-29 04:04:07 +0000
committerLuke Dashjr <luke-jr+git@utopios.org>2017-10-29 04:04:07 +0000
commit41cabd2de5eeaf6b905d7464d18ab16c21774a68 (patch)
tree574e6eeec73f4c9e2fd1bbe8b0d6f0d6ab7a798e /scripts
parent21da438ad50ad9fb0bb46fb4ae4a1bf6addb16af (diff)
downloadbips-41cabd2de5eeaf6b905d7464d18ab16c21774a68.tar.xz
scripts/buildtable: Support License-Code header
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/buildtable.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/scripts/buildtable.pl b/scripts/buildtable.pl
index 36701a5..144ede6 100755
--- a/scripts/buildtable.pl
+++ b/scripts/buildtable.pl
@@ -19,6 +19,7 @@ my %MayHaveMulti = (
Author => undef,
'Comments-URI' => undef,
License => undef,
+ 'License-Code' => undef,
'Post-History' => undef,
);
my %DateField = (
@@ -149,9 +150,9 @@ while (++$bipnum <= $topbip) {
} elsif ($field eq 'Layer') { # BIP 123
die "Invalid layer $val in $fn" unless exists $ValidLayer{$val};
$layer = $val;
- } elsif ($field eq 'License') {
+ } elsif ($field =~ /^License(?:\-Code)?$/) {
die "Undefined license $val in $fn" unless exists $DefinedLicenses{$val};
- if (not $found{License}) {
+ if (not $found{$field}) {
die "Unacceptable license $val in $fn" unless exists $AcceptableLicenses{$val} or ($val eq 'PD' and exists $GrandfatheredPD{$bipnum});
}
} elsif ($field eq 'Comments-URI') {