diff -r 000000000000 -r ba25891c3a9e secureswitools/swisistools/test/tinterpretsisinteg/swicheck.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/secureswitools/swisistools/test/tinterpretsisinteg/swicheck.pl	Thu Dec 17 08:51:10 2009 +0200
@@ -0,0 +1,470 @@
+#
+# Copyright (c) 2006-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: 
+# ARGV 1 : Log File Name
+# ARGV 2 : Test Id
+# ARGV 3 : parameter file name (files to be searched)
+# ARGV 4 : Testing (scenarios)
+# ARGV 5 : positivetc (positive test case or negative)
+# ARGV 6 : removedrives ("both" - remove C & Z drives, "c_only" - remove C drive only, "rom_only" - remove rom drive only, "none" - leave in current state)
+#
+
+
+use strict;
+use File::Find;
+use File::Compare;
+use File::Basename;
+use File::Copy;
+use Cwd;
+
+if (@ARGV <6)
+	{
+	print "Failed: Invalid parameters\n", join(", ",@ARGV);
+	exit();
+	}
+# setup Path
+my $CURR_WORK_DIR = getcwd();
+my $TEST_EXECUTE = "\\epoc32\\release\\WINSCW\\udeb\\testexecute.exe";
+my $CDRIVE_PATH =$CURR_WORK_DIR."\\cdrive";
+my $ROMDRIVE_PATH =$CURR_WORK_DIR."\\romdrive";
+my $DDRIVE_PATH ="\\ddrive";
+my $EDRIVE_PATH =$CURR_WORK_DIR."\\edrive";
+my $ORIGINAL_DATA_PATH = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\data";
+my $SWICDRIVE_PATH = "\\epoc32\\winscw\\c";
+my $PARAMS_PATH = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\parameters_file";
+my $testdata = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\sisfiles";
+my $TEF_LOGS_PATH= "\\epoc32\\winscw\\c\\logs\\testexecute\\";
+my $iniFile = "\\epoc32\\winscw\\c\\tswi\\tinterpretsisinteg\\parameters_file\\parameters.ini";
+my $logFile = "\\epoc32\\winscw\\c\\interpretsis_test_harness.txt";
+# Process Command line arguments
+my $logfilename		 =  shift @ARGV;
+my $testid			 =  shift @ARGV;
+my $param_filename	 =  shift @ARGV;# contains the file to be searched
+my $testing			 =  shift @ARGV;
+my $positivetc		 =  shift @ARGV;# positive/negative Test case
+my $removedrives	 =  shift @ARGV;# remove drives (both/c_only/rom_only/none)
+my $uid				 =  shift @ARGV;
+my $batchfile		 =  shift @ARGV;
+my $scriptfile		 =  shift @ARGV;
+my $htmlfile		 =  shift @ARGV;
+my $NRsearch		 =  shift @ARGV;
+my $errorcodesearch	 =  shift @ARGV;
+my $comparetext      =	shift @ARGV;# Text to be compared from file
+# flags
+my $passflag = 0;  # flag for pass or fail
+my $count;         # to keep track of results.
+my @searchedpath;
+my $searchresult;  # flag for searching file
+my $filename;
+my $debug = 0;     # flag to turn on debug log
+
+if($testing eq 1)
+{
+	check($CDRIVE_PATH);
+
+	if(!$passflag)
+	{
+		goto res;
+	}
+	&TefFunction($scriptfile);
+	&CompareIntSwi();
+}
+
+elsif($testing eq 2)
+{	
+	&TefFunction($scriptfile);
+	check($SWICDRIVE_PATH);
+}
+elsif($testing eq 3)
+{
+	&TefFunction($scriptfile); 
+	$passflag = 0;
+	&CheckTefLogs($htmlfile,$NRsearch,$errorcodesearch,$TEF_LOGS_PATH);
+}
+elsif($testing eq 4)
+{	
+	&TefFunction($scriptfile);
+	check($SWICDRIVE_PATH);
+	&CheckTefLogs($htmlfile,$NRsearch,$errorcodesearch,$TEF_LOGS_PATH);
+	&Cleanup();
+}
+elsif($testing eq 5)
+{	
+	&TefFunction($scriptfile);
+	check($SWICDRIVE_PATH);
+	my @file = &GetParams($param_filename);
+	&ReadText(@file);
+}
+
+res:
+&Result();
+
+if($removedrives eq "both")
+{
+	&RemoveDir($CDRIVE_PATH);
+	&RemoveDir($ROMDRIVE_PATH);
+}
+elsif($removedrives eq "c_only")
+{
+	&RemoveDir($CDRIVE_PATH);
+}
+elsif($removedrives eq "rom_only")
+{
+	&RemoveDir($ROMDRIVE_PATH);
+}
+elsif($removedrives eq "all")
+{
+	&RemoveDir($CDRIVE_PATH);
+	&RemoveDir($ROMDRIVE_PATH);
+	&RemoveDir($DDRIVE_PATH);
+	&RemoveDir($EDRIVE_PATH);
+}
+
+&RemoveDir($testdata);
+
+
+# Checks for file/files
+sub check($)
+{	
+	WriteLog("INFO: check($_[0])\n");
+
+	my $drive_path=$_[0];
+	my @param_array = &GetParams($param_filename); 
+
+	if ($param_filename eq 'PARAM_INI' && $#param_array == -1)
+	{
+	  $passflag = 1;
+	  return; 
+	}
+
+	my $temp;
+	my $filenotexist = 0;
+
+	$searchresult = 0;
+	foreach $temp (@param_array)											
+	{
+		# Rest flags
+		$searchresult = 0;
+		$filenotexist = 0;		
+		
+		$filename = trim($temp);
+		if($filename eq "")
+		{
+			# Blank line found - no file to check
+			$passflag = 1;
+			return; 
+		}
+
+		# if the filename has been prefixed with "*", the file should not be present on the system drive (C:\)
+		if(rindex($filename,"*") == 0)
+		{
+			$filenotexist = 1;
+			$filename = substr($filename,1);
+		}
+
+		find (\&scan,$drive_path);
+		if ($positivetc eq "positive") 
+		{	
+			# If the file is not found and the 'not exists' flag is not set OR the file is found 
+			# when the 'not exists' flag is set...Fail the test
+			if(($searchresult == 0 && $filenotexist == 0) || ($searchresult == 1 && $filenotexist == 1))
+			{
+			$passflag = 0;
+			return;
+			}
+		}
+	
+		# The "not exists" flag is not checked within negative tests to prevent ambiguity
+		if ($positivetc eq "negative" && $searchresult == 1)
+		{
+			$passflag = 0;
+			return;
+		}
+
+		$passflag = 1;					
+	}
+}
+
+sub scan
+{	
+	WriteLog("INFO: scan()\n");
+
+	my $path = $File::Find::name;
+		
+	if (-f $path && !($File::Find::name=~m/data/)) # Exclude the data folder path of harness
+	{	
+		chomp($filename);
+		if (basename($path) eq $filename)
+		{
+			$searchresult =  1;
+			$File::Find::name=~ s/\//\\/g;
+			push @searchedpath,$File::Find::name;
+			return;
+		}
+	}
+}
+
+# Get the files to be searched from the parameters files.
+sub GetParams($)
+{
+	WriteLog("INFO: GetParams($_[0]\)\n");
+
+	my $file = $_[0];
+	my $param_file = $PARAMS_PATH."/".$file;
+	my @param_list = ();
+	my $sectionFound = 0;
+	if ($file eq 'PARAM_INI')
+	{
+		# Read the parameter .ini file
+		my @iniText = ();
+
+		if (open(INI_FILE, $iniFile))
+		{
+			@iniText = <INI_FILE>;
+			close(INI_FILE);
+		}
+		
+		for (my $line = 0;  $line < @iniText;  $line++)
+		{
+			if ($iniText[$line] =~ /^\s*\[$testid\]\s*$/i)
+			{
+				$sectionFound = 1;
+				next;
+			}
+			
+			if ($sectionFound && ($iniText[$line] !~ /^\s*$/))
+			{
+				push (@param_list, trim($iniText[$line]));
+			}
+			else
+			{
+				if ($sectionFound == 1)
+				{
+					return @param_list;
+				}
+			}
+		}
+	}
+	else
+	{
+		opendir (FILE, $PARAMS_PATH) || die;
+		open(FILE, $param_file) || die;	
+		@param_list = <FILE>;
+		close(FILE);
+	}
+	
+	return @param_list;
+}
+
+
+
+# Executes the batch file passed as argument
+sub RunBatch($)
+{
+  WriteLog("INFO: RunBatch($_[0])\n");
+  my $batchfile = $_[0];
+  `/epoc32/winscw/c/tswi/tinterpretsisinteg/$batchfile`;
+}
+
+
+
+# Cleans off all the files present in the folder passed as an argument.
+sub RemoveDir($)
+{
+	WriteLog("INFO: RemoveDir($_[0])\n");
+	my $dir  =  $_[0];
+	my $name;
+	opendir(DIRHANDLE, $dir) || die "can't open file $dir $!";
+	foreach $name (sort readdir(DIRHANDLE))
+		{
+		if ($name ne "." && $name ne ".." && $name ne "indir1" && $name ne "indir2") 
+			{
+			if (-d "$dir/$name")
+				{
+					&RemoveDir("$dir/$name");
+					rmdir("$dir/$name");
+				}
+			else 
+				{
+					unlink("$dir/$name");
+				}
+			}
+		}
+	closedir(DIRHANDLE);
+}
+
+sub trim($)
+{
+	WriteLog("INFO: trim($_[0])\n");
+	my $string = shift;
+	$string =~ s/\s+$//;
+	return $string;
+}
+sub CompareIntSwi()
+{	
+  	WriteLog("INFO: CompareIntSwi()\n");
+	my @searchswi;
+	foreach my $interpretsisfilepath (@searchedpath)											
+	{
+		my $filenameswi = basename(trim($interpretsisfilepath));
+		if($filename eq "")
+		{
+			 return;
+		}
+		elsif($interpretsisfilepath=~/bin/)
+		{	
+			my $bin_path=$SWICDRIVE_PATH."\\sys\\bin\\".$filenameswi;	
+			$bin_path=~ s/ \/ / \\ /g;
+			push @searchswi,$bin_path;
+		}
+		elsif($interpretsisfilepath=~/hash/)
+		{	
+			my $hash_path=$SWICDRIVE_PATH."\\sys\\hash\\".$filenameswi;
+			$hash_path=~ s/\//\\/g;
+			push @searchswi,$hash_path;
+		}
+		elsif($interpretsisfilepath=~/$uid/)
+		{	
+			my $registry_path=$SWICDRIVE_PATH."\\sys\\install\\sisregistry\\".$uid."\\".$filenameswi;
+			$registry_path=~ s/\//\\/g;
+			push @searchswi,$registry_path;
+		}
+	}
+    my $count=@searchswi;
+    foreach my $interpretsisfilepath (@searchedpath)
+	{
+		foreach my $swifiles  (@searchswi)
+		{
+			if(compare($interpretsisfilepath,$swifiles) ==  0)
+			{
+				if(-s $interpretsisfilepath == -s $swifiles)
+				{	
+					$count--;
+				}
+			}
+			else
+			{
+				$passflag = 0;
+			}
+
+		
+		}	
+	}
+	if($count == 0)
+	{
+		$passflag = 1;
+	}
+}
+
+sub Result()
+{
+	if($passflag == 1)
+	{
+		print "Passed\n";
+	}
+	else
+	{
+		print "Failed\n";
+	}
+}
+sub TefFunction($)
+{
+	WriteLog("INFO: TefFunction($_[0])\n");
+	my $script=$_[0];
+	`$TEST_EXECUTE c:\\tswi\\tinterpretsisinteg\\scripts\\$script`;
+}
+
+
+sub CheckTefLogs
+{
+	WriteLog("INFO: CheckTefLogs($_[3].$_[0])\n");
+	my $LOGFILE=$_[3].$_[0];
+	opendir (FILE,$TEF_LOGS_PATH) || die;
+	open(FILE, $LOGFILE) or die("Could not open log file or directory $!");
+	foreach my $line (<FILE>)
+	{
+	my $NRvalue=$_[1];
+	my $Errocodevalue=$_[2];
+	if (($line =~/$NRvalue/) || ($line =~/$Errocodevalue/))
+	{
+	$passflag = 1;
+	}
+	}
+	close(LOGFILE);
+
+}
+
+# Searches for text in the file
+sub ReadText(@)
+{
+	WriteLog("INFO: ReadText($_[0])\n");
+
+	if($passflag eq 1)
+	{		
+		my $file  =  $_[0];
+		my @filepath  =  grep(/$file/,@searchedpath);
+		my $output_file  =  @filepath[0];
+		open(FILE,$output_file ) || die;	
+		my $param_list  =  <FILE>;
+		close(FILE );
+		if(trim($param_list) eq trim($comparetext))
+		{	
+			$passflag = 1;
+				if ($positivetc eq "negative") 
+				{
+					goto res;
+				}	
+		}
+		else
+		{
+			$passflag = 0;
+				if ($positivetc eq "positive") 
+				{
+					goto res;
+				}			
+		}
+	}
+	else
+	{
+		goto res;
+	}
+}
+
+#
+#Function to write log into file
+#
+sub WriteLog {
+  if ($debug)
+    {
+      my ($log) = @_;
+      my $fh;
+
+      unless( open($fh, ">> $logFile"))
+	{
+	  printf STDERR "Can\'t open $logFile:$!\n";
+	  return;
+	}
+      printf $fh $log;
+      close $fh;
+    }
+}
+
+# Performs any cleanup which needs to take place after a TEF script has been executed
+sub Cleanup()
+{
+	my $cr1027RomStub = "\\epoc32\\release\\WINSCW\\udeb\\z\\system\\install\\CR1027ROMUpgradeStub.sis";
+	my $cr1027RomStub_temp = "\\epoc32\\release\\WINSCW\\udeb\\z\\system\\CR1027ROMUpgradeStub.sis";
+	move($cr1027RomStub_temp, $cr1027RomStub);
+}
+