#!/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 the License "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";
	}

