common/tools/zip_includefiles.pl
author matt.davies@SYM-BUILD02.ad-sfpd.intra
Mon, 15 Jun 2009 14:27:54 +0100
changeset 153 e60dd96530ff
parent 116 47cccedacd2d
permissions -rw-r--r--
Results Publish - changed network location from \\lon-engbuild87\SF_Build\ to \\v800008\SF_build\

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