Conservancy/gpl-compliance-tools
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use entirely different output hierarchy for privileged docs.

Browse source 
Since no privileged docs should go into the production, copy those
over to a completely different file hierarchy so when the production
is put into an archive file, those privileged documents are sure to
not be included.
This commit is contained in:
Bradley M. Kuhn 2023-06-03 07:12:53 -07:00
parent eb37c59129
commit 34e24a8a31
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
build-label-upi-number.plx
View file

@ -4,7 +4,7 @@
# rfp-NN/BUCKET/TYPE/ # rfp-NN/BUCKET/TYPE/
# Note that items from input will be moved to output if they are included in group # Note that items from input will be moved to output if they are included in group
# #
# output directory ends up with two subdirectories: native/ and numbered/ # output directory ends up with four subdirectories: produce-native/ and produce-numbered/, priv-native, priv-numbered
# native is where things are just moved over at the end # native is where things are just moved over at the end
# numbered is where the numbered items go # numbered is where the numbered items go
@ -186,8 +186,12 @@ while (my $rfp = readdir $topDH) {
next if $typeName =~ /^\s*\.\.?\s*$/; next if $typeName =~ /^\s*\.\.?\s*$/;
my $typeDirName = catfile($INPUT_TOPLEVEL_DIR, $rfp, $bucketName, $typeName); my $typeDirName = catfile($INPUT_TOPLEVEL_DIR, $rfp, $bucketName, $typeName);
die "regular file found where we expected a type in $typeName" unless -d $typeDirName; die "regular file found where we expected a type in $typeName" unless -d $typeDirName;
my $nativeOutputDirOneUp = File::Spec->rel2abs(catfile($OUTPUT_TOPLEVEL_DIR, 'native', $rfp, $bucketName)); my($native, $numbered) = ('produce-native', 'produce-numbered');
my $numberedOutputDir = File::Spec->rel2abs(catfile($OUTPUT_TOPLEVEL_DIR, 'numbered', $rfp, $bucketName, $typeName)); if ($GROUP_NAMES_BY_DIR{$GROUP} eq 'PRIVILEGE') {
($native, $numbered) = ('priv-native', 'priv-numbered');
}
my $nativeOutputDirOneUp = File::Spec->rel2abs(catfile($OUTPUT_TOPLEVEL_DIR, $native, $rfp, $bucketName));
my $numberedOutputDir = File::Spec->rel2abs(catfile($OUTPUT_TOPLEVEL_DIR, $numbered, $rfp, $bucketName, $typeName));
make_path($nativeOutputDirOneUp, { mode => 0755 }); make_path($nativeOutputDirOneUp, { mode => 0755 });
make_path($numberedOutputDir, { mode => 0755 }); make_path($numberedOutputDir, { mode => 0755 });
if ($typeName =~ /email/i) { if ($typeName =~ /email/i) {