changeset 118 | 9765c33f29a5 |
parent 116 | 47cccedacd2d |
117:483f966c6335 | 118:9765c33f29a5 |
---|---|
6 foreach (@includefiles) |
6 foreach (@includefiles) |
7 { |
7 { |
8 my $includefilename=$_; |
8 my $includefilename=$_; |
9 if (m/(.*)(_includefile.txt)/) { |
9 if (m/(.*)(_includefile.txt)/) { |
10 my $zipfilename = $1.".zip"; |
10 my $zipfilename = $1.".zip"; |
11 system("7z a -tzip -i@".$includefilename . " " .$zipfilename); |
11 system("7za a -tzip -i@".$includefilename . " " .$zipfilename); |
12 } |
12 } |
13 } |
13 } |