#
# CheckDistributionFiles.pl
# Aug 3rd 2009. Written for use during the SOS production build.
# Parameter 1 : Directory to search
# The script will search through the directory provided. (This is \clean-src in the current SOS production build.)
# It will produce an advisory note for any missing distribution.policy.s60 files.
# It will produce a migration note for any unnecessary distribution.policy.s60 files.
#

use File::Find;

my $dirToSearch = shift;

# Iterate through all sub-directories checking the distribution.policy.s60 status.
finddepth(sub{if ($_ !~ /^\.\.?$/ ) {$entry = Cwd::cwd."\\"."$_"; if (-d $entry) {checkDir($entry)}}}, $dirToSearch);

# A directory is considered empty for this purpose if it contains no files (it may contain other directories)
sub dirIsEmpty($)
{
    my $currentDir = shift;
    opendir DIR, $currentDir;
	
    while(my $entry = readdir DIR) {    
        next if(($entry =~ /^\.\.?$/) || (-d "$currentDir"."\\"."$entry")); # ignore all directory entries (including . and ..)
        closedir DIR;
        return 0; # first file has been found
    }
    closedir DIR;
    return 1; # no files found
}

# Checks if a directory contains files other than an S60 distribution policy file.
sub onlyPolicyFileExists($)
{
    my $currentDir = shift;
    my $file = "distribution.policy.s60";
 
    opendir DIR, $currentDir;
    while(my $entry = readdir DIR) {
	 
	    # ignore directories (including . and ..) and S60 distribution file
        next if(($entry =~ /^\.\.?$/) || (-d "$currentDir"."\\"."$entry") || ($entry =~ /^$file$/i));  
        closedir DIR;
        return 0; # first file (except distribution.policy.s60) has been found
    }
    closedir DIR;
    return 1; # no extra files found 
}

# checkDir
# Check the distribution.policy.s60 status of the directory passed as parameter.
# 4 cases are checked for
# Case 1: Empty directory , no policy file - this is fine
# Case 2: The directory is empty except for the distribution.policy.s60 file - produce migration note
# Case 3: Non-empty directory with policy file in place - this is fine
# Case 4: Directory is not empty and does not contain a distribution.policy.s60 file - produce an advisory note
#
sub checkDir($) {

	my $currentDir = shift;
	my $file = "distribution.policy.s60";
 
	# An empty directory should not have a policy file.
	if (dirIsEmpty($currentDir) )
		{ # Case 1: Empty directory , no policy file - this is fine
		  # print "\nok, $currentDir has no files so no distribution.policy.s60 file is necessary \n";
		}

	else # Directory is not empty
		{
		# Check if a policy file exists
		if (-e "$currentDir"."\\"."$file")
			{
			# Check that it is necessary i.e. that there are other files in the directory
			if (onlyPolicyFileExists($currentDir))
				{
				# Case 2: The directory is empty except for the distribution.policy.s60 file - produce migration note
				print "MIGRATION_NOTE: Unnecessary distribution.policy.s60 file in $currentDir\n";
				}
			else
				{
				# Case 3: Non-empty directory with policy file in place.
				# print "\nok, distribution.policy.s60 and other files exist in $currentDir\n";
				}

			}
		else # no policy file exists in a non-empty directory
			{
			#  Case 4: Directory is not empty and does not contain a distribution.policy.s60 file - produce an advisory note
			print "ADVISORY NOTE: Missing distribution.policy.s60 file in $currentDir \n";
			}

		} # end directory is not empty

} # end checkDir;