changeset 464 | 48fbe8fe5076 |
parent 463 | 2ad847d21423 |
parent 457 | 991d89a55c87 |
child 465 | 8cf07278ef12 |
--- a/common/tools/zip_includefiles.pl Wed Sep 16 10:55:26 2009 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,13 +0,0 @@ -#!perl -w - -use strict; - -my @includefiles = glob "*_includefile.txt"; -foreach (@includefiles) -{ - my $includefilename=$_; - if (m/(.*)(_includefile.txt)/) { - my $zipfilename = $1.".zip"; - system("7za a -tzip -i@".$includefilename . " " .$zipfilename); - } -} \ No newline at end of file