diff -r c8ecf89eb77f -r d879835cfeed build/tools/add_build_definition_filter.pl
--- a/build/tools/add_build_definition_filter.pl	Sat Feb 20 00:39:01 2010 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,125 +0,0 @@
-#
-# Copyright (c) 2007 Nokia Corporation and/or its subsidiary(-ies).
-# All rights reserved.
-# This component and the accompanying materials are made available
-# under the terms of "Eclipse Public License v1.0"
-# which accompanies this distribution, and is available
-# at the URL "http://www.eclipse.org/legal/epl-v10.html".
-#
-# Initial Contributors:
-# Nokia Corporation - initial contribution.
-#
-# Contributors:
-#
-# Description:
-#
-
-use strict;
-use File::Find;     # for finding
-use File::Basename; # for fileparse
-use File::Copy 'copy';
-use File::Path;    
-use Getopt::Long;
-
-my (@sysdeffiles, @filters);
-
-if ( !GetOptions(
-	'i=s' => \@sysdeffiles,
-	'f:s' => \@filters
-	))
-{
-	&error_msg("Invalid arguments!\n");
-}
-
-if (!scalar (@filters)){	&error_msg("No filter(s) to set!\n")};
-if (!scalar (@sysdeffiles)){	&error_msg("No files to set filters\n")};
-
-my $checkfilters = "";
-foreach (@filters) {
-	next if ($_ !~ /\w/i);
-	$checkfilters .=$_;
-	$checkfilters .=",";
-}
-# no filters to add
-if ($checkfilters eq "") {die "nothing to do\n";};
-
-foreach my $file (@sysdeffiles) {
-	eval {set_filters($file);};
-	if ($@) {
-		print "failed $@ \n";
-	}
-}
-
-sub set_filters {
-	my $sysdeffile = shift;
-	my @updated_data;
-	
- 	open (ORIG,"${sysdeffile}") or die("Cannot open $sysdeffile");
-	my @orig_data=<ORIG>;
-	close ORIG;
-
-	copy($sysdeffile, $sysdeffile.".orig");
-	
-	foreach (@orig_data) {
-		chomp;
-		if ($_ =~ /(<configuration)/i) {
-			my $filterline = getfilterline($_);
-			$_ =~ s/^.*filter=?\"/$&${filterline}/i;
-			$_ =~ s/,\"/\"/i;
-		}
-		push @updated_data, $_."\n";
-	}
-
-	open (UPDATED, ">${sysdeffile}");
-  print UPDATED @updated_data;
-	close UPDATED;
-}
-
-sub getfilterline {
-	my $conffilter = shift;
-	my $newfilterline = ""; 
-
-	$conffilter =~ s/.*filter=\"//i;
-	$conffilter =~ s/\".*//i;
-	
-	my @oldfilters = split(',', $conffilter);
-	
-	foreach (@filters) {
-		my $match = 0;
-		next if ($_ !~ /\w/i);
-# check if filter is defined already
-		foreach my $old (@oldfilters) {
-			if ($old eq $_) {
-				$match = 1;
-				last;
-			}
-		}
-# add filter only if it is new
-		if (!$match) {
-			$newfilterline .= $_;
-			$newfilterline .=",";
-		}
-		
-	}
-
-# remove last ',' if filters are not existed before
-	if (! scalar (@oldfilters) && $newfilterline ne "") {
-		$newfilterline =~ s/,$//i
-	}
-	
-	return $newfilterline;
-}
-
-sub error_msg ($){
-  my($ErrorMsg);
-  ($ErrorMsg)=@_;
-  my $given_command=$0;
-  $given_command =~ s/.*\\(\w+\.\w+)$/$1/;
-  print "Error: $ErrorMsg \n";
-	print "Usage: \n$given_command -f <filter> -i <systemdefinition xml file>\n";
-	print "           -f <filter> (multible allowed)\n";
-	print "           -i <sysdef file> (multible allowed)\n";
-	print "Example: \n$given_command -f test -i \\S60_SystemBuild.xml\n";
-	print "\n";  
-	die "\n";  
-}