--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolsandutils/productionbldtools/BFrC/testold.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,119 @@
+#!/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:
+# testold.pl - check the last modified date of all files under a path to see if
+# the last modified date is after 00:00 1 Jan 1970
+# 
+#
+
+$date = 500000000;
+
+my ($path) = readOpts(@ARGV);
+
+print "*DIR:$path\n";
+
+testOld($path, "", $date);
+
+exit 0;
+
+sub readOpts(@)
+	{
+	my (@args) = @_;
+
+	my $path = undef;
+
+	foreach my $arg (@args)
+		{
+		if ($arg =~ /^-/)
+			{
+			if ((lc($arg) eq "--help")
+			  ||(lc($arg) eq "-h")
+			   )
+			   	{
+				showHelp();
+				exit 0;
+				}
+			else
+				{
+				print STDERR "Option '$arg' not recognised.\n\n";
+				print STDERR "Try 'testold.pl --help' for help.\n";
+				exit 1;
+				}
+			}
+		else
+			{
+			if (defined($path))
+				{
+				print STDERR "Testold accepts only one argument.\n\n";
+				print STDERR "Try 'testold.pl --help' for help.\n";
+				exit 1;
+				}
+			else
+				{
+				$path = $arg;
+				}
+			}
+		}
+	
+	if (!defined($path))
+		{
+		print STDERR "Testold must be given a path to set.\n\n";
+		print STDERR "Try 'testold.pl --help' for help.\n";
+		exit 1;
+		}
+	
+	return ($path);
+	}
+
+sub testOld($$$)
+	{
+	my ($root, $path, $date) = @_;
+	
+	opendir(PATH, $root."\\".$path);
+	my @dir = readdir(PATH);
+	closedir(PATH);
+
+	foreach $entry (@dir)
+		{
+		if ($entry =~ /^\.\.?$/)
+			{
+			}
+		elsif (-d $root."\\".$path."\\".$entry)
+			{
+			testOld($root, $path."\\".$entry, $date);
+			}
+		else
+			{
+			# Check file's last modified stamp
+			my ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime, $blksize, $blocks) = stat($root."\\".$path."\\".$entry);
+
+			if ($mtime > $date)
+				{
+				print $path."\\".$entry."\n";
+				}
+			}
+		}
+	}
+
+sub showHelp()
+	{
+	print "testold.pl [options] Path\n";
+	print " - checks the last modified date of all files under a path to see\n";
+	print "   if it's newer than ".localtime($date)."\n\n";
+	print "  Path - The path to the root of the files to be modified\n";
+	print "Options:\n";
+	print "  --help or -h - Display this message\n\n";
+	}
+