common/tools/zip_includefiles.pl
author MattD <mattd@symbian.org>
Wed, 12 Aug 2009 10:24:42 +0100
changeset 312 97c01977a87b
parent 116 47cccedacd2d
permissions -rw-r--r--
source syncing ftl - Added 'sf.spec.sourcesync.archive' preference to do 'hg archive' instead of 'hg sync'. If set and the repo sync is s'posed to be synced by tag it still does the slower clone+update behaviour.

#!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);
	}
}