--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tsrc/testing/tools/s60poliisi.pl	Thu Nov 04 11:16:56 2010 +0200
@@ -0,0 +1,230 @@
+#
+# Copyright (c) 2007 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: 
+#
+
+
+#------------------------------------------------------------------------------------
+# Includes
+#------------------------------------------------------------------------------------
+#use strict;
+use warnings;
+use Cwd; # for cwd
+use FindBin; # for FindBin:Bin
+use File::Path; # for mkpath
+use Date::Calc;
+use File::Copy;
+
+my @files;
+
+FindDirs(".", "", \@dirs);
+
+my $option = "";
+
+$option = shift(@ARGV) if( scalar(@ARGV) > 0 );
+
+if( $option eq "-check" )
+{
+ 	# Check for missing policy files.
+ 	print("Policy file missing from directories:\n");
+	my $count = 0;
+	foreach $dir ( @dirs )
+	{
+    if( !-e "$dir/distribution.policy.s60" )
+    	{
+    	print("$dir\n");
+    	$count++;
+    	}
+	}
+	print("None!\n") if( $count == 0 );
+}
+elsif( $option eq "-len" )
+{
+	print("Too long filenames:\n");
+	foreach $dir ( @dirs )
+	{
+		my @files;
+		GetAllFiles( $dir, \@files );
+	    foreach $file ( @files )
+	   	{
+	    	if( length( $dir . "/" . $file ) > 140 )
+	    	{
+	    		print("$dir/$file\n");
+	    	}
+	    }
+	}
+}
+elsif( $option eq "-list" )
+{
+	foreach $dir ( @dirs )
+	{
+    	print("$dir\n");
+    	CheckDistri( $dir );
+	}
+}
+elsif( $option eq "" )
+{
+	print("This copies distribution.policy.s60 file from current directory to all subdirectories.\n\n");
+	print("Press CTRL-C to cancel, ENTER key to continue.\n\n");
+	 <>;
+	
+	die("policy file does not exist in current directory!") if( ! -e "distribution.policy.s60" );
+	
+	foreach $dir ( @dirs )
+		{
+	    unlink("$dir/distribution.policy.s60");
+	    copy("distribution.policy.s60", "$dir/distribution.policy.s60");
+		}
+}
+else
+{
+	print("Options:\n");
+	print("  -check checks all directories for policy files.\n");
+	print("  -len checks that any path doesn't go over 140 characters.\n");
+	exit();
+}
+
+# returns if this is internal folder
+sub CheckDistri
+{
+	my ($dir) = @_;
+	
+	#
+	# Check all subdirs but internals
+	#
+	
+	my $isInternal = 0;
+	
+	if( substr($dir, rindex( $dir, "/" )+1 ) =~m/internal$/i )
+	{
+		$isInternal = 1;
+	}
+	return $isInternal;
+}
+
+#------------------------------------------------------------------------------------
+# FindFiles
+# Parameters:
+#	$goDir, where to start finding
+#	$fileSearch, filename search
+#	$searchType, 0 = fullname search, 1 = filetype search
+#	$refIncfiles, reference to array which will hold found files
+#------------------------------------------------------------------------------------
+sub FindFiles
+{
+	my ($godir, $fileSearch, $searchType, $refIncfiles, $fileFilter) = @_;
+
+	my $startDir = cwd;
+
+	chdir($godir);
+
+	#print("Now in: " . cwd . "\n");
+
+	opendir(DIR, ".");
+	my @filelist = sort(readdir(DIR));
+	closedir(DIR);
+
+	foreach my $file(@filelist)
+	{
+		if($file eq "." or $file eq "..") {next};
+
+		if (-d $file)
+		{
+		 	FindFiles( $file, $fileSearch, $searchType, $refIncfiles, $fileFilter );
+		} else
+		{
+			if( ($file =~ m/$fileSearch/i and $searchType == 0 and $file =~m/$fileFilter/i) or ($file =~ m/$fileSearch$/i and $searchType == 1 and $file =~m/$fileFilter/i) )
+			{
+                $file = cwd . "/" . $file;
+				push @$refIncfiles, $file;
+				#print("$file\n");
+			}
+		}
+	}
+
+	chdir ($startDir);
+}
+
+
+#------------------------------------------------------------------------------------
+# GetAllFiles
+# Parameters:
+#	$goDir, where to start finding
+#	$refIncfiles, reference to array which will hold found files
+#------------------------------------------------------------------------------------
+sub GetAllFiles
+{
+	my ($godir, $refIncfiles) = @_;
+
+	my $startDir = cwd;
+
+	chdir($godir);
+
+	#print("Now in: " . cwd . "\n");
+
+	opendir(DIR, ".");
+	my @filelist = sort(readdir(DIR));
+	closedir(DIR);
+
+	foreach my $file(@filelist)
+	{
+		if($file eq "." or $file eq "..") {next};
+		
+		if (! (-d $file) )
+		{
+		 	push @$refIncfiles, $file;
+		}
+	}
+
+	chdir ($startDir);
+}
+
+
+#------------------------------------------------------------------------------------
+# FindDirs
+# Parameters:
+#	$goDir, where to start finding
+#	$fileSearch, filename search
+#	$refIncfiles, reference to array which will hold found files
+#------------------------------------------------------------------------------------
+sub FindDirs
+{
+	my ($godir, $fileSearch, $refIncfiles) = @_;
+
+	my $startDir = cwd;
+
+	chdir($godir);
+
+	#print("Now in: " . cwd . "\n");
+
+	opendir(DIR, ".");
+	my @filelist = sort(readdir(DIR));
+	closedir(DIR);
+
+	foreach my $file(@filelist)
+	{
+		if($file eq "." or $file eq "..") {next};
+
+		if (-d $file)
+		{
+		    if( $file =~ m/$fileSearch/i )
+		    {
+		        push @$refIncfiles, (cwd . "/" . $file);
+		    }
+		 	FindDirs( $file, $fileSearch, $refIncfiles );
+		}
+	}
+
+	chdir ($startDir);
+}