70 # For each package in CSV... |
70 # For each package in CSV... |
71 foreach my $package (@packages) |
71 foreach my $package (@packages) |
72 { |
72 { |
73 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
73 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
74 $package->{dst} =~ s{^/}{}g; |
74 $package->{dst} =~ s{^/}{}g; |
75 if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/(sf|utilities|interim)/(([^/]+)/)?([^/]+)?}) |
75 if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/(sf|sftools|interim)/(([^/]+)/)?([^/]+)?}) |
76 { |
76 { |
77 my ($license, $codeline, $thingy, $layer, $packageName) = ($1, $2, $3, $5, $6); |
77 my ($license, $codeline, $thingy, $layer, $packageName) = ($1, $2, $3, $5, $6); |
78 # $thingy is the part of the path after the codeline. For |
78 # $thingy is the part of the path after the codeline. For |
79 # platform packages, it's "sf". For the utilities package, it's |
79 # platform packages, it's "sf". For the utilities package, it's |
80 # "utilities" (the name of the package) and there's no more |
80 # "sftools". |
81 # path. |
|
82 # |
81 # |
83 # I can't think of anything to describe this item, hence $thingy |
82 # I can't think of anything to describe this item, hence $thingy |
84 if ($thingy eq "utilities") |
83 if ($thingy eq "sftools") |
85 { |
84 { |
86 $layer = "tools"; |
85 $layer = "tools"; |
87 $packageName = "utilities"; |
|
88 } |
86 } |
89 elsif ($thingy eq "interim") |
87 elsif ($thingy eq "interim") |
90 { |
88 { |
91 if ($layer eq "QEMU") |
89 if ($layer eq "QEMU") |
92 { |
90 { |