--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/S60Extras/group/remove_unwanted_files.pl	Tue Feb 02 01:12:20 2010 +0200
@@ -0,0 +1,55 @@
+#
+# Copyright (c) 2009 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:
+#
+#!/usr/local/bin/perl
+
+if ($#ARGV != 1)
+	{
+	die "FileRemover\nThis must be called with two parameters:\n	Arg1 : Database of files with their current status\n	Arg2 : Destination batch file to remove the undesired files.\n";
+	}
+$database=shift(@ARGV);
+$resultingList=shift(@ARGV);
+
+open(FH,"< $database")|| die "Cannot open file $database for reading\n";
+open(WFH,"> $resultingList")|| die "Cannot open file $resultingList for writing\n";
+while ($line=<FH>)
+	{
+	$line=uc $line; 	# read all lines in uppercase
+	chop($line);		# remove EOL char
+	if (($filename,$status) = $line =~ /([^;\s]+)\s*;\s*([K|R])/) 
+			# if match found 
+		{
+		if ($status eq "R")
+			{
+			if (-e $filename)
+				{
+				print WFH "call attrib -r $filename\n";
+				print WFH "call del $filename\n";		
+				};
+			if ($filename =~ /([^\\]+)$/)
+				{
+				if (-e "\\epoc32\\include\\$1")
+					{
+					print WFH "call attrib -r \\epoc32\\include\\$1\n";
+					print WFH "call del \\epoc32\\include\\$1\n";
+					}
+				}
+			}
+		}
+	};
+close(FH);
+close(WFH);
+
+