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