equal
deleted
inserted
replaced
54 |
54 |
55 # For each package in CSV... |
55 # For each package in CSV... |
56 foreach my $package (@packages) |
56 foreach my $package (@packages) |
57 { |
57 { |
58 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
58 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
|
59 $package->{dst} =~ s{^/}{}g; |
59 if ($package->{source} =~ m{/(sfl|epl)/sf/([^/]+)/([^/]+)}) |
60 if ($package->{source} =~ m{/(sfl|epl)/sf/([^/]+)/([^/]+)}) |
60 { |
61 { |
61 push @{$zipConfig->{config}->{config}->{src}->{config}->{$1}->{config}}, |
62 push @{$zipConfig->{config}->{config}->{src}->{config}->{$1}->{config}}, |
62 { |
63 { |
63 set => |
64 set => |
64 [ |
65 [ |
65 { |
66 { |
66 name => "name", |
67 name => "name", |
67 value=> "src_$2_$3", |
68 value=> "src_$1_$2_$3", |
68 }, |
69 }, |
69 { |
70 { |
70 name => "include", |
71 name => "include", |
71 value => "$package->{dst}/**", |
72 value => "$package->{dst}/**", |
72 }, |
73 }, |
74 }; |
75 }; |
75 } |
76 } |
76 elsif ($package->{source} =~ m{/rnd/([^/]+)/([^/]+)}) |
77 elsif ($package->{source} =~ m{/rnd/([^/]+)/([^/]+)}) |
77 { |
78 { |
78 # RnD repository |
79 # RnD repository |
79 my $name = "rnd_$1_$2"; |
80 my $name = "bin_rnd_$1_$2"; |
80 # Enumerate all the files on the local disk that are in this repository |
81 # Enumerate all the files on the local disk that are in this repository |
81 (my $dosCompatibleDst = $package->{dst}) =~ s{/}{\\}g; |
82 (my $dosCompatibleDst = $package->{dst}) =~ s{/}{\\}g; |
82 my @files = `dir /b/s/a-d $dosCompatibleDst 2> nul:`; |
83 my @files = `dir /b/s/a-d $dosCompatibleDst 2> nul:`; |
|
84 #print "@files\n"; |
83 next unless @files; |
85 next unless @files; |
84 # Add the files to this zip object |
86 # Add the files to this zip object |
85 @files = grep { |
87 @files = grep { |
86 chomp; |
88 chomp; |
87 s{\\}{/}g; |
89 s{\\}{/}g; |
88 s!^[A-Z]:$package->{dst}/!!i; |
90 s!^[A-Z]:/$package->{dst}/!!i; |
89 m{^epoc32/}i; |
91 m{^epoc32/}i; |
90 } @files; |
92 } @files; |
91 #print "@files\n"; |
93 #print "@files\n"; |
92 push @allRndFiles, @files; |
94 push @allRndFiles, @files; |
93 # Create a zip object |
95 # Create a zip object |