diff -r 000000000000 -r 83f4b4db085c toolsandutils/productionbldtools/BFrC/setold.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolsandutils/productionbldtools/BFrC/setold.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,132 @@
+#!/usr/bin/perl
+
+# Copyright (c) 2002-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:
+# setold.pl - sets the last modified date of all files under a path to 1970
+# 
+#
+
+$date = 500000000; # e.g 0 = 00:00 1st Jan 1970, 1000000000 (10^9) = 01:46 9th Sep 2001 
+
+my ($path, $batch) = readOpts(@ARGV);
+
+if (!$batch)
+	{
+	print "Setting all files under path '$path' to be last modified at ".localtime($date).".\nAre you sure (Y/N)?\n";
+
+	if (lc(getc(STDIN)) ne "y")
+		{
+		print "Aborting.\n";
+		exit 0;
+		}
+	}
+
+setOld($path,$date);
+
+exit 0;
+
+sub readOpts(@)
+	{
+	my (@args) = @_;
+
+	my $path = undef;
+	my $batch = 0;
+
+	foreach my $arg (@args)
+		{
+		if ($arg =~ /^-/)
+			{
+			if ((lc($arg) eq "--help")
+			  ||(lc($arg) eq "-h")
+			   )
+			   	{
+				showHelp();
+				exit 0;
+				}
+			elsif (lc($arg) eq "--batch")
+				{
+				$batch = 1;
+				}
+			else
+				{
+				print STDERR "Option '$arg' not recognised.\n\n";
+				print STDERR "Try 'setold.pl --help' for help.\n";
+				exit 1;
+				}
+			}
+		else
+			{
+			if (defined($path))
+				{
+				print STDERR "Setold accepts only one argument.\n\n";
+				print STDERR "Try 'setold.pl --help' for help.\n";
+				exit 1;
+				}
+			else
+				{
+				$path = $arg;
+				}
+			}
+		}
+	
+	if (!defined($path))
+		{
+		print STDERR "Setold must be given a path to set.\n\n";
+		print STDERR "Try 'setold.pl --help' for help.\n";
+		exit 1;
+		}
+	
+	return ($path, $batch);
+	}
+
+sub setOld($$)
+	{
+	my ($path,$date) = @_;
+	
+	opendir(PATH, $path);
+	my @dir = readdir(PATH);
+	closedir(PATH);
+
+	foreach $entry (@dir)
+		{
+		if ($entry =~ /^\.\.?$/)
+			{
+			}
+		elsif (-d $path."\\".$entry)
+			{
+			setOld($path."\\".$entry,$date);
+			}
+		else
+			{
+			# Set file's last modified stamp
+			my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($path."\\".$entry);
+
+			utime $atime, $date, ($path."\\".$entry) or print "Failed to set $path\\$entry\n";
+			}
+		}
+	}
+
+sub showHelp()
+	{
+	my ($date) = @_;
+	
+	print "setold.pl [options] Path\n";
+	print " - sets the last modified date of all files under a path to ".localtime($date)."\n\n";
+	print "  Path - The path to the root of the files to be modified\n";
+	print "Options:\n";
+	print "  --batch - Don't prompt for confirmation (use with care)\n";
+	print "  --help or -h - Display this message\n\n";
+	print "Note that this tool always operates on all subdirectories of the given path\n";
+	}
+