--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/toolsandutils/productionbldtools/CheckDistributionFiles.pl	Tue Feb 02 01:39:43 2010 +0200
@@ -0,0 +1,95 @@
+#
+# 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;